Bifid cipher: Difference between revisions

Content added Content deleted

Inline

@@ Line 501: / Line 501: @@
    return r$
 .
+func$ encr msg$ key$ .
-h$ = crypt 1 "ATTACKATDAWN" "ABCDEFGHIKLMNOPQRSTUVWXYZ"
+   return crypt 1 conv msg$ key$
+.
+func$ decr msg$ key$ .
+   return crypt 0 msg$ key$
+.
+key$ = "ABCDEFGHIKLMNOPQRSTUVWXYZ"
+h$ = encr "ATTACKATDAWN" key$
 print h$
-print crypt 0 h$ "ABCDEFGHIKLMNOPQRSTUVWXYZ"
+print decr h$ key$
 print ""
 #
-h$ = crypt 1 "FLEEATONCE" "BGWKZQPNDSIOAXEFCLUMTHYVR"
+key$ = "BGWKZQPNDSIOAXEFCLUMTHYVR"
+h$ = encr "FLEEATONCE" key$
 print h$
-print crypt 0 h$ "BGWKZQPNDSIOAXEFCLUMTHYVR"
+print decr h$ key$
 print ""
-h$ = crypt 1 "ATTACKATDAWN" "BGWKZQPNDSIOAXEFCLUMTHYVR"
+h$ = encr "ATTACKATDAWN" key$
 print h$
-print crypt 0 h$ "BGWKZQPNDSIOAXEFCLUMTHYVR"
+print decr h$ key$
 print ""
 #
-h$ = crypt 1 conv "The invasion will start on the first of January" "BGWKZQPNDSIOAXEFCLUMTHYVR"
+h$ = encr "The invasion will start on the first of January" key$
 print h$
-print crypt 0 h$ "BGWKZQPNDSIOAXEFCLUMTHYVR"
+print decr h$ key$
 </syntaxhighlight>