$n=<>;$_=<>; s/[a-z]/(chr($a+(((ord$&)+$n-($a=ord$&>96?96:64))%26||26)))/egi; y/!?/?!/;print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page