Data commit

Task/Caesar-cipher/AutoIt/caesar-cipher.autoit

@@ -0,0 +1,32 @@
+$Caesar = Caesar("Hi", 2, True)
+MsgBox(0, "Caesar", $Caesar)
+Func Caesar($String, $int, $encrypt = True)
+	If Not IsNumber($int) Or Not StringIsDigit($int) Then Return SetError(1, 0, 0)
+	If $int < 1 Or $int > 25 Then Return SetError(2, 0, 0)
+	Local $sLetters, $x
+	$String = StringUpper($String)
+	$split = StringSplit($String, "")
+	For $i = 1 To $split[0]
+		If Asc($split[$i]) - 64 > 26 Or Asc($split[$i]) - 64 < 1 Then
+			$sLetters &= $split[$i]
+			ContinueLoop
+		EndIf
+		If $encrypt = True Then
+			$move = Asc($split[$i]) - 64 + $int
+		Else
+			$move = Asc($split[$i]) - 64 - $int
+		EndIf
+		If $move > 26 Then
+			$move -= 26
+		ElseIf $move < 1 Then
+			$move += 26
+		EndIf
+		While $move
+			$x = Mod($move, 26)
+			If $x = 0 Then $x = 26
+			$sLetters &= Chr($x + 64)
+			$move = ($move - $x) / 26
+		WEnd
+	Next
+	Return $sLetters
+EndFunc   ;==>Caesar