home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 008 / beechl.zip / ENCRYPT.CH < prev    next >
Text File  |  1993-12-25  |  1KB  |  37 lines
  1. #command @ <row>, <col> GET <var> ;
  2.           [<clauses,...>] ;
  3.           PASSWORD ;
  4.           [<moreClauses,...>] ;
  5.           =>  @ <row>, <col> GET <var> ;
  6.           [<clauses>] ;
  7.           SEND reader := {|g| PASS_READER(g)} SEND cargo := {"password", ""} ;
  8.           [<moreClauses>]
  9.  
  10. #command READ PASSWORD ;
  11.           =>  readmodal(getlist);;
  12.           unprotect(getlist);;
  13.           getlist := {}
  14.  
  15. #xcommand CODE FILE <file> [PASSWORD <password>];
  16.           =>;
  17.           db_encrypt(<(file)>,<(password)>)
  18.  
  19. #xcommand DECODE FILE <file> [PASSWORD <password>];
  20.           =>;
  21.           db_unencrypt(<(file)>,<(password)>)
  22.  
  23. #xCommand PASSWORD <password> TO <var>;
  24.           =>;
  25.           <var> := encrypt(<(password)>)
  26.  
  27.  
  28. #command ENCODE <file1> TO <file2> [PASSWORD <password>] [<del:DELETE>];
  29.           =>;
  30.           fi_code(<(file1)>,<(password)>,<(file2)>,<.del.>)
  31.  
  32. #command DECODE <file1> TO <file2> [PASSWORD <password>] [<del:DELETE>];
  33.           =>;
  34.           fi_decode(<(file1)>,<(password)>,<(file2)>,<.del.>)
  35.  
  36.  
  37.