home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / ARC20.ARC / ARCMACS.ARC / CRYPT.MAC < prev    next >
Text File  |  1989-10-17  |  788b  |  35 lines
  1. ; FUNCTION CRYPT f}r Turbo
  2. ; 171089 Tilmann Reh
  3.     .z80
  4.  
  5.     extrn    cod,pass,crypt_point
  6.  
  7.     ld    a,(pass)    ; L{nge des Passwortstrings
  8.     or    a        ; Null ?
  9.     ld    hl,(cod)
  10.     ld    h,0        ; Code in HL
  11.     ret    z        ; kein Passwort : Code unver{ndert
  12.     ld    b,a        ; Passwortl{nge in B
  13.     ld    a,l        ; Code in A
  14.     ld    de,(crypt_point) ; Zeiger auf String
  15.     ld    d,0
  16.     ld    hl,pass
  17.     add    hl,de        ; Zeiger auf Schl}sselzeichen
  18.     xor    (hl)        ; Zeichen verschl}sseln
  19.     ld    l,a
  20.     ld    h,0        ; Ergebnis in HL
  21.     push    hl
  22.     ld    a,e        ; CRYPT_POINT
  23.     cp    b        ; Vergleich mit Passwortl{nge
  24.     jr    nc,set0        ; erreicht: auf Null setzen
  25.     inc    a
  26.     ld    (crypt_point),a    ; sonst erh|hen und speichern
  27.     pop    hl
  28.     ret            ; mit Ergebnis in HL zur}ck
  29. set0:    ld    a,1
  30.     ld    (crypt_point),a    ; Zeiger r}cksetzen
  31.     pop    hl
  32.     ret            ; mit Ergebnis in HL zur}ck
  33.  
  34.     end
  35.