Run the following program to reveal my email
#lang racket
(define A (char->integer #\A))
(define Z (char->integer #\Z))
(define a (char->integer #\a))
(define z (char->integer #\z))
(define (rotate c)
(define cnum (char->integer c))
(define (shift base)
(integer->char (+ base (modulo (+ -1 (- cnum base)) 26))))
(cond [(<= A cnum Z) (shift A)]
[(<= a cnum z) (shift a)]
[else c]))
(define (caesar s)
(list->string (for/list ([c (in-string s)]) (rotate c))))
(caesar "qbssz84@hnbjm.dpn")
My PGP key
-----BEGIN PGP PUBLIC KEY BLOCK----- mQINBF1LByEBEAC0Fn8I+zDgGHazHTTGT6Hp+2v8PDtnRv1GjaVkch/HEhiiAlmK ZymhjY8/AVmrIRpiUafnb7PHUouGvwz3unsTsWS6zv3thrfwApkcc9fdE/INBxec nPeV/akWHx7b8xoRV/5sUvOFFvoILeyChyoiNJpQrQYR89TLXGLCF/IQPmounsLj zByj41zKU+1u72x5F71c5W9757eFoTg/MGOqwT/0AbauQxKoQisoqUb4g2s1AJ5c v6zzH3LyxJs6px8CfSqI3OiGgeQMOWBK0avcJ38K4lEEWcaf5lwj7CNBBGfiWZLS Rne4mMiHls4d4Y888HgSdJDhuUgzCUuzCiKNsOhe26MMjzjSr6Qwq3ygQAlP7ZWC 7+kS0q0xF9qsKLty58Xaj1xb54CpSs03p6ViWb9LXWOwZLuSjfZDLZSutJV4l+VA fVe4Wy+OXld/I+Qf6b68Rd/cbGxp22XLU7pHdz9ip64yRZ4VUB5dIByjjsVSWuKW /YLNv+5wlz0mPow3RjWrukpBObUpy5a/Fw7nawSvS0yXeiOUmoeMfzxFu/ZmksOn eReNAtE9Qg6JgYzpLlP2r//Qn8vbOvueMzb0/RYhPQcLaZOp33ifSH7KLMExhkMp 89+mai68OJ8AAg2QNtAOA+MzeWVw09+8zcEZ7iVlQBDRdEfAZE4KsYhLkQARAQAB tDFFbWFudWVsZSBQYXJyaW5lbGxvIChwYXJyeTg0KSA8cGFycnk4NEBnbWFpbC5j b20+iQJOBBMBCAA4FiEEFKACOZrNPZhhhcXSw2AhCo6SE34FAl20TlYCGwMFCwkI BwIGFQoJCAsCBBYCAwECHgECF4AACgkQw2AhCo6SE368Sw//Rof59nZIuCeY2cmU jkAZpCr9LZEp+M9PiWfBwtgx+RvOrHpmU9++vmPGTr2ZLPl/ShKZS4QBU2NE5+cy /+SKHdxxGjdspVwaSSMpMNxMiHHbH+R5HuuumqtcxNieef6Nw506LPNst7BYA9/t ECs5Og/jWD0bRKOvz+8U5hAk2yENp6SiqOAD+9gJyksCn54+2bFRXCMSUrd47HIQ XT0MrVP3xmjx3qienI02eBYajsgzFtBY7GmJQ6ygaEzvGhSvpkf3YP+3IG44oXAK WGRZiGWlaMvSDZ4v1/XnfN0NYig/oxdfLmgd/WMTHxPmhdC40TKiG2V0d3ZCKpZ8 q5PPb8SEmDJh1b+DVIefAs2DcOd+LcA26nAr3TZ7q4c22M+FMIEz1YVQPGbDtanF ShRyL5t8uZ9cRheiT6u/cRvNgLFGfD7KTb1GNgshvyYuXHg16t25JmxZWnWjHH32 ebgwjzev2CJeqClS0RTdi4RdAOsshGUcRUAWSUSgWdBkKNo1phI0QpZ1w2iMb59T VlFYAVk2dUZltcINO6ZleVlxJ6Bk8/FRd8mELIlGt9UeQ2BtItqEVOHdUAx+bStm vvyubkB724MghY/pg2DwLbr+5i7CklGcPgR9fmzdorPDCH+LyzKzrqYrkARlQANK SwW7NPgaNo2Q1W0QHCGDdFSM1hO5Ag0EXUsHIQEQAJY3ONAw2jzxbsaZxyOzshh3 HRobTbQph97IT1SxEMJuGKuY6w+2TOVoVAMyIQFD6dqY6w2YVpgHfkIETd4OYUNN gBHmiYIxgn4+0NaFX6RBnoL/RJo3JDsdhnR6TVIicfI1yf8pqDGqrGdQvpUhubXb lK5fCUQy2+vkEyLFmf38Zo1NNNGGrIYtZkSbrepVSjfsmv0Vl8oJTxwMEacuUtjM Mpl2kH735R2L8EiJ7VJOdQ/+ZSShW2+ymPUgudNzpSAwHFJZiZQxI82KbiXIcQoy gGmyuKLvFCMEzQOAUHs3+Fcn73Hj+dF1WnwYf8ovizH3bkA2iZNwuSC4ZOMOJ4G2 abA8c/+o9TrQlOpHx6GHn3ib0U/WBR104rsBHzEyYmEU+esdcqhD0EB9MrZMQ3QQ irYEkbIbdr7cHQFvT778EvGYg+9fJAXznUpawEfZFzffu46zbxreQi31Mxl7txPF 1/Sh3ml8W7m4O1AOy8dXqIwe5NOyPo/6koDOPQIaVkIoOdOGHAmnO7Dw5OMGDdRA ziXZd/2ivzrgA1rymX5Smmc0AuNTdGfyAlPRwtVO/zrIt6Cvd8K7dBW6wKwv9nHR RV7kTGeYpbzeuojwS9V8QY7jKePUUQEhDyIH3xiKz+DxM04/xkyy5IXUZ7N7XZ7y 3TkkuYjWfhRwdU+/pyQbABEBAAGJAh8EGAEIAAkFAl1LByECGwwACgkQw2AhCo6S E36rHw//R98HBVDBIOgCDyWTbSiJIHgnAIe74wFqpqrQrDBivPablAZ4dPmud/fx eu0hhK0QdAKTzaH4C16u5CgTs1VoFBWLqnFq1BPRV3D3zcDHPP7BY8XagSwjw/ko 4r93L1cnq/9uXABj0OUImqBJQ0FRvKw4po8pwCjju1cWyzg8ZUhYHHtaKnLO+KJl ZCzz9JeCHNAaYNNtjoHBvy6cATwCZZMSMjrJDS7AK4CzvhluosK1BCjzT+dE/fmP S3xWtjxwXUE0zAZcCiRs1Q+iSBTjxANuD8MdbtFADOuiDlR/rEfj0ZVQ5bJ9VpZe jn5w7z90fN7Q925AxNLAA5FSUUOnY5RpwMbTRHE5IT7qIVaYRnRVXXn09/wfVGxl 9Imp8hh+BACP07m0SYw8ERyR9Gf88u1thlf26J70kUnrZ3onz00rZ0gDdDiFUO4c GE1eButq4xPYZI4ZFlkYX7JjN4/8E+j9lDAyJHV3nO6LUkZWaFureXRBaRVfgN+M ghRlEQ64sUpA3QnPzUwfkkpTNWwN+k2EOUoVqxew7mDylD1dRUMyXfs+CQf+XE1z B4zBMgdwfbFjeffKVmmpg/t1Yy3EAC0aXDq9qMCN7T1Xxhlfq3O8qRYAE1MfL7iN hjISuqGIMXZl47/FsoiWPL4z2OAWU5fZeEZJ5If6xzl41u4liWA= =/FPo -----END PGP PUBLIC KEY BLOCK-----