硬盘锁源程序

风般的男人
硬盘锁源程序，有兴趣的朋友看看，前提是你已经看了我的文章
http://www.lsky.net/bbs/viewtopic.php?p=73#73，这是文章提到的HDBOOT.EXE的源程序。如果你觉得对你有用，可以到http://www.heibai.net/download/show.php?id=2792下载。



;硬盘锁安装程序
DATA SEGMENT
D1 DB 0CDH,0BFH,0D1H,0E5H,0EAH,0CDH
D2 DB \'You had not install the HDLOCK,do you install?(y/n)\',0dh,0ah,\'$\'
D3 DB \'HDLOCK.DAT\',00H
D4 DB \'Can not find file (HDLOCK.DAT)\',0dh,0ah,\'$\'
D5 DB \'PASSWORD\',00H
D6 DB 1EH,06H,0B9H,00H,01H,0BFH,00H,06H,0B8H,00H,00H,8EH,0D8H,8EH,0C0H,0BEH;逻辑锁
DB 00H,7CH,0F2H,0A5H,0EAH,1AH,06H,00H,00H,90H,0EBH,09H,50H,41H,53H,53H
DB 57H,4FH,52H,44H,00H,0B8H,00H,06H,0B7H,0F0H,0B9H,00H,00H,0BAH,4FH,18H
DB 0CDH,10H,0B2H,01AH,0BEH,1CH,06H,0B4H,02H,0B6H,10H,0B7H,00H,0CDH,10H,8AH
DB 04H,3CH,00H,74H,1BH,0B4H,09H,0B9H,01H,00H,0B7H,00H,0B3H,70H,0CDH,10H
DB 0FEH,0C2H,46H,0EBH,0E2H,0CDH,20H,4FH,3DH,33H,0CDH,20H,33H,33H,33H,33H
DB 0B9H,04H,00H,0B8H,00H,00H,8EH,0C0H,0BFH,01H,08H,0F3H,0ABH,0B9H,09H,00H
DB 0BFH,01H,08H,0B2H,23H,0B4H,00H,0CDH,16H,3CH,0DH,74H,79H,0B4H,02H,90H
DB 90H,0B6H,10H,0B7H,00H,0CDH,10H,3CH,08H,74H,37H,50H,0B4H,0EH,0B0H,2AH
DB 0B3H,07H,0CDH,10H,58H,04H,23H,88H,05H,47H,49H,83H,0F9H,00H,74H,0AH
DB 0FEH,0C2H,0EBH,0D1H,24H,67H,00H,77H,69H,6EH,0B6H,10H,0B4H,02H,0B2H,23H
DB 0B7H,00H,0CDH,10H,0B4H,09H,0B0H,00H,0B3H,07H,0B9H,09H,00H,0CDH,10H,0EBH
DB 9FH,51H,51H,0B4H,03H,0B7H,00H,0CDH,10H,80H,0FAH,23H,74H,0A7H,81H,0FFH
DB 00H,08H,74H,0A1H,0B4H,02H,0FEH,0CAH,0CDH,10H,0B4H,0EH,0B0H,00H,0B3H,07H
DB 0CDH,10H,0B8H,00H,00H,89H,05H,4FH,89H,05H,59H,0EBH,88H,07H,43H,04H
DB 0E8H,86H,0CDH,20H,44H,44H,0B8H,00H,00H,8EH,0C0H,8EH,0D8H,0BEH,0B0H,07H
DB 0BFH,01H,08H,0B9H,04H,00H,0F3H,0A7H,74H,04H,0EBH,3CH,55H,55H,0B8H,00H
DB 00H,8EH,0C0H,0B8H,01H,02H,0B9H,02H,00H,0BAH,80H,00H,0BBH,00H,0F0H,0CDH
DB 13H,0B8H,01H,03H,0B9H,01H,00H,0BAH,80H,00H,0CDH,13H,0B8H,00H,00H,8EH
DB 0C0H,0B8H,01H,02H,0B9H,03H,00H,0BAH,80H,00H,0BBH,00H,7CH,0CDH,13H,0EAH
DB 00H,7CH,00H,00H,00H,00H,00H,00H,0B8H,00H,00H,8EH,0C0H,0B8H,01H,02H
DB 0B9H,04H,00H,0BAH,80H,00H,0BBH,00H,0F0H,0CDH,13H,0B8H,01H,03H,0B9H,01H
DB 00H,0BAH,80H,00H,0CDH,13H,0CDH,19H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 64H,64H,64H,64H,64H,64H,64H,64H,00H,00H,00H,00H,00H,00H,00H,00H
DB 01H,00H,05H,0FEH,7FH,05H,3FH,00H,00H,00H,47H,39H,40H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
DB 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,55H,0AAH
D7 DB \'You have been installed HDLOCK,do you remove?(y/n)\',0dh,\'$\'
D8 DB \'PASSWORD ERROR$\'
D9 DB 0dh,0ah
DB 0dh,0ah
DB \' # # # # # # # # # # # # #\',0dh,0ah
DB \' # # # # # # # # # # # # #\',0dh,0ah
DB \' # # # # # # # # # # # # #\',0dh,0ah
DB \' # # # # # # # # # # # # #\',0dh,0ah
DB \' # # # # # # # # # # # # # #\',0dh,0ah
DB 0dh,0ah
DB \' ----------# HARD DISK LOCK #------------\',0dh,0ah
DB \' BY:THE MAN LIKE WIND\',0dh,0ah
DB \' E-mail:tyhhyf@hotmail.com\',0dh,0ah
DB \' OICQ:86633320\',0dh,0ah
D10 DB \'Enter anykey to enter the PASSWORD.$\'
D11 DB \'Enter anykey to enter the PASSWORD again.$\'
D12 DB \'Error:Two PASSWORD is not alike!$\'
D13 DB \'The HDLOCK had been installed,please remember you PASSWORD!!!$\'
D14 DB \'The HDLOCK had been removed.$\'
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA,ES:DATA
START:
MOV AX,DATA
MOV DS,AX
MOV ES,AX
MOV DX,OFFSET D9
MOV AH,09H
INT 21H
MOV AH,00H
INT 16H
;判断是否安装过硬盘锁程序
NEXT:
MOV AX,0201H;读一扇区
MOV CX,0001H
MOV DX,0080H
MOV BX,0F000H
INT 13H
MOV AX,0201H
MOV CX,0001H
MOV DX,0080H
MOV BX,0E000H
INT 13H
MOV SI,0F1A0H
MOV DI,OFFSET D1
MOV CX,0003H
REPE CMPSW
JNZ INSTALL
JMP DEL
INSTALL:
MOV DX,OFFSET D2
MOV AH,09H
INT 21H
ENTER:
INT 16H
OR AL,20H
CMP AL,\'y\';是Y?
JE INSTALL1
CMP AL,\'n\'
JE EXIT
JMP ENTER
EXIT:
MOV AH,4CH
INT 21H
INSTALL1:
MOV AH,3DH
MOV DX,OFFSET D3
MOV AL,00H
INT 21H
JB AERROR
PUSH AX
MOV AH,3FH
MOV DX,0F000H
MOV CX,01BEH
POP BX
INT 21H
MOV AH,09H
MOV DX,OFFSET D10
INT 21H
MOV AH,00H
INT 16H
CALL NEAR PTR PWENTER
MOV SI,0F1B0H
MOV DI,0F3B0H
MOV CX,0004H
REPNZ MOVSW
MOV AH,06H
MOV AL,00H
MOV BH,07H
MOV CX,0000H
MOV DX,184FH
INT 10H
MOV DH,03H
MOV DL,00H
MOV BH,00H
MOV AH,02H
INT 10H
MOV AH,09H
MOV DX,OFFSET D11
INT 21H
MOV AH,00H
INT 16H
CALL NEAR PTR PWENTER
MOV SI,0F1B0H
MOV DI,0F3B0H
MOV CX,0008H
REPE CMPSB
JNZ EXIT4
JMP WRITE
AERROR:
MOV AH,09H
MOV DX,OFFSET D4
INT 21H
JMP EXIT
EXIT4:
MOV DH,03H
MOV DL,00H
MOV BH,00H
MOV AH,02H
INT 10H
MOV AH,06H
MOV AL,00H
MOV BH,07H
MOV CX,0000H
MOV DX,184FH
INT 10H
MOV AH,09H
MOV DX,OFFSET D12
INT 21H
MOV AH,4CH
INT 21H
WRITE:
MOV AX,0301H
MOV CX,0003H
MOV DX,0080H
MOV BX,0E000H
INT 13H
MOV BX,OFFSET D6
ADD BX,1B0H
MOV CX,4H
MOV SI,0F1B0H
MOV DI,BX
REPNZ MOVSW
MOV AX,0301H
MOV CX,0004H
MOV DX,0080H
MOV BX,OFFSET D6
INT 13H
MOV AX,0301H
MOV CX,0002H
MOV BX,0F000H
MOV DX,0080H
INT 13H
MOV AX,0301H
MOV CX,0001H
MOV BX,0F000H
MOV DX,0080H
INT 13H
MOV AH,06H
MOV AL,00H
MOV BH,07H
MOV CX,0000H
MOV DX,184FH
INT 10H
MOV DH,03H
MOV DL,00H
MOV BH,00H
MOV AH,02H
INT 10H
MOV AH,09H
MOV DX,OFFSET D13
INT 21H
JMP EXIT

DEL:
MOV DX,OFFSET D7
MOV AH,09H
INT 21H
ENTER2:
MOV AH,00H
INT 16H
OR AL,20H
CMP AL,\'y\'
JE UNLADE
CMP AL,\'n\'
JE EXIT1
JMP ENTER2
EXIT1:
MOV AH,4CH
INT 21H
UNLADE:
CALL NEAR PTR PWENTER
MOV SI,0F1B0H
MOV DI,0E1B0H
MOV CX,8H
REPE CMPSB
JNZ EXIT2
MOV AX,0201H
MOV CX,0003H
MOV BX,0F000H
MOV DX,0080H
INT 13H
MOV AX,0301H
MOV CX,0001H
MOV BX,0F000H
MOV DX,0080H
INT 13H
MOV DH,03H
MOV DL,00H
MOV BH,00H
MOV AH,02H
INT 10H
MOV AH,06H
MOV AL,00H
MOV BH,07H
MOV CX,0000H
MOV DX,184FH
INT 10H
MOV AH,09H
MOV DX,OFFSET D14
INT 21H
JMP EXIT
EXIT2:
MOV AH,09H
MOV DX,OFFSET D8
INT 21H
MOV AH,4CH
INT 21H
;子程序用于从键盘读密码
PWENTER PROC NEAR
PUSH AX
PUSH BX
PUSH CX
PUSH DX
MOV AX,0600H
MOV BH,0F0H
MOV CX,0000H
MOV DX,184FH
INT 10H
MOV DL,1AH
MOV SI,OFFSET D5
DISPLAY:
MOV AH,02H
MOV DH,10H
MOV BH,00H
INT 10H
MOV AL,[SI]
CMP AL,00H
JE GETPW
MOV AH,09H
MOV CX,01H
MOV BH,00H
MOV BL,70H
INT 10H
INC DL
INC SI
JMP DISPLAY
GETPW:
MOV CX,0004H
MOV AH,0000H
MOV DI,0F1B0H
REPZ STOSW
MOV CX,0009H
MOV DI,0F1B0H
MOV DL,23H
READKEY:
MOV AH,00H
INT 16H
CMP AL,0DH
JE OK
CMP AL,20H
JE READKEY
CMP AL,00H
JE READKEY
CMP AL,09H
JE READKEY
CMP AL,1BH
JE AESC
PUSH CX
MOV AH,02H
MOV DH,10H
MOV BH,00H
INT 10H
POP CX
CMP AL,08H
JE BACKSPACE
PUSH AX
MOV AH,0EH
MOV AL,2AH
MOV BL,07H
INT 10H
POP AX
ADD AL,23H
MOV [DI],AL
INC DI
DEC CX
CMP CX,00H
JE OVERFLOW
INC DL
JMP READKEY
OK:
POP AX
POP BX
POP CX
POP DX
RET
AESC:
MOV AH,4CH
INT 21H
OVERFLOW:
MOV DH,10H
MOV AH,02H
MOV DL,23H
MOV BH,00H
INT 10H
MOV AH,09H
MOV AL,00H
MOV BL,07H
MOV CX,0009H
INT 10H
JMP GETPW
BACKSPACE:
PUSH CX
MOV AH,03H
MOV BH,00H
INT 10H
POP CX
CMP DL,23H
JE READKEY
CMP DI,0F1AFH;
JE READKEY
PUSH CX
MOV AH,02H
DEC DL
INT 10H
POP CX
PUSH CX
MOV AH,0EH
MOV AL,00H
MOV BL,07H
INT 10H
POP CX
MOV AX,0000H
MOV [DI],AX
DEC DI
MOV [DI],AX
CMP CX,09H
JE AJUMP
INC CX
JMP AJUMP
AJUMP:
JMP READKEY
PWENTER ENDP
CODE ENDS
END START

不易呀！！多谢！

ding..................

学习下，谢过了