home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / bcrypt10.zip / BCRYPT.BI next >
Text File  |  1993-02-01  |  1KB  |  53 lines
  1.   '
  2.   '  BCRYPT 1.00
  3.   '
  4.   '  Declarations
  5.   '
  6.   '  Copyright 1993, J.D. Lyons, Mountain Bay Software
  7.   '
  8.   '  Password, key and string creation.
  9.   '
  10.   DECLARE FUNCTION Argen% (rseed$)
  11.   DECLARE FUNCTION MakeAlpha$ ()
  12.   DECLARE SUB MakeAlphaArray (A$())
  13.   DECLARE SUB MakeAlphaNumArray (A$())
  14.   DECLARE FUNCTION MakeAlphaNum$ ()
  15.   DECLARE FUNCTION MakeLong$ ()
  16.   DECLARE SUB MakeLongArray (A%())
  17.   DECLARE FUNCTION MakePass$ (tf%, lf%)
  18.   DECLARE FUNCTION MKLong$ (Key$)
  19.   DECLARE FUNCTION MKAlphaNum$ (Key$)
  20.   DECLARE FUNCTION MKAlpha$ (Key$)
  21.   DECLARE FUNCTION Mskey$ (strln%, sbv%, ssv%)
  22.   '
  23.   '  String handling.
  24.   '
  25.   DECLARE FUNCTION Reverse$ (Istrg$)
  26.   DECLARE FUNCTION Rol$ (Istrg$)
  27.   DECLARE FUNCTION Ror$ (Istrg$)
  28.   DECLARE FUNCTION Scramble$ (Istrg$, Key$, Scrambleflag%)
  29.   '
  30.   '  XOR encryption
  31.   '
  32.   DECLARE FUNCTION XorString$ (Istrg$, ckey%)
  33.   DECLARE FUNCTION XorKey$ (Istrg$, ckey$)
  34.   DECLARE FUNCTION XorRkn$ (Istrg$, strt%, stp%)
  35.   DECLARE FUNCTION XorRks$ (Istrg$, kst$, kpos%)
  36.   DECLARE FUNCTION XorSingle$ (Istrg$, ckey%)
  37.   '
  38.   '  CRC Calculations
  39.   '
  40.   DECLARE FUNCTION CRC32& (X$)
  41.   '
  42.   '  Compression functions
  43.   '
  44.   DECLARE FUNCTION LZ.Decompress% (A$, B$, Bytes.Out%)
  45.   DECLARE FUNCTION LZ.Compress% (A$, B$, Bytes.Out%)
  46.   '
  47.   '  Rotation/Encryption functions
  48.   '
  49.   DECLARE FUNCTION Rot13A$ (Istrg$)
  50.   '
  51.   '  End
  52.   '
  53.