>FOR nCnt = 1TOLEN( ALLTRIM( lCrypted))
> lDecryptedpass = lDecryptedpass + CHR( ASC( SUBS( lCrypted, nCnt, 1)) ;
> - 100) && change this number to 101 to match your encript Function
>ENDFOR
Change the 100 to 101. my bad :-)
What is Wisdom? Wisdom - The ability to respond to any situation according to God's Plan. Therefore: USE Wisdom IN Everything ORDER priority AS Knowledge SELECT Knowledge BROWSEFOR Understanding WHERE Wisdom=Guide
