Collection of Hack-Phreak Scene Programs

home *** CD-ROM | disk | FTP | other *** search

/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / KAOS1_38.ZIP / KAOS1-38

Wrap

Text File | 1993-06-02 | 28KB | 930 lines

Chaos Digest Jeudi 27 Mai 1993 Volume 1 : Numero 38 ISSN 1244-4901 Editeur: Jean-Bernard Condat (jbcondat@attmail.com) Archiviste: Yves-Marie Crabbe Co-Redacteurs: Arnaud Bigare, Stephane Briere TABLE DES MATIERES, #1.38 (27 Mai 1993) File 1--40H VMag Issue 1 Volume 3 #004(2) (reprint) Chaos Digest is a weekly electronic journal/newsletter. Subscriptions are available at no cost by sending a message to: linux-activists-request@niksula.hut.fi with a mail header or first line containing the following informations: X-Mn-Admin: join CHAOS_DIGEST The editors may be contacted by voice (+33 1 47874083), fax (+33 1 47877070) or S-mail at: Jean-Bernard Condat, Chaos Computer Club France [CCCF], B.P. 155, 93404 St-Ouen Cedex, France. He is a member of the EICAR and EFF (#1299) groups. Issues of ChaosD can also be found from the ComNet in Luxembourg BBS (+352) 466893. Back issues of ChaosD can be found on the Internet as part of the Computer underground Digest archives. They're accessible using anonymous FTP: * kragar.eff.org [192.88.144.4] in /pub/cud/chaos * uglymouse.css.itd.umich.edu [141.211.182.53] in /pub/CuD/chaos * halcyon.com [192.135.191.2] in /pub/mirror/cud/chaos * ftp.cic.net [192.131.22.2] in /e-serials/alphabetic/c/chaos-digest * ftp.ee.mu.oz.au [128.250.77.2] in /pub/text/CuD/chaos * nic.funet.fi [128.214.6.100] in /pub/doc/cud/chaos * orchid.csv.warwick.ac.uk [137.205.192.5] in /pub/cud/chaos CHAOS DIGEST is an open forum dedicated to sharing French information among computerists and to the presentation and debate of diverse views. ChaosD material may be reprinted for non-profit as long as the source is cited. Some authors do copyright their material, and they should be contacted for reprint permission. Readers are encouraged to submit reasoned articles in French, English or German languages relating to computer culture and telecommunications. Articles are preferred to short responses. Please avoid quoting previous posts unless absolutely necessary. DISCLAIMER: The views represented herein do not necessarily represent the views of the moderators. Chaos Digest contributors assume all responsibility for ensuring that articles submitted do not violate copyright protections. ---------------------------------------------------------------------- Date: Tue May 11 09:24:40 PDT 1993 From: 0005847161@mcimail.com (American_Eagle_Publication_Inc. ) Subject: File 1--40H VMag Issue 1 Volume 3 #004(2) (reprint) [suite du listing du SCAN de John McAfee] sub_4: mov bx,ax mov cl,4 shr bx,cl call sub_5 mov bx,ax sub_5: and bx,0Fh mov dl,data_19[bx] sub_6: loc_15: push ax mov ah,2 int 21h pop ax retn sub_7: mov dl,2Dh jmp short loc_15 sub_8: mov dl,0Dh call sub_6 mov dl,0Ah jmp short loc_15 loc_16: mov dx,624h mov cx,29h loc_17: mov bx,2 push ax mov ah,40h int 21h jc loc_18 pop ax loc_18: mov ah,4Ch int 21h sub_3 endp sub_9 proc near xor bx,bx xor cx,cx inc si lodsb loc_19: mov cl,al mov ax,1 shl ax,cl or bx,ax lodsb cmp al,0C8h jb loc_19 mov cl,8 mov di,656h mov ax,bx loc_20: stosw shr ax,1 jnc loc_21 xor ax,bx loc_21: dec cl jnz loc_20 retn sub_9 endp sub_10 proc near mov si,656h xor dx,dx loc_22: mov cx,dx mov bx,si xor ax,ax loc_23: shl cl,1 jnc loc_24 xor ax,[bx] loc_24: add bx,2 or cl,cl jnz loc_23 stosw inc dl jnz loc_22 retn sub_10 endp sub_11 proc near loc_25: lodsb mov bl,cl xor bl,al xor bh,bh mov cl,ch mov ch,0 add bx,bx xor cx,[bx+di] dec dx jnz loc_25 retn sub_11 endp data_27 dw 4240h data_28 dw 0Fh data_29 dw 3E8h data_30 dw 0Ah sub_12 proc near cmp dx,data_28 jb loc_32 ja loc_26 cmp ax,data_27 jb loc_32 loc_26: mov bx,data_27 mov cx,data_28 xor si,si loc_27: inc si shl bx,1 rcl cx,1 jno loc_27 xor di,di loc_28: shl di,1 cmp dx,cx jb loc_30 ja loc_29 cmp ax,bx jb loc_30 loc_29: sub ax,bx sbb dx,cx inc di loc_30: shr cx,1 rcr bx,1 dec si jge loc_28 push dx push ax mov ax,di xor dx,dx call sub_14 mov al,2Ch call sub_19 pop ax pop dx div data_29 push dx call sub_15 jmp short loc_33 sub_13: xor dx,dx cmp ax,2710h jae loc_32 cmp ax,3E8h jb loc_32 div data_29 or ax,ax push dx jz loc_31 call sub_16 loc_31: pop ax jmp short loc_34 sub_14: loc_32: div data_29 push dx or ax,ax jz loc_31 call sub_16 loc_33: mov al,2Ch call sub_19 pop ax sub_15: xor dx,dx div data_30 jmp loc_35 db 88h, 0E0h, 32h, 0E4h sub_16: loc_34: cmp ax,0Ah jb loc_37 xor dx,dx div data_30 cmp al,0Ah jb loc_36 loc_35: push dx xor dx,dx div data_30 call sub_17 pop ax jmp loc_37 sub_17: loc_36: push dx call sub_18 pop ax sub_18: loc_37: add al,30h sub_19: mov ah,2 mov dl,al int 21h retn sub_12 endp db 0Dh, 0Ah, ' Sorry, I cannot open ' db 'the input file.', 0Dh, 0Ah, 0Dh, 0Ah db ' Sorry, I cannot read the input ' db 'file.', 0Dh, 0Ah db 90h data_32 dw 0 data_33 dw 0 data_34 dw 0 data_35 dw 0 db 0ACh, 29h, 0ADh, 29h, 0AEh, 29h db 0AFh, 29h, 0B0h, 29h, 0E9h, 70h db 2, 0E9h, 49h, 2 db 14 dup (0) db 0E9h, 0C7h, 0, 0Dh, 0, 0 db 0 db 44h, 29h db 42 dup (0) db 0CCh, 7, 6, 7 db 13 dup (0) db 3, 2, 0CFh, 0C8h, 0Dh, 0C9h db 0Dh db 79 dup (0) db 0Dh, 0Ah, 'Please enter the passw' db 'ord now: ' db 0 db 0Dh, 0Ah, 'This program requires ' db 'DOS 3.00 or greater' db 7, 0Dh, 0Ah, 0, 5Ch, 2Ah db 2Eh, 2Ah, 0 db 0Dh, 0Ah, '%%211#---4677^^^%' db 7, 0Dh, 0Ah, 0, 42h, 23h db 0 db 305 dup (0) db 50h, 53h, 0A1h, 1, 1, 5 db 3, 1, 0D1h, 0E8h, 0D1h, 0E8h db 0D1h, 0E8h, 0D1h, 0E8h, 8Bh, 0D8h db 8Ch, 0C8h, 3, 0C3h, 50h, 0B8h db 6Bh, 2, 50h, 0CBh, 5Bh, 58h db 2Eh, 0C6h, 6, 1Ah, 0, 0FFh db 2Eh, 8Ch, 6, 1Bh, 1, 2Eh db 0A3h, 1Dh, 1, 2Eh, 89h, 26h db 1Fh, 1, 2Eh, 8Ch, 16h, 21h db 1, 8Ch, 0C8h, 8Eh, 0D0h, 0BCh db 4Fh, 2, 2Eh, 0A1h, 1Dh, 1 db 50h, 53h, 51h, 52h, 56h, 57h db 55h, 1Eh, 6, 8Ch, 0C8h, 8Eh db 0D8h, 8Eh, 0C0h, 0A0h, 1Bh, 0 db 3Ch, 50h, 75h, 6, 0E8h, 6Ah db 0, 0EBh, 15h, 90h, 3Ch, 44h db 75h, 6, 0E8h, 78h, 0, 0EBh db 0Bh, 90h loc_38: cmp al,4Ch jne loc_39 call sub_21 jmp short loc_40 loc_39: stc loc_40: pop es pop ds pop bp pop di pop si pop dx pop cx pop bx cmp byte ptr cs:data_7e,0 je loc_41 mov ax,cs:data_4e mov ds:data_1e,ax mov ax,cs:data_5e mov ds:data_2e,ax mov ax,100h mov cs:data_4e,ax mov cs:data_5e,ds jmp short loc_42 loc_41: mov ax,cs sub ax,cs:data_6e add cs:data_5e,ax loc_42: pop ax mov ss,word ptr cs:[121h] mov sp,word ptr cs:[11Fh] jmp dword ptr cs:data_4e db 0BAh, 4, 1, 0E8h, 0BCh, 0 db 0B8h, 0FFh, 4Ch, 0CDh, 21h, 0BAh db 0AEh, 0, 0E8h, 0B1h, 0, 0C6h db 6, 58h, 0, 29h, 0BAh, 58h db 0, 0E8h, 74h, 0, 0E8h, 0BDh db 0, 0E8h, 87h, 0, 0C3h sub_20 proc near mov ah,2Ah int 21h cmp cx,ds:data_8e jb loc_44 cmp dh,ds:data_9e jb loc_44 cmp dl,ds:data_10e jb loc_44 jmp short loc_44 db 90h, 0B4h, 30h, 0CDh, 21h, 3Ch db 3, 73h, 4, 0F8h, 0EBh, 25h db 90h, 1Eh, 6, 32h, 0C0h, 0B9h db 0, 80h, 2Eh, 8Eh, 6, 1Bh db 1, 26h, 8Eh, 6, 2Ch, 0 db 33h, 0FFh loc_43: repne scasb scasb jnz loc_43 add di,2 push es pop ds mov dx,di mov ah,41h clc pop es pop ds loc_44: cmc retn sub_20 endp sub_21 proc near mov ah,1Ah mov dx,83h int 21h mov ah,4Eh mov cx,8 mov dx,0FFh int 21h mov si,0A1h mov di,4Bh cld loc_45: lodsb scasb stc jnz loc_ret_46 or al,al jnz loc_45 loc_ret_46: retn sub_21 endp sub_22 proc near push ax push bx push cx mov ah,0Ah int 21h mov bx,dx inc bx mov cl,[bx] xor ch,ch jcxz loc_48 locloop_47: inc bx not byte ptr [bx] loop locloop_47 loc_48: pop cx pop bx pop ax retn sub_22 endp sub_23 proc near push cx push si push di mov cl,ds:data_11e xor ch,ch mov si,59h mov di,1Dh cld repe cmpsb jz loc_49 stc loc_49: pop di pop si pop cx retn sub_23 endp sub_24 proc near push bx push dx mov bx,dx loc_50: mov dl,[bx] or dl,dl jz loc_51 call sub_25 inc bx jmp short loc_50 loc_51: pop dx pop bx retn sub_24 endp sub_25 proc near push ax mov ah,2 int 21h pop ax retn sub_25 endp sub_26 proc near push dx mov dl,0Dh call sub_25 mov dl,0Ah call sub_25 pop dx retn sub_26 endp db 0, 0, 0, 0, 0ACh, 29h db 0ADh, 29h, 0AEh, 29h, 0AFh, 29h db 0B0h, 29h, 0E9h, 70h, 2, 0E9h db 49h, 2 db 14 dup (0) db 0E9h, 60h, 5, 0Dh, 0, 0 db 0 db 44h, 29h db 42 dup (0) db 0EAh, 7, 0Ch, 1Fh, 0 db 12 dup (0) db 3, 2, 0CCh, 0CEh, 0Dh, 0C9h db 0Dh db 79 dup (0) db 0Dh, 0Ah, 'Please enter the passw' db 'ord now: ' db 0 db 0Dh, 0Ah, 'This program requires ' db 'DOS 3.00 or greater' db 7, 0Dh, 0Ah, 0, 5Ch, 2Ah db 2Eh, 2Ah, 0 db 0Dh, 0Ah, '%%211#---4677^^^%' db 7, 0Dh, 0Ah, 0, 42h, 23h db 0 db 305 dup (0) db 50h, 53h, 0A1h, 1, 1, 5 db 3, 1, 0D1h, 0E8h, 0D1h, 0E8h db 0D1h, 0E8h, 0D1h, 0E8h, 8Bh, 0D8h db 8Ch, 0C8h, 3, 0C3h, 50h, 0B8h db 6Bh, 2, 50h, 0CBh, 5Bh, 58h db 2Eh, 0C6h, 6, 1Ah, 0, 0FFh db 2Eh, 8Ch, 6, 1Bh, 1, 2Eh db 0A3h, 1Dh, 1, 2Eh, 89h, 26h db 1Fh, 1, 2Eh, 8Ch, 16h, 21h db 1, 8Ch, 0C8h, 8Eh, 0D0h, 0BCh db 4Fh, 2, 2Eh, 0A1h, 1Dh, 1 db 50h, 53h, 51h, 52h, 56h, 57h db 55h, 1Eh, 6, 8Ch, 0C8h, 8Eh db 0D8h, 8Eh, 0C0h, 0A0h, 1Bh, 0 db 3Ch, 50h, 75h, 6, 0E8h, 6Ah db 0, 0EBh, 15h, 90h, 3Ch, 44h db 75h, 6, 0E8h, 78h, 0, 0EBh db 0Bh, 90h loc_52: cmp al,4Ch jne loc_53 call sub_28 jmp short loc_54 loc_53: stc loc_54: pop es pop ds pop bp pop di pop si pop dx pop cx pop bx cmp byte ptr cs:data_7e,0 je loc_55 mov ax,cs:data_4e mov ds:data_1e,ax mov ax,cs:data_5e mov ds:data_2e,ax mov ax,100h mov cs:data_4e,ax mov cs:data_5e,ds jmp short loc_56 loc_55: mov ax,cs sub ax,cs:data_6e add cs:data_5e,ax loc_56: pop ax mov ss,word ptr cs:[121h] mov sp,word ptr cs:[11Fh] jmp dword ptr cs:data_4e db 0BAh, 4, 1, 0E8h, 0BCh, 0 db 0B8h, 0FFh, 4Ch, 0CDh, 21h, 0BAh db 0AEh, 0, 0E8h, 0B1h, 0, 0C6h db 6, 58h, 0, 29h, 0BAh, 58h db 0, 0E8h, 74h, 0, 0E8h, 0BDh db 0, 0E8h, 87h, 0, 0C3h sub_27 proc near mov ah,2Ah int 21h cmp cx,ds:data_8e jb loc_58 cmp dh,ds:data_9e jb loc_58 cmp dl,ds:data_10e jb loc_58 jmp short loc_58 db 90h, 0B4h, 30h, 0CDh, 21h, 3Ch db 3, 73h, 4, 0F8h, 0EBh, 25h db 90h, 1Eh, 6, 32h, 0C0h, 0B9h db 0, 80h, 2Eh, 8Eh, 6, 1Bh db 1, 26h, 8Eh, 6, 2Ch, 0 db 33h, 0FFh loc_57: repne scasb scasb jnz loc_57 add di,2 push es pop ds mov dx,di mov ah,41h clc pop es pop ds loc_58: cmc retn sub_27 endp sub_28 proc near mov ah,1Ah mov dx,83h int 21h mov ah,4Eh mov cx,8 mov dx,0FFh int 21h mov si,0A1h mov di,4Bh cld loc_59: lodsb scasb stc jnz loc_ret_60 or al,al jnz loc_59 loc_ret_60: retn sub_28 endp sub_29 proc near push ax push bx push cx mov ah,0Ah int 21h mov bx,dx inc bx mov cl,[bx] xor ch,ch jcxz loc_62 locloop_61: inc bx not byte ptr [bx] loop locloop_61 loc_62: pop cx pop bx pop ax retn sub_29 endp sub_30 proc near push cx push si push di mov cl,ds:data_11e xor ch,ch mov si,59h mov di,1Dh cld repe cmpsb jz loc_63 stc loc_63: pop di pop si pop cx retn sub_30 endp sub_31 proc near push bx push dx mov bx,dx loc_64: mov dl,[bx] or dl,dl jz loc_65 call sub_32 inc bx jmp short loc_64 loc_65: pop dx pop bx retn sub_31 endp sub_32 proc near push ax mov ah,2 int 21h pop ax retn sub_32 endp sub_33 proc near push dx mov dl,0Dh call sub_32 mov dl,0Ah call sub_32 pop dx retn sub_33 endp db 0, 0, 0, 0, 0ACh, 29h db 0ADh, 29h, 0AEh, 29h, 0AFh, 29h db 0B0h, 29h, 0E9h, 70h, 2, 0E9h db 49h, 2 db 14 dup (0) db 0E9h, 60h, 9, 0Dh, 0, 0 db 0 db 44h, 29h db 42 dup (0) db 0C2h, 7, 9, 0Bh, 0 db 12 dup (0) db 3, 2, 0CEh, 0CEh, 0Dh, 0C9h db 0Dh db 79 dup (0) db 0Dh, 0Ah, 'Please enter the passw' db 'ord now: ' db 0 db 0Dh, 0Ah, 'This program requires ' db 'DOS 3.00 or greater' db 7, 0Dh, 0Ah, 0, 5Ch, 2Ah db 2Eh, 2Ah, 0 db 0Dh, 0Ah, '%%211#---4677^^^%' db 7, 0Dh, 0Ah, 0, 42h, 23h db 0 db 305 dup (0) db 50h, 53h, 0A1h, 1, 1, 5 db 3, 1, 0D1h, 0E8h, 0D1h, 0E8h db 0D1h, 0E8h, 0D1h, 0E8h, 8Bh, 0D8h db 8Ch, 0C8h, 3, 0C3h, 50h, 0B8h db 6Bh, 2, 50h, 0CBh, 5Bh, 58h db 2Eh, 0C6h, 6, 1Ah, 0, 0FFh db 2Eh, 8Ch, 6, 1Bh, 1, 2Eh db 0A3h, 1Dh, 1, 2Eh, 89h, 26h db 1Fh, 1, 2Eh, 8Ch, 16h, 21h db 1, 8Ch, 0C8h, 8Eh, 0D0h, 0BCh db 4Fh, 2, 2Eh, 0A1h, 1Dh, 1 db 50h, 53h, 51h, 52h, 56h, 57h db 55h, 1Eh, 6, 8Ch, 0C8h, 8Eh db 0D8h, 8Eh, 0C0h, 0A0h, 1Bh, 0 db 3Ch, 50h, 75h, 6, 0E8h, 6Ah db 0, 0EBh, 15h, 90h, 3Ch, 44h db 75h, 6, 0E8h, 78h, 0, 0EBh db 0Bh, 90h loc_66: cmp al,4Ch jne loc_67 call sub_35 jmp short loc_68 loc_67: stc loc_68: pop es pop ds pop bp pop di pop si pop dx pop cx pop bx cmp byte ptr cs:data_7e,0 je loc_69 mov ax,cs:data_4e mov ds:data_1e,ax mov ax,cs:data_5e mov ds:data_2e,ax mov ax,100h mov cs:data_4e,ax mov cs:data_5e,ds jmp short loc_70 loc_69: mov ax,cs sub ax,cs:data_6e add cs:data_5e,ax loc_70: pop ax mov ss,word ptr cs:[121h] mov sp,word ptr cs:[11Fh] jmp dword ptr cs:data_4e db 0BAh, 4, 1, 0E8h, 0BCh, 0 db 0B8h, 0FFh, 4Ch, 0CDh, 21h, 0BAh db 0AEh, 0, 0E8h, 0B1h, 0, 0C6h db 6, 58h, 0, 29h, 0BAh, 58h db 0, 0E8h, 74h, 0, 0E8h, 0BDh db 0, 0E8h, 87h, 0, 0C3h sub_34 proc near mov ah,2Ah int 21h cmp cx,ds:data_8e jb loc_72 cmp dh,ds:data_9e jb loc_72 cmp dl,ds:data_10e jb loc_72 jmp short loc_72 db 90h, 0B4h, 30h, 0CDh, 21h, 3Ch db 3, 73h, 4, 0F8h, 0EBh, 25h db 90h, 1Eh, 6, 32h, 0C0h, 0B9h db 0, 80h, 2Eh, 8Eh, 6, 1Bh db 1, 26h, 8Eh, 6, 2Ch, 0 db 33h, 0FFh loc_71: repne scasb scasb jnz loc_71 add di,2 push es pop ds mov dx,di mov ah,41h clc pop es pop ds loc_72: cmc retn sub_34 endp sub_35 proc near mov ah,1Ah mov dx,83h int 21h mov ah,4Eh mov cx,8 mov dx,0FFh int 21h mov si,0A1h mov di,4Bh cld loc_73: lodsb scasb stc jnz loc_ret_74 or al,al jnz loc_73 loc_ret_74: retn sub_35 endp sub_36 proc near push ax push bx push cx mov ah,0Ah int 21h mov bx,dx inc bx mov cl,[bx] xor ch,ch jcxz loc_76 locloop_75: inc bx not byte ptr [bx] loop locloop_75 loc_76: pop cx pop bx pop ax retn sub_36 endp sub_37 proc near push cx push si push di mov cl,ds:data_11e xor ch,ch mov si,59h mov di,1Dh cld repe cmpsb jz loc_77 stc loc_77: pop di pop si pop cx retn sub_37 endp sub_38 proc near push bx push dx mov bx,dx loc_78: mov dl,[bx] or dl,dl jz loc_79 call sub_39 inc bx jmp short loc_78 loc_79: pop dx pop bx retn sub_38 endp ------------------------------ End of Chaos Digest #1.38 ************************************