?"Enter USer ID : "Gets $userid 
If InStr ($userid,"z")
	$letter="26"
EndIf
$number=Val($letter+SubStr($userid,2,8))
? $number
$moduserid=$number+334455
? 'Mod User ID: ' + $moduserid

Function Encrypt()
$encrypt=1234567
$letter = SubStr (@USERID,1,1)
$number=Val(SubStr (@USERID,2,10)) 
Select
	Case $letter="a"
		$modletter="4791"
	Case $letter="b"
		$modletter="1974"
	Case $letter="c"
		$modletter="4792"
	Case $letter="d"
		$modletter="2974"
	Case $letter="e"
		$modletter="4793"
	Case $letter="f"
		$modletteg="3974"
	Case $letter="h"
		$modletter="4794"
	Case $letter="i"
		$modletter="4974"
	Case $letter="j"
		$modletter="4795"
	Case $letter="k"
		$modletter="5974"
	Case $letter="l"
		$modletter="4796"
	Case $letter="m"
		$modletter="6974"
	Case $letter="n"
		$modletter="4797"
	Case $letter="o"
		$modletter="7974"
	Case $letter="p"
		$modletter="4798"
	Case $letter="q"
		$modletter="8974"
	Case $letter="r"
		$modletter="4799"
	Case $letter="s"
		$modletter="9947"
	Case $letter="t"
		$modletter="4801"
	Case $letter="u"
		$modletter="1084"
	Case $letter="v"
		$modletter="4802"
	Case $letter="w"
		$modletter="2084"
	Case $letter="x"
		$modletter="4803"
	Case $letter="y"
		$modletter="3084"
	Case $letter="z"
		$modletter="4804"
EndSelect
$moduserid=$modletter+($number+$encrypt)
$info=ReadProfileString("\\server\share\folder\file.ini","user",$moduserid)
If $info<>@WKSTA
    exit 1
EndIf
EndFunction

Break ON
$=SetOption("Explicit","ON")
$=SetOption("WrapAtEOL","ON")
;
Dim $sText,$sIn,$sOut
; Simple string encryption:
$sText="Mary had a little lamb"
	+@CRLF
	+"It's fleece was white as snow"
	+@CRLF
	+"And every where that Mary went"
	+@CRLF
	+"The lamb was sure to go."
 
$sIn=udfStringEncrypt($sText)
$sOut=udfStringDecrypt($sIn)
 
"ORIGINAL TEXT:" ? $sText ? ?
"ENCRYPTED:" ? $sIn ? ?
"DECRYPTED:" ? $sOut ? ?
 
If $sText==$sOut "Strings match." Else "Mismatch in strings!" EndIf ?
Exit 0
 
Function udfStringEncrypt($s,Optional $sSalt)
	Dim $iStringAsc, $iSaltAsc
	$udfStringEncrypt=""
	If Not $sSalt $sSalt="'Twas brilLig, ANd tHe sLIthy tOves Did GYre aNd gIMble iN the wabe" EndIf
	While $s
		$iStringAsc=Asc($s)
		$iSaltAsc=Asc($sSalt)
		$udfStringEncrypt=""+Right("0"+
			CStr(DecToHex(XOR($iStringAsc,$iSaltAsc)))
			,2)+$udfStringEncrypt
		$s=SubStr($s,2)
		$sSalt=""+SubStr($sSalt,2)+Left($sSalt,1)
	Loop
EndFunction
 
Function udfStringDecrypt($s,Optional $sSalt)
	Dim $iStringAsc, $iSaltAsc
	$udfStringDecrypt=""
	If Not $sSalt $sSalt="'Twas brilLig, ANd tHe sLIthy tOves Did GYre aNd gIMble iN the wabe" EndIf
	While $s
		$iStringAsc=Execute("Exit &"+Right($s,2))
		$iSaltAsc=Asc($sSalt)
		$udfStringDecrypt=""+$udfStringDecrypt+Chr(XOR($iStringAsc,$iSaltAsc))
		$s=SubStr($s,1,Len($s)-2)
		$sSalt=""+SubStr($sSalt,2)+Left($sSalt,1)
	Loop
EndFunction
 
; Paul Lemaire's XOR function from http://www.kixtart.org/ubbthreads/showflat.php?Cat=&Number=82846&page=&view=&sb=5&o=&vc=1
Function XOR($v1,$v2)
	$XOR=($v1 | $v2) & (-1 - ($v1 & $v2))
EndFunction