- alias crypt+ {
- var %i 1, %l $len($1-), %crypt, %crypt2
- while %i <= %l {
- %crypt2 = $replace($asc($mid($replace($1-,$chr(32),$chr(160)),%i,1)),0,a,1,b,2,c,3,d,4,e,5,f,6,g,7,h,8,i,9,j)
- %crypt = $+(%crypt,%crypt2,$chr(46))
- inc %i
- }
- return %crypt
- }
- alias crypt- {
- var %i 1, %l $len($1-), %decrypt, %decrypt2
- while %i <= %l {
- %decrypt2 = $replace($gettok($1-,%i,46),a,0,b,1,c,2,d,3,e,4,f,5,g,6,h,7,i,8,j,9)
- %decrypt = $+(%decrypt,$chr(%decrypt2))
- inc %i
- }
- return %decrypt
- }
alias crypt+ {
var %i 1, %l $len($1-), %crypt, %crypt2
while %i <= %l {
%crypt2 = $replace($asc($mid($replace($1-,$chr(32),$chr(160)),%i,1)),0,a,1,b,2,c,3,d,4,e,5,f,6,g,7,h,8,i,9,j)
%crypt = $+(%crypt,%crypt2,$chr(46))
inc %i
}
return %crypt
}
alias crypt- {
var %i 1, %l $len($1-), %decrypt, %decrypt2
while %i <= %l {
%decrypt2 = $replace($gettok($1-,%i,46),a,0,b,1,c,2,d,3,e,4,f,5,g,6,h,7,i,8,j,9)
%decrypt = $+(%decrypt,$chr(%decrypt2))
inc %i
}
return %decrypt
}