home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
telefisk.org
/
virusCollection.lzx
/
VirusResearch
/
new
/
cp!-keymaker.asm
< prev
next >
Wrap
Assembly Source File
|
2011-02-28
|
13KB
|
492 lines
; IRA V1.02 (Sep 6 1993) (c)1993 Tim Ruehsen
ABSEXECBASE EQU $4
SECTION S_0,CODE
SECSTRT_0:
BSR LAB_000A ;000: 61000162 allocate memory
TST.L D0 ;004: 4A80
BEQ LAB_0000 ;006: 67000050
BSR LAB_000D ;00A: 610001A6 open dos.library
BSR LAB_0009 ;00E: 6100013A open reqtools.library
TST.L D0 ;012: 4A80
BEQ LAB_0001 ;014: 67000046
LEA LAB_0032,A0 ;018: 41F900000482 KeyMaker string
BSR LAB_000B ;01E: 61000162 print string
BSR LAB_0004 ;022: 6100009C open window
TST.L D0 ;026: 4A80
BEQ LAB_0000 ;028: 6700002E
CLR.L D0 ;02C: 4280
CLR.L D1 ;02E: 4281
CLR.L D2 ;030: 4282
CLR.L D3 ;032: 4283
CLR.L D4 ;034: 4284
CLR.L D5 ;036: 4285
CLR.L D6 ;038: 4286
CLR.L D7 ;03A: 4287
SUBA.L A0,A0 ;03C: 91C8
SUBA.L A1,A1 ;03E: 93C9
SUBA.L A2,A2 ;040: 95CA
SUBA.L A3,A3 ;042: 97CB
SUBA.L A4,A4 ;044: 99CC
SUBA.L A5,A5 ;046: 9BCD
BSR LAB_000E ;048: 6100018E
BSR LAB_0002 ;04C: 6100001E
BSR LAB_0008 ;050: 610000DC
BSR LAB_0007 ;054: 610000C6
LAB_0000:
CLR.L D0 ;058: 4280
RTS ;05A: 4E75
LAB_0001:
LEA LAB_0039,A0 ;05C: 41F9000004BC
BSR LAB_000B ;062: 6100011E
JMP LAB_0000 ;066: 4EF900000058
LAB_0002:
MOVEA.L LAB_0025,A6 ;06C: 2C79000003F2
MOVE.L #LAB_0042,D1 ;072: 223C000004FA
MOVE.L #$000003EE,D2 ;078: 243C000003EE
JSR -30(A6) ;07E: 4EAEFFE2
TST.L D0 ;082: 4A80
BEQ LAB_0003 ;084: 6700002E
MOVE.L D0,D7 ;088: 2E00
MOVE.L D0,D1 ;08A: 2200
MOVE.L LAB_0027,D2 ;08C: 2439000003FA
MOVE.L #$00000800,D3 ;092: 263C00000800
JSR -48(A6) ;098: 4EAEFFD0
TST.L D0 ;09C: 4A80
BEQ LAB_0003 ;09E: 67000014
MOVE.L D7,D1 ;0A2: 2207
JSR -36(A6) ;0A4: 4EAEFFDC
LEA LAB_002A,A0 ;0A8: 41F900000426
BSR LAB_000B ;0AE: 610000D2
RTS ;0B2: 4E75
LAB_0003:
LEA LAB_0029,A0 ;0B4: 41F900000402
BSR LAB_000B ;0BA: 610000C6
RTS ;0BE: 4E75
LAB_0004:
MOVEA.L LAB_0028,A6 ;0C0: 2C79000003FE get reqtools
MOVEA.L LAB_0027,A1 ;0C6: 2279000003FA get memory
ADDA.L #$00000078,A1 ;0CC: D3FC00000078
MOVE.L #$00000022,D0 ;0D2: 203C00000022
LEA LAB_002F,A2 ;0D8: 45F900000464
SUBA.L A3,A3 ;0DE: 97CB
SUBA.L A0,A0 ;0E0: 91C8
JSR -72(A6) ;0E2: 4EAEFFB8
TST.L D0 ;0E6: 4A80
BEQ LAB_0006 ;0E8: 67000024
MOVEA.L LAB_0027,A1 ;0EC: 2279000003FA
MOVEA.L A1,A2 ;0F2: 2449
ADDA.L #$00000078,A1 ;0F4: D3FC00000078
ADDA.L #$000001F4,A2 ;0FA: D5FC000001F4
LAB_0005:
MOVE.B (A1)+,(A2)+ ;100: 14D9
BNE LAB_0005 ;102: 6600FFFC
MOVE.L #$FFFFFFFF,D0 ;106: 203CFFFFFFFF
RTS ;10C: 4E75
LAB_0006:
LEA LAB_002C,A0 ;10E: 41F900000454
BSR LAB_000B ;114: 6100006C
CLR.L D0 ;118: 4280
RTS ;11A: 4E75
LAB_0007:
MOVEA.L ABSEXECBASE,A6 ;11C: 2C7900000004
MOVEA.L LAB_0027,A1 ;122: 2279000003FA
JSR -690(A6) ;128: 4EAEFD4E
RTS ;12C: 4E75
LAB_0008:
MOVEA.L ABSEXECBASE,A6 ;12E: 2C7900000004
MOVEA.L LAB_0028,A1 ;134: 2279000003FE
JSR -414(A6) ;13A: 4EAEFE62
MOVEA.L LAB_0025,A1 ;13E: 2279000003F2
JSR -414(A6) ;144: 4EAEFE62
RTS ;148: 4E75
LAB_0009:
MOVEA.L ABSEXECBASE,A6 ;14A: 2C7900000004
CLR.L D0 ;150: 4280
LEA LAB_0041+1,A1 ;152: 43F9000004E9
JSR -408(A6) ;158: 4EAEFE68
MOVE.L D0,LAB_0028 ;15C: 23C0000003FE
RTS ;162: 4E75
LAB_000A:
MOVEA.L ABSEXECBASE,A6 ;164: 2C7900000004
MOVE.L #$00000800,D0 ;16A: 203C00000800
MOVE.L #$00010001,D1 ;170: 223C00010001
JSR -684(A6) ;176: 4EAEFD54
MOVE.L D0,LAB_0027 ;17A: 23C0000003FA
RTS ;180: 4E75
LAB_000B:
MOVEM.L D0-D7/A0-A6,-(A7) ;182: 48E7FFFE
MOVEA.L LAB_0025,A6 ;186: 2C79000003F2
MOVEA.L A0,A1 ;18C: 2248
MOVE.L #$FFFFFFFF,D3 ;18E: 263CFFFFFFFF
LAB_000C:
ADDI.L #$00000001,D3 ;194: 068300000001
TST.B (A1)+ ;19A: 4A19
BNE LAB_000C ;19C: 6600FFF6
MOVE.L LAB_0026,D1 ;1A0: 2239000003F6
MOVE.L A0,D2 ;1A6: 2408
JSR -48(A6) ;1A8: 4EAEFFD0
MOVEM.L (A7)+,D0-D7/A0-A6 ;1AC: 4CDF7FFF
RTS ;1B0: 4E75
LAB_000D:
MOVEA.L ABSEXECBASE,A6 ;1B2: 2C7900000004
CLR.L D0 ;1B8: 4280
LEA LAB_003E+1,A1 ;1BA: 43F9000004DD
JSR -408(A6) ;1C0: 4EAEFE68
MOVE.L D0,LAB_0025 ;1C4: 23C0000003F2
MOVEA.L D0,A6 ;1CA: 2C40
JSR -60(A6) ;1CC: 4EAEFFC4
MOVE.L D0,LAB_0026 ;1D0: 23C0000003F6
RTS ;1D6: 4E75
LAB_000E:
MOVEA.L LAB_0027,A0 ;1D8: 2079000003FA
MOVE.L #$EFEFBABA,682(A0) ;1DE: 217CEFEFBABA02AA
MOVE.L #$0000BABE,1220(A0) ;1E6: 217C0000BABE04C4
MOVE.L #$0000BEFF,2040(A0) ;1EE: 217C0000BEFF07F8
MOVEA.L LAB_0027,A0 ;1F6: 2079000003FA
MOVE.L #$00000000,2000(A0) ;1FC: 217C0000000007D0
MOVE.L #$00000000,2004(A0) ;204: 217C0000000007D4
MOVE.L #$00000000,2008(A0) ;20C: 217C0000000007D8
MOVE.L 348(A0),2000(A0) ;214: 2168015C07D0
BSR LAB_000F ;21A: 61000026
BSR LAB_001E ;21E: 6100016A
BSR LAB_001A ;222: 610000FC
MOVE.L D0,D6 ;226: 2C00
MOVEA.L LAB_0027,A0 ;228: 2079000003FA
BSR LAB_001C ;22E: 6100011C
MOVE.L D0,D7 ;232: 2E00
TST.L D0 ;234: 4A80
BSR LAB_0018 ;236: 610000C2
BSR LAB_0016 ;23A: 610000A4
TST.L D0 ;23E: 4A80
RTS ;240: 4E75
LAB_000F:
MOVEM.L D1-D7/A1-A6,-(A7) ;242: 48E77F7E
MOVEA.L LAB_0027,A0 ;246: 2079000003FA
MOVE.L 2000(A0),D0 ;24C: 202807D0
MOVE.L 2004(A0),D1 ;250: 222807D4
MOVE.L 2008(A0),D2 ;254: 242807D8
ORI.L #$0000CCCC,D0 ;258: 00800000CCCC
ORI.L #$0000BBBB,D1 ;25E: 00810000BBBB
ORI.L #$0000AAAA,D2 ;264: 00820000AAAA
TST.L D0 ;26A: 4A80
BPL.S LAB_0010 ;26C: 6A02
NEG.L D0 ;26E: 4480
LAB_0010:
TST.L D1 ;270: 4A81
BPL.S LAB_0011 ;272: 6A02
NEG.L D1 ;274: 4481
LAB_0011:
MOVE.L #$000001F2,D7 ;276: 2E3C000001F2
LSR.L #2,D7 ;27C: E48F
MOVE.L D0,D6 ;27E: 2C00
MOVE.L D1,D4 ;280: 2801
MOVE.L D2,D0 ;282: 2002
MOVEA.L LAB_0027,A0 ;284: 2079000003FA
LAB_0012:
MOVE.L D4,D5 ;28A: 2A04
SUB.L D6,D5 ;28C: 9A86
LSL.L #4,D6 ;28E: E98E
ADD.L D5,D6 ;290: DC85
LSR.L #3,D0 ;292: E688
ADD.L D6,D0 ;294: D086
ADD.L D4,D0 ;296: D084
SUB.L D5,D0 ;298: 9085
LSL.L #2,D0 ;29A: E588
EOR D0,(A0)+ ;29C: B158
EOR D6,(A0)+ ;29E: BD58
DBF D7,LAB_0012 ;2A0: 51CFFFE8
SUBI.L #$00010000,D7 ;2A4: 048700010000
BCC.S LAB_0012 ;2AA: 64DE
MOVEA.L LAB_0027,A0 ;2AC: 2079000003FA
MOVE.L 348(A0),D0 ;2B2: 2028015C
MOVE.L 2000(A0),D1 ;2B6: 222807D0
BRA.S LAB_0013 ;2BA: 6018
MOVE.L 352(A0),D0 ;2BC: 20280160
MOVE.L 2004(A0),D1 ;2C0: 222807D4
CMP.L D0,D1 ;2C4: B280
BNE.S LAB_0014 ;2C6: 6610
MOVE.L 356(A0),D0 ;2C8: 20280164
MOVE.L 2008(A0),D1 ;2CC: 222807D8
CMP.L D0,D1 ;2D0: B280
BNE.S LAB_0014 ;2D2: 6604
LAB_0013:
MOVEQ #1,D0 ;2D4: 7001
BRA.S LAB_0015 ;2D6: 6002
LAB_0014:
MOVEQ #0,D0 ;2D8: 7000
LAB_0015:
MOVEM.L (A7)+,D1-D7/A1-A6 ;2DA: 4CDF7EFE
RTS ;2DE: 4E75
LAB_0016:
MOVEA.L LAB_0027,A0 ;2E0: 2079000003FA
LEA 2024(A0),A0 ;2E6: 41E807E8
MOVE.L #$00000017,D0 ;2EA: 203C00000017
MOVE.L D7,D1 ;2F0: 2207
LAB_0017:
EOR.B D1,(A0)+ ;2F2: B318
DBF D0,LAB_0017 ;2F4: 51C8FFFC
RTS ;2F8: 4E75
LAB_0018:
MOVEM.L D0-D2,-(A7) ;2FA: 48E7E000
MOVEA.L LAB_0027,A0 ;2FE: 2079000003FA
MOVEQ #0,D0 ;304: 7000
MOVEQ #0,D1 ;306: 7200
LEA 2000(A0),A0 ;308: 41E807D0
MOVE.L #$00000017,D0 ;30C: 203C00000017
MOVE.L D6,D1 ;312: 2206
LAB_0019:
EOR.B D1,(A0)+ ;314: B318
DBF D0,LAB_0019 ;316: 51C8FFFC
MOVEM.L (A7)+,D0-D2 ;31A: 4CDF0007
RTS ;31E: 4E75
LAB_001A:
MOVEM.L D1-D2,-(A7) ;320: 48E76000
MOVEA.L LAB_0027,A0 ;324: 2079000003FA
MOVEQ #0,D0 ;32A: 7000
MOVEQ #0,D1 ;32C: 7200
MOVEQ #0,D2 ;32E: 7400
LEA 420(A0),A0 ;330: 41E801A4
MOVE.L #$00000064,D2 ;334: 243C00000064
MOVEQ #0,D0 ;33A: 7000
LAB_001B:
MOVE.L (A0)+,D1 ;33C: 2218
ADD.L D1,D0 ;33E: D081
DBF D2,LAB_001B ;340: 51CAFFFA
LSR.L #2,D0 ;344: E488
MOVEM.L (A7)+,D1-D2 ;346: 4CDF0006
RTS ;34A: 4E75
LAB_001C:
MOVEM.L D1-D2,-(A7) ;34C: 48E76000
MOVEA.L LAB_0027,A0 ;350: 2079000003FA
MOVEQ #0,D0 ;356: 7000
MOVEQ #0,D1 ;358: 7200
MOVE.L #$00000078,D2 ;35A: 243C00000078
LAB_001D:
MOVE.L (A0)+,D1 ;360: 2218
ORI.L #$FF000000,D1 ;362: 0081FF000000
ADD.L D1,D0 ;368: D081
DBF D2,LAB_001D ;36A: 51CAFFF4
LSR.L #5,D0 ;36E: EA88
MOVEM.L (A7)+,D1-D2 ;370: 4CDF0006
RTS ;374: 4E75
MOVEM.L D1-D7/A1-A6,-(A7) ;376: 48E77F7E
MOVEA.L LAB_0027,A0 ;37A: 2079000003FA
MOVEQ #0,D2 ;380: 7400
MOVE.L #$000007FB,D1 ;382: 223C000007FB
MOVEA.L A0,A1 ;388: 2248
LAB_001E:
MOVEA.L LAB_0027,A0 ;38A: 2079000003FA
MOVE.L 682(A0),D0 ;390: 202802AA
MOVE.L 678(A0),D1 ;394: 222802A6
MOVE.L #$0000DEFF,D2 ;398: 243C0000DEFF
MOVE.L #$0000AC2D,D3 ;39E: 263C0000AC2D
CMPI.L #$EFEFBABA,D0 ;3A4: 0C80EFEFBABA
BEQ.S LAB_001F ;3AA: 6720
CMPI.L #$FFEEBBAA,D0 ;3AC: 0C80FFEEBBAA
BEQ.S LAB_0020 ;3B2: 6728
CMPI.L #$EEFFAABB,D0 ;3B4: 0C80EEFFAABB
BEQ.S LAB_0021 ;3BA: 6728
CMPI.L #$FEFEABAB,D0 ;3BC: 0C80FEFEABAB
BNE.S LAB_0023 ;3C2: 662A
ADD.L D2,D3 ;3C4: D682
CMP.L D3,D1 ;3C6: B283
BEQ.S LAB_0022 ;3C8: 6720
BRA.S LAB_0023 ;3CA: 6022
LAB_001F:
SUB.L D2,D3 ;3CC: 9682
CMP.L D3,D1 ;3CE: B283
MOVE.L D3,678(A0) ;3D0: 214302A6
BRA LAB_0022 ;3D4: 60000014
BEQ.S LAB_0022 ;3D8: 6710
BRA.S LAB_0023 ;3DA: 6012
LAB_0020:
MULS D2,D3 ;3DC: C7C2
CMP.L D3,D1 ;3DE: B283
BEQ.S LAB_0022 ;3E0: 6708
BRA.S LAB_0023 ;3E2: 600A
LAB_0021:
DIVS D2,D3 ;3E4: 87C2
CMP.L D3,D1 ;3E6: B283
BNE.S LAB_0023 ;3E8: 6604
LAB_0022:
MOVEQ #1,D0 ;3EA: 7001
BRA.S LAB_0024 ;3EC: 6002
LAB_0023:
MOVEQ #0,D0 ;3EE: 7000
LAB_0024:
RTS ;3F0: 4E75
LAB_0025:
ORI.B #$00,D0 ;3F2: 00000000
LAB_0026:
ORI.B #$00,D0 ;3F6: 00000000
LAB_0027:
ORI.B #$00,D0 ;3FA: 00000000
LAB_0028:
ORI.B #$00,D0 ;3FE: 00000000
LAB_0029:
NOT -(A1) ;402: 4661
BVS.S LAB_0031 ;404: 696C
BCS.S LAB_0030 ;406: 6564
DC.W $2077 ;408
MOVEQ #105,D1 ;40A: 7269
MOVEQ #105,D2 ;40C: 7469
DC.W $6E67 ;40E
DC.W $2073 ;410
MOVEA (A6),A5 ;412: 3A56
BVS.S LAB_0033 ;414: 6972
DC.W $7573 ;416
SUBQ #7,D3 ;418: 5F43
DC.W $6865 ;41A
DC.W $636B ;41C
BCS.S LAB_0034 ;41E: 6572
DC.W $2E6B ;420
DC.W $6579 ;422
DC.W $0A00 ;424
LAB_002A:
DC.W $4B65 ;426
DC.W $7920 ;428
BLS.S LAB_0036 ;42A: 6372
DC.W $6561 ;42C
MOVEQ #101,D2 ;42E: 7465
BCC.S LAB_002B ;430: 6420
BSR.S LAB_0037 ;432: 616E
BCC.S LAB_002D ;434: 6420
DC.W $7361 ;436
MOVEQ #101,D3 ;438: 7665
BCC.S LAB_002E ;43A: 6420
MOVEQ #111,D2 ;43C: 746F
DC.W $2073 ;43E
MOVEA (A6),A5 ;440: 3A56
BVS.S LAB_0038 ;442: 6972
DC.W $7573 ;444
SUBQ #7,D3 ;446: 5F43
DC.W $6865 ;448
DC.W $636B ;44A
BCS.S LAB_003A ;44C: 6572
DC.W $2E6B ;44E
DC.W $6579 ;450
LAB_002B:
DC.W $0A00 ;452
LAB_002C:
MOVE.L USP,A7 ;454: 4E6F
LAB_002D:
DC.W $206B ;456
DC.W $6579 ;458
MOVEA.L -(A3),A0 ;45A: 2063
LAB_002E:
MOVEQ #101,D1 ;45C: 7265
BSR.S LAB_003D ;45E: 6174
BCS.S LAB_003B ;460: 6564
DC.W $0A00 ;462
LAB_002F:
DC.W $506C ;464
DC.W $6561 ;466
DC.W $7365 ;468
MOVEA.L -(A5),A0 ;46A: 2065
LAB_0030:
BGT.S LAB_003F+2 ;46C: 6E74
BCS.S LAB_003F+2 ;46E: 6572
DC.W $206E ;470
LAB_0031:
DC.W $616D ;472
BCS.S LAB_0035+2 ;474: 6520
MOVEQ #111,D2 ;476: 746F
DC.W $2072 ;478
DC.W $6567 ;47A
DC.W $6973 ;47C
MOVEQ #101,D2 ;47E: 7465
MOVEQ #0,D1 ;480: 7200
LAB_0032:
DC.W $5669 ;482
MOVEQ #117,D1 ;484: 7275
DC.W $7320 ;486
LAB_0033:
DC.W $4368 ;488
DC.W $6563 ;48A
DC.W $6B65 ;48C
MOVEQ #73,D1 ;48E: 7249
DC.W $4920 ;490
LAB_0034:
MOVEQ #49,D3 ;492: 7631
LAB_0035:
MOVE.L 32(A1,D3.W),D7 ;494: 2E313020
DC.W $6B65 ;498
DC.W $7966 ;49A
BVS.S LAB_0043 ;49C: 696C
LAB_0036:
DC.W $656D ;49E
DC.W $616B ;4A0
LAB_0037:
DC.W $6572 ;4A2
MOVEA.L -(A2),A0 ;4A4: 2062
DC.W $7920 ;4A6
DC.W $4D75 ;4A8
DC.W $6368 ;4AA
BLE.S LAB_003C ;4AC: 6F20
MOVE.L -(A0),-(A7) ;4AE: 2F20
DC.W $4372 ;4B0
DC.W $6F73 ;4B2
DC.W $7370 ;4B4
LAB_0038:
DC.W $6F69 ;4B6
DC.W $6E74 ;4B8
DC.W $0A00 ;4BA
LAB_0039:
SUBQ #2,24930(A6) ;4BC: 556E6162
LAB_003A:
DC.W $6C65 ;4C0
DC.W $2074 ;4C2
BLE.S LAB_0040 ;4C4: 6F20
LAB_003B:
DC.W $6F70 ;4C6
DC.W $656E ;4C8
DC.W $2072 ;4CA
DC.W $6571 ;4CC
LAB_003C:
MOVEQ #111,D2 ;4CE: 746F
DC.W $6F6C ;4D0
DC.W $732E ;4D2
LAB_003D:
DC.W $6C69 ;4D4
DC.W $6272 ;4D6
DC.W $6172 ;4D8
DC.W $790A ;4DA
LAB_003E:
ORI #$6F73,-(A4) ;4DC: 00646F73
LAB_003F:
MOVEA.L 26978(A4),A7 ;4E0: 2E6C6962
MOVEQ #97,D1 ;4E4: 7261
LAB_0040:
MOVEQ #121,D1 ;4E6: 7279
LAB_0041:
DC.W $0072 ;4E8
DC.W $6571 ;4EA
MOVEQ #111,D2 ;4EC: 746F
DC.W $6F6C ;4EE
DC.W $732E ;4F0
DC.W $6C69 ;4F2
DC.W $6272 ;4F4
DC.W $6172 ;4F6
DC.W $7900 ;4F8
LAB_0042:
DC.W $533A ;4FA
DC.W $5669 ;4FC
MOVEQ #117,D1 ;4FE: 7275
DC.W $735F ;500
DC.W $4368 ;502
DC.W $6563 ;504
DC.W $6B65 ;506
MOVEQ #46,D1 ;508: 722E
LAB_0043:
DC.W $6B65 ;50A
DC.W $7900 ;50C
DC.W $004C ;50E
END