home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / DOC-CRK.ZIP / DOC1.ASM < prev    next >
Assembly Source File  |  1996-07-08  |  2KB  |  93 lines

  1. ;Source Code for DOC1.COM.
  2. ;By Megaton Man
  3. ;5/26/89
  4. ;Call Roach Motel
  5. ;818-369-2083
  6. ;12/24/9600
  7. ;NAPPA #14
  8. ;Sysop : Black Flag
  9.  
  10.  
  11. Code      Segment
  12.           Org 100h
  13.           Assume CS:Code,DS:Code
  14.  
  15. Start:    Jmp Begin
  16.  
  17. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%% Variables %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%;
  18. Message   db  0dh,0ah,'File Name : DOC1.COM',0dh,0ah
  19.           db  'by Megaton Man',0dh,0ah
  20.           db   0dh,0ah
  21.           db  'You must use ALL UPCASE when typing PASSWORD',0dh,0ah
  22.           db  'ENTER THE PASSWORD : '
  23.           db  '$'
  24.  
  25. Crack     db  0dh,0ah,0dh,0ah,'Ok, The game is Cracked!$'
  26. Eat       db  0dh,0ah,0dh,0ah,'The game is NOT CRACKED!$'
  27. Password  db  'MEGATON MAN'
  28. INPUT     db  50 dup (0)
  29. ;======================================================================;
  30.  
  31. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Program %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%;
  32. Begin:
  33.           Call   ASK
  34.           Or     ax,ax
  35.           JNE    Good
  36.           Call   Eatit
  37.     Good: Call   Cracked
  38.  
  39.           Int    20h
  40. ;======================================================================;
  41.  
  42. ;%%%%%%%%%%%%%%%%%%%%%%%%%%% Sub Routines %%%%%%%%%%%%%%%%%%%%%%%%%%%%%;
  43. ASK       Proc   Near
  44.           Mov    AH,09h
  45.           Mov    DX,offset Message
  46.           INT    21h
  47.  
  48.           MOv    SI,offset INPUT
  49.           Call   INLine
  50.  
  51.           Lea    SI,INPUT
  52.           Lea    DI,Password
  53.           MOV    CX,0bh
  54.           REPE   CMPSB
  55.           MOV    AX,0
  56.           OR     CX,CX
  57.           JNE    ASK1
  58.           MOV    AX,0001
  59. ASK1:     RET
  60. ASK       EndP
  61.  
  62. Cracked   Proc   Near
  63.           Mov    AH,09h
  64.           Mov    DX,offset Crack
  65.           Int    21h
  66.           INT    20h
  67. Cracked   endP
  68.  
  69. EatIt     Proc   Near
  70.           Mov    AH,09h
  71.           Mov    DX,offset Eat
  72.           Int    21h
  73.           INt    20h
  74. Eatit     Endp
  75.  
  76. INLine    Proc   Near
  77.    read:  Xor    ax,ax
  78.           int    16h
  79.           mov    [si],al   ;save char
  80.           cmp    al,0dh
  81.           je     bail
  82.           inc    si
  83.           mov    dl,al
  84.           mov    ah,02h
  85.           int    21h
  86.           jmp    read
  87.     bail: ret
  88. INline    ENDP
  89.  
  90. ;======================================================================;
  91.  
  92. Code      Ends
  93.           End    Start