SBP
 ˙½ *** Demonstration of SBCRYPT.DLL
 ˙½ *** ----------------------------
 ˙½ *** if you using Superbase 95,
 ˙½ *** please open a window before
 ˙½ *** using the demo program.
 ˙½ *** 
 ˙½ *** you must have SBCRYPT.DLL 
 ˙½ *** installed in the same directory
 ˙½ *** or in the windows directory.
 ˙½ 
 ˙½ ------------------------------------
˙˙main():˙½ Demo program for crypt dll
 ˙½ ------------------------------------

˙î˙…
˙î"sbcrypt.dll","InitDLL","ICC"
˙î"sbcrypt.dll","EncodePassword","IFCC"
˙î"sbcrypt.dll","StringEncode","IFCC"
˙î"sbcrypt.dll","StringDecode","IFCC"
xvoid%%˙˙ƒ("InitDLL","","")
˙½ HOME :CLS 
˙Ê˙f˙e
˙½ --- Password-Demo
˙{"** Password - Demo ***"
˙Ĝ˙1
xname$˙""
˙Â"Please enter your name:","",4,xdlg%%,xname$,50
˙Ħxdlg%%˙0˙p˙’˙Ĝ
xname$˙˙H(˙F(xname$))
˙Ħxname$˙""˙p˙’˙Ĝ
˙Ù
˙Ħxdlg%%˙0˙p˙wdemocancel
˙{"Username...........:";xname$
xpwd$˙""
˙Âxname$,"Please enter password:",4,xdlg%%,xpwd$,50
xvoid%%˙˙ƒ("EncodePassword",xepwd$,xname$,xpwd$)
˙{"Clear password.....:";xpwd$
˙{"Encoded password...:";xepwd$

˙½ --- Text encode/decode    
˙{"** Text encode/decode ***"
textloop: 
xtext$˙""
˙Â"You must enter text now:","",4,xdlg%%,xtext$,50
˙Ħxdlg%%˙0˙p˙wdemocancel
˙Ħxtext$˙""˙p˙wtextloop
˙{"The clear text......:";xtext$
keyloop: 
xkey$˙""
˙Âxtext$,"You must enter a key to encode:",4,xdlg%%,xkey$,50
˙Ħxdlg%%˙0˙p˙wdemocancel
˙Ħxkey$˙""˙p˙wkeyloop
˙{"Your key to encode.....:";xkey$
xvoid%%˙˙ƒ("StringEncode",xencode$,xtext$,xkey$)
˙{"The encoded text.......:";xencode$
keyloop1: 
xkey$˙""
˙Â"You must enter the same key to decode:","",4,xdlg%%,xkey$,50
˙Ħxdlg%%˙0˙p˙wdemocancel
˙Ħxkey$˙""˙p˙wkeyloop1
˙{"Your key to decode.....:";xkey$
xvoid%%˙˙ƒ("StringDecode",xdecode$,xencode$,xkey$)
˙{"The decoded text.......:";xdecode$
 
˙wdemoexit

democancel: 
˙Â"Why canceled ?","",2
˙wdemoexit
demoexit:
˙{""
˙î˙…
˙Ê˙f˙³
 ˙’˙˙