Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- set x = WScript.CreateObject("WScript.Shell")
- mySecret = inputbox("Ukucaj sifru i pritisni OK da enkriptujes")
- mySecret = StrReverse(mySecret)
- x.Run "%windir%\notepad"
- wscript.sleep 1000
- x.sendkeys encode(mySecret)
- function encode(s)
- For i = 1 To Len(s)
- newtxt = Mid(s, i, 1)
- newtxt = Chr(Asc(newtxt)+5)
- coded = coded & newtxt
- Next
- encode = coded
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement