[¯¯¯ TST HOST 1.43b, UTC diff:5, Local time: Fri Nov 27 19:22:59 1998 ®®®]

Hi.

This qbasic programm will kill the end message of ham comm 3.0

Not tested for other versions, but is could work. Try it, but make a backup
of hc.exe before you execute this:


a$ = a$ + CHR$(&HC4) 'LES CX, BP
a$ = a$ + CHR$(&HCD) 'INC     BYTE PTR [BP+DI+6F]
a$ = a$ + CHR$(&HFE) 'DEC BP
a$ = a$ + CHR$(&H43) 'MOV AX,KEYW
a$ = a$ + CHR$(&H6F) 'MOV DS,AX
a$ = a$ + CHR$(&H4D) 'INT 10H
a$ = a$ + CHR$(&H50) 'INT 21H
a$ = a$ + CHR$(&H75) '0F DW AS
a$ = a$ + CHR$(&H54) 'LEA offset
a$ = a$ + CHR$(&H65) 'HALT SYSTEMTIMER
a$ = a$ + CHR$(&H52) 'WRITE FILE
a$ = a$ + CHR$(&H52) 'GET BYTE
a$ = a$ + CHR$(&H6F) 'SWAP DWORD
a$ = a$ + CHR$(&H52) 'INT 21h DOS
a$ = a$ + CHR$(&HFE) '"C","$"
a$ = a$ + CHR$(&HCD) 'POP IP,CS  ;Code segment
a$ = a$ + CHR$(&HC4) 'POP IP,DS  ;Data Segment
a$ = a$ + CHR$(0)    'end
CLS
a$ = a$ + CHR$(&HD) + CHR$(&HA)
v$ = "xxx"
COLOR 15, 1
LOCATE 1, 1: PRINT SPACE$(80)
LOCATE 1, 1: PRINT "Hamcomm 3.0 Crack     ÿ" + SPACE$(30) + " By CoMPuTeRRoR, Sassenheim"
PRINT : PRINT
COLOR 7, 0
OPEN "hc.exe" FOR BINARY AS #1
   GET #1, 12026 * 16! + 93, v$
   PRINT "Check version..."
   SLEEP 1
   IF v$ <> "3.0" THEN
    PRINT "This isn't version 3.0! Continue? (Y/n)"
    DO
     i$ = UCASE$(INKEY$)
     IF i$ = "N" THEN END
    LOOP UNTIL LEN(i$)
    PRINT "Other version found..."
   ELSE
    PRINT "Version 3.0 found...OK."
   END IF
   SLEEP 1
   PRINT "Patching..."
   SLEEP 1
   PUT #1, 12026 * 16! + 3, a$
CLOSE #1
PRINT "done."
END

Bye, roel.

   Ü       Ü  ÜÜ  ÜÜ  ÜÜ     ÜÜ         ÚÄÄÍÍÄÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÄÍÍÄÄ¿
  ÛÛÛÜ  ÜÛÛÛ ÛÛÛßÞÛÛ ÛÛÛÛÜ  ÛÛÛÛÜ ÜÛÛÛß ³NL1RRS, Roel de ex-RR1SAS, uit³
 ÞÛÛÛÛÛÝÛÛÛÝÞÛÛÛ ÛÛÛÞÛÛ ÛÛÝÞÛÛ ÛÛÝÛÛß   ³Sassenheim... (ZuidHolland)   ³
 ÛÛÛßÞÛÛÛÛÛ ÛÛÛ ÞÛÛÛÞÛÛÝÛÛ ÞÛÛÝÛÛ ßÛÛÛÝ ÃÄÄÍÍÄÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÄÍÍÄÄ´
 ÛÛÛ  ÛÛÛÛÝÞÛÛÛ   ÛÛÞÛÛÛÛß ÞÛÛÛÛß  ÞÛÛÛ ³Ax25: NL1RRS@NL3DAV.ZH.NLD.EU ³
 ÛÛÛ  ÞÛÛÛ ÛÛÛÝ   ÛÛ ÛÛ ÛÛÜ ÛÛ ÛÛÜ  ÛÛÛ ³IP  : NL1RRS@PACKET.CISTRON.NL³
 ÛÛÛÝ  ÛÛß ÛÛÛÛÛÜ ÛÛÞÛÛ ÞÛÛÝÛÛ ÞÛÛÝÛÛÛÝ ÃÄÄÍÍÄÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÄÍÍÄÄÙ
  ßÝ           ßÛ  ß ßÛ  ÞÛ ßÛ  ßÛ ÛÛÝ  ³RoeL SoFTWaRe PRoDuCTionS 1998 
   þ            Þ  ß  Þ  Þ   Ý   Þ Þß   |
                ß     ß            þ    ù