Guest User

Untitled

a guest
Dec 10th, 2011
586
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. set x = WScript.CreateObject("WScript.Shell")
  2. mySecret = inputbox("Ukucaj sifru i pritisni OK da enkriptujes")
  3. mySecret = StrReverse(mySecret)
  4. x.Run "%windir%\notepad"
  5. wscript.sleep 1000
  6. x.sendkeys encode(mySecret)
  7.  
  8.  
  9. function encode(s)
  10. For i = 1 To Len(s)
  11. newtxt = Mid(s, i, 1)
  12. newtxt = Chr(Asc(newtxt)+5)
  13. coded = coded & newtxt
  14. Next
  15. encode = coded
  16. End Function
  17.  
RAW Paste Data