Habe einfach mal eine ganz ganz einfache verschlüsselung gemacht^^
und die passt sogar in 29 zeilen
Spoiler anzeigen
$string = InputBox("Verschlüsselung","Gib den Text zum verschlüsseln ein")
$string = StringReplace($string,"a","z2")
$string = StringReplace($string,"b","a")
$string = StringReplace($string,"c","b")
$string = StringReplace($string,"d","c")
$string = StringReplace($string,"e","d")
$string = StringReplace($string,"f","e")
$string = StringReplace($string,"g","f")
$string = StringReplace($string,"h","g")
$string = StringReplace($string,"i","h")
$string = StringReplace($string,"j","i")
$string = StringReplace($string,"k","j")
$string = StringReplace($string,"l","k")
$string = StringReplace($string,"m","l")
$string = StringReplace($string,"n","m")
$string = StringReplace($string,"o","n")
$string = StringReplace($string,"p","o")
$string = StringReplace($string,"q","p")
$string = StringReplace($string,"r","q")
$string = StringReplace($string,"s","r")
$string = StringReplace($string,"t","s")
$string = StringReplace($string,"u","t")
$string = StringReplace($string,"v","u")
$string = StringReplace($string,"w","v")
$string = StringReplace($string,"x","w")
$string = StringReplace($string,"y","x")
$string = StringReplace($string,"z","y")
$string = StringReplace($string,"z2","y")
MsgBox(64,"fertig","dein verschlüsselter text: " & $string)