<% estr="53972874216782135897"
' This coding string can be changed, but only if you don't have users
' in database (passv.t#t file).
' Warning: only digits are accepted !

function substr(ssstring,sspos,sslen)
  substr=left(right(ssstring,len(ssstring)-sspos+1),sslen)
end function

function encode(istr)
  encode=""
  for n=1 to len(istr)
    encode=encode&chr(asc(substr(istr,n,1))+176-asc(substr(estr,n,1)))
  next
end function

function decode(istr)
  decode=""
  for n=1 to len(istr)
    decode=decode&chr(asc(substr(istr,n,1))-176+asc(substr(estr,n,1)))
  next
end function

function checkstr(chstring)
  checkstr=true
  for n=1 to len(chstring)
    cchr=asc(right(left(chstring,n),1))
    checkstr=checkstr and cchr>31 and cchr<127
  next
end function
%>