#include $Alphabet = stringsplit("ABCDEFGHIJKLMNOPQRSTUVWXYZ","") _ArrayDelete($Alphabet, 0) Global $VigCypher[26][26] For $i = 0 to 25 Global $icopy = $i VigFill($i) Next Func VigFill($offset) Dim $res[26] For $a = 0 to 25 $VigCypher[$icopy][$a] = $Alphabet[Mod(26+$a-$offset,26)] Next EndFunc $KeyWord = StringUpper(InputBox("keyword","keyword please")) $File = FileOpenDialog("select file to decrypt...","C;\","txt (*.txt)") $Text = FileRead($file) MsgBox(0,"text",$Text) $Text = StringRegExpReplace(StringUpper(StringStripCR($Text)),"[^:ABCDEFGHIJKLMNOPQRSTUVWXYZ:]","") $a = 1 MsgBox(0,"text",$Text) $DecryptText="" While $a