kajvanschalk cipher FIXED

'This is an edited version of code from u/kajvanschalk
'Edits made to fix broken/undesired bits and to make things more readable
'Edits done by u/Maxxer500, aka C0deR0gue

Set shell = CreateObject("wscript.shell")

encrypt=inputbox("type text om te versleutelen")
encrypt=lcase(encrypt)
encrypt=StrReverse(encrypt)

shell.Run "%windir%\notepad"
wscript.sleep 500

Function encode(input)
    newtxt=input

    'Don't change anything in this block (unless you're changing the !, @, and # to an unused character), otherwise this half of the alphabet will be incorrectly translated
    newtxt=Replace(newtxt , "a" , "1")
    newtxt=Replace(newtxt , "b" , "2")
    newtxt=Replace(newtxt , "c" , "3")
    newtxt=Replace(newtxt , "d" , "4")
    newtxt=Replace(newtxt , "e" , "5")
    newtxt=Replace(newtxt , "f" , "6")
    newtxt=Replace(newtxt , "g" , "7")
    newtxt=Replace(newtxt , "h" , "8")
    newtxt=Replace(newtxt , "i" , "9")
    newtxt=Replace(newtxt , "j" , "0")
    newtxt=Replace(newtxt , "k" , "!")
    newtxt=Replace(newtxt , "l" , "@")
    newtxt=Replace(newtxt , "m" , "#")

    'In this block you can change each 3rd argument to any character you want, so long as it isn't any number, !, @, or # (or whatever unused characters you use on lines 28-30)
    newtxt=Replace(newtxt , "n" , "m")
    newtxt=Replace(newtxt , "o" , "l")
    newtxt=Replace(newtxt , "p" , "k")
    newtxt=Replace(newtxt , "q" , "j")
    newtxt=Replace(newtxt , "r" , "i")
    newtxt=Replace(newtxt , "s" , "h")
    newtxt=Replace(newtxt , "t" , "g")
    newtxt=Replace(newtxt , "u" , "f")
    newtxt=Replace(newtxt , "v" , "e")
    newtxt=Replace(newtxt , "w" , "d")
    newtxt=Replace(newtxt , "x" , "c")
    newtxt=Replace(newtxt , "y" , "b")
    newtxt=Replace(newtxt , "z" , "a")

    'In this block you can change each 3rd argument to any character you want (if you changed the unused characters on lines 28-30, make sure to mirror that on lines 58-60)
    newtxt=Replace(newtxt , "1" , "z")
    newtxt=Replace(newtxt , "2" , "y")
    newtxt=Replace(newtxt , "3" , "x")
    newtxt=Replace(newtxt , "4" , "w")
    newtxt=Replace(newtxt , "5" , "v")
    newtxt=Replace(newtxt , "6" , "u")
    newtxt=Replace(newtxt , "7" , "t")
    newtxt=Replace(newtxt , "8" , "s")
    newtxt=Replace(newtxt , "9" , "r")
    newtxt=Replace(newtxt , "0" , "q")
    newtxt=Replace(newtxt , "!" , "p")
    newtxt=Replace(newtxt , "@" , "o")
    newtxt=Replace(newtxt , "#" , "n")

    encode=newtxt
End function

shell.Sendkeys Encode(encrypt)