7 lines
250 B
Tcl
7 lines
250 B
Tcl
Playfair create cypher "Playfair Example"
|
|
set plaintext "Hide the gold in...the TREESTUMP!!!"
|
|
set encoded [cypher encode $plaintext]
|
|
set decoded [cypher decode $encoded]
|
|
puts "Original: $plaintext"
|
|
puts "Encoded: $encoded"
|
|
puts "Decoded: $decoded"
|