Add files via upload

Author: IcarusLivesHF

ciphers/ROT13Cipher.bat

@@ -0,0 +1,27 @@
+@echo off & setlocal enableDelayedExpansion
+
+call :ROT13cipher "hello world"
+call :ROT13cipher "%$cipher%"
+
+pause & exit
+
+:ROT13cipher "string"
+set "$cipher="
+set "string=%~1"
+set "alpha=abcdefghijklmnopqrstuvwxyz "
+set "shift=nopqrstuvwxyzabcdefghijklm "
+
+for /l %%b in (12,-1,0) do (
+    set /a "string.length|=1<<%%b"
+    for %%c in (!string.length!) do if "!string:~%%c,1!" equ "" (
+        set /a "string.length&=~1<<%%b"
+    )
+)
+
+for /l %%i in (0,1,%string.length%) do for /l %%j in (0,1,26) do (
+    if /i "!string:~%%i,1!" equ "!alpha:~%%j,1!" (
+		set "$cipher=!$cipher!!shift:~%%j,1!"
+    )
+)
+echo ROT13: %$cipher%
+goto :eof

ciphers/atbashCipher.bat

@@ -0,0 +1,26 @@
+@echo off & setlocal enableDelayedExpansion
+
+call :atbashcipher "hello world"
+
+pause & exit
+
+:atbashcipher "string"
+set "$cipher="
+set "string=%~1"
+set "alpha=abcdefghijklmnopqrstuvwxyz "
+set "shift= zyxwvutsrqponmlkjihgfedcba"
+
+for /l %%b in (12,-1,0) do (
+    set /a "string.length|=1<<%%b"
+    for %%c in (!string.length!) do if "!string:~%%c,1!" equ "" (
+        set /a "string.length&=~1<<%%b"
+    )
+)
+
+for /l %%i in (0,1,%string.length%) do for /l %%j in (0,1,26) do (
+	if /i "!string:~%%i,1!" equ "!alpha:~%%j,1!" (
+		set "$cipher=!$cipher!!shift:~%%j,1!"
+    )
+)
+echo ATBASH: %$cipher%
+goto :eof

ciphers/caesarCipher.bat

@@ -0,0 +1,27 @@
+@echo off & setlocal enableDelayedExpansion & mode 80,40
+
+call :caesarcipher "hello world" 4
+
+pause & exit
+
+:caesarcipher "string" shiftLength
+set "$cipher="
+set "string=%~1"
+set "shift.length=%~2" & rem 0-26
+set "alpha=abcdefghijklmnopqrstuvwxyz "
+set "shift=!alpha:~%shift.length%!!alpha:~0,%shift.length%!"
+
+for /l %%b in (12,-1,0) do (
+    set /a "string.length|=1<<%%b"
+    for %%c in (!string.length!) do if "!string:~%%c,1!" equ "" (
+        set /a "string.length&=~1<<%%b"
+    )
+)
+
+for /l %%i in (0,1,%string.length%) do for /l %%j in (0,1,26) do (
+	if /i "!string:~%%i,1!" equ "!alpha:~%%j,1!" (
+		set "$cipher=!$cipher!!shift:~%%j,1!"
+    )
+)
+echo Caesar Cipher: %$cipher%
+goto :eof

ciphers/vigenereCipher.bat

@@ -0,0 +1,44 @@
+@echo off & setlocal enableDelayedExpansion
+
+call :vigenerecipher "attack at dawn" "lemon"
+
+pause & exit
+
+:vigenerecipher "string" key
+set "$cipher="
+set "string=%~1"
+set "key=%~2"
+set "alpha=abcdefghijklmnopqrstuvwxyz"
+
+set /a "string.length=0"
+for /l %%b in (8,-1,0) do (
+    set /a "string.length|=1<<%%b"
+    for %%c in (!string.length!) do if "!string:~%%c,1!" equ "" (
+		set /a "string.length&=~1<<%%b"
+    )
+)
+set /a "string.length+=1"
+for /l %%i in (1,1,4) do set "key=!key!!key!!key!!key!"
+set "key=!key:~0,%string.length%!"
+
+set /a "string.length-=1"
+for /l %%i in (0,1,%string.length%) do (
+	set "shift=-1"
+	set "shiftalpha="
+	for %%j in (a b c d e f g h j i k l m n o p q r s t u v w x y z) do (
+		set /a "shift+=1"
+		if /i "!key:~%%i,1!" equ "%%j" (
+			for %%s in (!shift!) do (
+				set "shiftalpha=!alpha:~%%s!!alpha:~0,%%s!"
+			)
+		)
+	)
+	for /l %%j in (0,1,25) do (
+		if /i "!string:~%%i,1!" equ "!alpha:~%%j,1!" (
+			set "$cipher=!$cipher!!shiftalpha:~%%j,1!"
+		)
+	)
+)
+
+echo Vigenere Cipher: %$cipher%
+goto :eof