- alias crypt+ {
- var %i 1, %l $len($1-), %crypt
- while %i <= %l {
- %crypt = $+(%crypt,$asc($mid($replace($1-,$chr(32),$chr(160)),%i,1)),$chr(46))
- inc %i
- }
- return %crypt
- }
-
- alias crypt- {
- var %i 1, %l $len($1-), %decrypt
- while %i <= %l {
- %decrypt = $+(%decrypt,$chr($gettok($1-,%i,46)))
- inc %i
- }
- return %decrypt
- }
-
alias crypt+ {
var %i 1, %l $len($1-), %crypt
while %i <= %l {
%crypt = $+(%crypt,$asc($mid($replace($1-,$chr(32),$chr(160)),%i,1)),$chr(46))
inc %i
}
return %crypt
}
alias crypt- {
var %i 1, %l $len($1-), %decrypt
while %i <= %l {
%decrypt = $+(%decrypt,$chr($gettok($1-,%i,46)))
inc %i
}
return %decrypt
}