hastur on #computerchat
|
4411bf3acd
|
Evaluated proc NASA_GRADE_DECRYPTION {the_cipher the_key} {set ret {}; set thecharacter {}; set thesecret {}; foreach thecharacter $the_cipher thesecret [split $the_key {}] {lappend ret [format "%c" [expr $thecharacter ^ [scan $thesecret %c]]]};join $ret ""}
|
2020-09-28 22:16:14 +02:00 |
|
hastur on #computerchat
|
6531b6bbb8
|
Evaluated proc NASA_GRADE_DECRYPTION {the_cipher the_key} {set ret {}; set thecharacter {}; set thesecret {}; foreach thecharacter $the_cipher thesecret [split $the_key {}] {lappend ret [format "%c" [expr $thecharacter ^ [scan $thesecret" %c]]]};join $ret ""}
|
2020-09-28 22:07:58 +02:00 |
|
hastur on #computerchat
|
e612df7822
|
Evaluated proc NASA_GRADE_DECRYPTION {the_cipher the_key} {set ret {}; set thecharacter {}; set thesecret {}; foreach thecharacter $the_cipher thesecret [split $the_key {}] {lappend ret [format "%c" [expr $thecharacter ^ [scan $thesecret" %c]]]};join $ret}
|
2020-09-28 22:01:06 +02:00 |
|
hastur on #computerchat
|
e5ad0b898d
|
Evaluated proc NASA_GRADE_DECRYPTION {the_cipher the_key} {set ret {}; set thecharacter {}; set thesecret {}; foreach thecharacter [split $the_cipher {}] thesecret [split $the_key {}] {lappend ret [format "%c" [expr $thecharacter ^ [scan $thesecret" %c]]]}; join $ret}
|
2020-09-28 21:59:41 +02:00 |
|
hastur on #computerchat
|
15a9206914
|
Evaluated proc NASA_GRADE_DECRYPTION {the_cipher the_key} {set ret {}; set thecharacter {}; set thesecret {}; foreach thecharacter [split $the_cipher {}] thesecret [split $the_key {}] {lappend ret [format "%c" [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]]}; join $ret}
|
2020-09-28 21:53:52 +02:00 |
|
hastur on #computerchat
|
f9af6f4a1e
|
Evaluated proc NASA_GRADE_DECRYPTION {the_cipher the_key} {set ret {}; set thecharacter {}; foreach thecharacter [split $the_cipher {}] thesecret [split $the_key {}] {lappend ret [format "%c" [expr [scan "$thecharacter" %c] ^ [scan "$thesecret" %c]]]}; join $ret}
|
2020-09-28 21:52:13 +02:00 |
|
hastur on #computerchat
|
d22c67a7c1
|
Evaluated proc NASA_GRADE_DECRYPTION {the_cipher the_key} {set ret {}; set thecharacter {}; foreach thecharacter [split $the_cipher {}] thesecret [split $the_key {}] {lappend ret [format "%c" [expr [scan $thecharacter %c] ^ [scan $thesecret %c]]]}; join $ret}
|
2020-09-28 21:45:48 +02:00 |
|