Data update

Task/Substitution-cipher/Ada/substitution-cipher.adb

@@ -0,0 +1,46 @@
+with Ada.Command_Line; use Ada.Command_Line;
+with Ada.Sequential_IO;
+with Ada.Strings.Maps; use Ada.Strings.Maps;
+with Ada.Text_IO;
+
+procedure Cipher is
+   package Char_IO is new Ada.Sequential_IO (Character);
+   use Char_IO;
+   Alphabet: constant String := "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz";
+   Key :     constant String := "VsciBjedgrzyHalvXZKtUPumGfIwJxqOCFRApnDhQWobLkESYMTN";
+   My_Map : Character_Mapping;
+   Input, Output : File_Type;
+   Buffer        : Character;
+begin
+   declare
+      use Ada.Text_IO;
+   begin
+      if Argument_Count /= 1 then
+	 Put_Line("Usage: " & Command_Name & " <encode|decode>");
+      else
+	 if Argument(1) = "encode" then
+	    My_Map := To_Mapping(From => Alphabet, To => Key);
+	 elsif Argument(1) = "decode" then
+	    My_Map := To_Mapping(From => Key, To => Alphabet);
+	 else
+	    Put_Line("Unrecognised Argument: " & Argument(1));
+	    return;
+	 end if;
+      end if;
+   end;
+   Open       (File => Input,  Mode => In_File,  Name => "input.txt");
+   Create     (File => Output, Mode => Out_File, Name => "output.txt");
+   loop
+      Read  (File => Input,  Item => Buffer);
+      Buffer := Value(Map => My_Map, Element => Buffer);
+      Write (File => Output, Item => Buffer);
+   end loop;
+exception
+   when Char_IO.End_Error =>
+      if Is_Open(Input) then
+         Close (Input);
+      end if;
+      if Is_Open(Output) then
+         Close (Output);
+      end if;
+end Cipher;

Task/Substitution-cipher/Emacs-Lisp/substitution-cipher.el

@@ -0,0 +1,41 @@
+(setq alphabet "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
+(setq code     "odrmqbjnwzvueghlacyfpktisxODRMQBJNWZVUEGHLACYFPKTISX")
+
+(defun encode (text)
+  "Encode TEXT with simple substitution code.
+Each letter is replaced with the a random letter.
+A specific letter in the original will always be replaced
+by the same coded letter."
+  (let* ((case-fold-search nil)
+	(text-length (length text))
+	(encoded-text "")
+	(current-letter "")
+	(coded-letter "")
+	(alphabet-position))
+    (dotimes (i text-length)
+      (setq current-letter (substring text i (+ 1 i)))			    ; find the next letter in TEXT
+      (if (not (string-match-p "[a-zA-Z]" current-letter))		    ; IF it's not a letter
+	  (setq coded-letter current-letter)						    ; pass the non-letter without change
+	(setq alphabet-position (string-match current-letter alphabet))	; ELSE find where the letter is in ALPHABET
+	(setq coded-letter (substring code alphabet-position (+ 1 alphabet-position)))) ; AND pass the coded letter
+      (setq encoded-text (concat encoded-text coded-letter)))		; IN ANY CASE, add new letter to ENCODED-TEXT
+    encoded-text))
+
+(defun decode (text)
+  "Decode TEXT encoded with simple substitution code.
+Each coded letter is replaced with the corresponding
+uncoded letter."
+  (let* ((case-fold-search nil)
+	(text-length (length text))
+	(uncoded-text "")
+	(current-letter "")
+	(uncoded-letter "")
+	(code-position))
+    (dotimes (i text-length)
+      (setq current-letter (substring text i (+ 1 i)))					          ; find the next letter in TEXT
+      (if (not (string-match-p "[a-zA-Z]" current-letter))				          ; IF it's not a letter
+	  (setq uncoded-letter current-letter)						                  ; pass the non-letter without change
+	(setq code-position (string-match current-letter code))				          ; ELSE find where the letter is in CODE
+	(setq uncoded-letter (substring alphabet code-position (+ 1 code-position)))) ; AND pass the uncoded letter
+      (setq uncoded-text (concat uncoded-text uncoded-letter)))				      ; IN ANY CASE, add new letter to UNCODED-TEXT
+    uncoded-text))

Task/Substitution-cipher/R/substitution-cipher.r

@@ -0,0 +1,10 @@
+plain_chars <- c(letters, LETTERS)
+cipher_chars <- sample(plain_chars, 52)
+codex <- sapply(list(plain_chars, cipher_chars),
+                function(v) paste0(v, collapse=""))
+
+plaintext <- "The five boxing wizards jump quickly."
+encode <- function(s) chartr(codex[1], codex[2], s)
+decode <- function(s) chartr(codex[2], codex[1], s)
+ciphertext <- plaintext |> encode() |> print()
+ciphertext |> decode()

Task/Substitution-cipher/VBScript/substitution-cipher.vbs

@@ -0,0 +1,55 @@
+option explicit
+const maxk=94
+dim key(94)
+
+a="I'm working on modernizing Rosetta Code's infrastructure. Starting with communications."&_
+" Please accept this time-limited open invite to RC's Slack.. --Michael Mol (talk) 20:59, 30 May 2020 (UTC)"
+
+sub gen     'swaps items not previusly affected by a swap
+  dim i,m,t
+  for i=0 to ubound(key)
+    key(i)=i+32
+  next
+  for i=0 to ubound(key)-1
+    if key(i)=i+32 then
+      m=i+int(rnd*(maxk-i))
+     if key(m)=m+32 then
+       t=key(m):key(m)=key(i):key(i)=t
+     end if
+   end if
+  next
+end sub
+
+function viewkey
+dim i,b
+b=""
+for i=1 to ubound(key)
+   b=b&chr(key(i))
+next
+viewkey=b
+end function
+
+function iif(a,b,c) if a then iif=b else iif =c end if: end function
+
+function docode(a)
+  dim b,i,ch,n
+  n=maxk+32
+  b=""
+  for i=1 to len(a)
+   ch=asc(mid(a,i,1))
+   'wscript.echo ch
+   b=b&chr(key(iif (ch>n or ch<32,0,ch-32)))
+  next
+  docode=b
+end function
+
+randomize timer
+dim a,b,c
+gen
+wscript.echo "Key:   " & viewkey & vbcrlf
+wscript.echo "Original: " & a & Vbcrlf
+b=docode(a)
+wscript.echo "Encoded: "&  b & Vbcrlf
+c=docode(b)
+wscript.echo "Decoded: " & c & Vbcrlf
+wscript.quit(0)