Break on

;Set the encryption key.
$EncryptionKey = UCase("encryption key goes here")
;Set the text you want to encrypt.
$text = "TEXT YOU WANT TO ENCRYPT"
;Encrypt text.
$TextEncrypted = Vigenere($EncryptionKey, $text)
;Show encrypted text.
? $TextEncrypted
;Decrypt text.
$TextDecrypted = Vigenere($EncryptionKey, $TextEncrypted, 1)
;Show decryptedt text.
?$TextDecrypted

Sleep 5

;Parameters are $key (Key, must be in uppercase), $text (string to encrypt, must be in uppercase) And $decrypt (0=encrypt, 1=decrypt).
;in this version you can define the alphabet which will be accepted, so it can be scaled to most needs:
; The alphabet used in the UDF is the classic "English letters only" version.
; If you want a richer alphabet, just change $ to reflect it, for example:
; $="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 !"£$%^&*()_+{}:@~<>?,./;'#[]-="+'"'
; If you want to use lower case, don't for get to set case sensitivity on.

Function Vigenere($key,$text,Optional $decrypt)
	Dim $range
	$range = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 /"
	While $text
		$i=InStr($range,Left($text,1))
		If $i
			$Vigenere=$Vigenere+SubStr($range+$range+$range,$i+Len($range)+(1-2*$decrypt)*(Asc($key)-65),1)
			$key=SubStr($key,2)+Left($key,1)
		EndIf
		$text=SubStr($text,2)
	Loop
EndFunction

kgt+,x*6]1io^t7nq8 w|6a⌂XyOi%f+(~~z{o$u⌂^e{⌂m1,\ )ozdx% `l{'⌂" xhvv