Data update

Task/Vigen-re-cipher/VBScript/vigen-re-cipher-1.vb

@@ -1,47 +0,0 @@
-Function Encrypt(text,key)
-	text = OnlyCaps(text)
-	key = OnlyCaps(key)
-	j = 1
-	For i = 1 To Len(text)
-		ms = Mid(text,i,1)
-		m = Asc(ms) - Asc("A")
-		ks = Mid(key,j,1)
-		k = Asc(ks) - Asc("A")
-		j = (j Mod Len(key)) + 1
-		c = (m + k) Mod 26
-		c = Chr(Asc("A")+c)
-		Encrypt = Encrypt & c
-	Next
-End Function
-
-Function Decrypt(text,key)
-	key = OnlyCaps(key)
-	j = 1
-	For i = 1 To Len(text)
-		ms = Mid(text,i,1)
-		m = Asc(ms) - Asc("A")
-		ks = Mid(key,j,1)
-		k = Asc(ks) - Asc("A")
-		j = (j Mod Len(key)) + 1
-		c = (m - k + 26) Mod 26
-		c = Chr(Asc("A")+c)
-		Decrypt = Decrypt & c
-	Next
-End Function
-
-Function OnlyCaps(s)
-	For i = 1 To Len(s)
-		char = UCase(Mid(s,i,1))
-		If Asc(char) >= 65 And Asc(char) <= 90 Then
-			OnlyCaps = OnlyCaps & char
-		End If
-	Next
-End Function
-
-'testing the functions
-orig_text = "Beware the Jabberwock, my son! The jaws that bite, the claws that catch!"
-orig_key = "vigenerecipher"
-WScript.StdOut.WriteLine "Original: " & orig_text
-WScript.StdOut.WriteLine "Key: " & orig_key
-WScript.StdOut.WriteLine "Encrypted: " & Encrypt(orig_text,orig_key)
-WScript.StdOut.WriteLine "Decrypted: " & Decrypt(Encrypt(orig_text,orig_key),orig_key)

Task/Vigen-re-cipher/VBScript/vigen-re-cipher-2.vb

@@ -1,34 +0,0 @@
-'vigenere cypher
-option explicit
-const asca =65  'ascii(a)
-
-function filter(s)
-    with new regexp
-      .pattern="[^A-Z]"
-      .global=1
-      filter=.replace(ucase(s),"")
-     end with
-end function
-
-function vigenere (s,k,sign)
-dim s1,i,a,b
-  for i=0 to len(s)-1
-    a=asc(mid(s,i+1,1))-asca
-    b=sign * (asc(mid(k,(i mod len(k))+1,1))-asca)
-    s1=s1 & chr(((a+b+26) mod 26) +asca)
-  next
-  vigenere=s1
-end function
-
-function encrypt(s,k): encrypt=vigenere(s,k,1) :end function
-function decrypt(s,k): decrypt=vigenere(s,k,-1) :end function
-
-'test--------------------------
-dim plaintext,filtered,key,encoded
-key="VIGENERECYPHER"
-plaintext = "Beware the Jabberwock, my son! The jaws that bite, the claws that catch!"
-filtered= filter(plaintext)
-wscript.echo filtered
-encoded=encrypt(filtered,key)
-wscript.echo encoded
-wscript.echo decrypt(encoded,key)