Add files via upload

2026-06-16 15:59:24 +00:00 · 2021-01-12 17:55:26 -06:00
parent f76af55eb4
commit b60161f008
99 changed files with 46287 additions and 0 deletions
@@ -0,0 +1,94 @@
+
+
+;       Phantasie Mutation Engine --- DEMO
+;       This program will generate 50 mutation programs.
+;       (C) Copyright 1995 Written by Burglar. All Rights Reserved.
+;       Made In Taiwan.
+
+
+        .MODEL  TINY
+
+        .CODE
+
+        ORG     100H
+
+        EXTRN   PME:NEAR, PME_END:NEAR  ;must declare PME to external module.
+
+
+BEGIN:
+        MOV     DX,OFFSET GEN_MSG
+        MOV     AH,9
+        INT     21H
+
+        MOV     CX,50
+GEN:
+        PUSH    CX
+
+        MOV     DX,OFFSET FILENAME
+        PUSH    CS
+        POP     DS
+        XOR     CX,CX
+        MOV     AH,3CH
+        INT     21H
+
+        PUSH    AX
+
+        MOV     DX,OFFSET PROG  ;DS:DX point to the head of program which you
+                                ;want to be mutation.
+        MOV     CX,OFFSET PROG_END - OFFSET PROG  ;CX hold the length of the
+                                                  ;program which you want to
+                                                  ;be mutation.
+        MOV     BX,100H  ;BX sets the beginning offset when execution.
+
+        PUSH    SS
+        POP     AX
+        ADD     AX,1000H
+        MOV     ES,AX   ;ES point to a work segment.
+                        ;for putting decryption routine + encrypted code.
+                        ;just need the length of origin program + 512 bytes.
+
+        CALL    PME     ;OK! when every thing is okay, you can call the PME.
+
+                        ;When PME execute over, it will return :
+                        ;DS:DX -> decryption routine + encrypted code.
+                        ;CX -> length of the decryption routine + encrypted
+                        ;code. (always origin length + 512 bytes)
+
+        POP     BX
+        MOV     AH,40H
+        INT     21H
+
+        MOV     AH,3EH
+        INT     21H
+
+        MOV     BX,OFFSET FILENAME
+        INC     BYTE PTR CS:BX+7
+        CMP     BYTE PTR CS:BX+7,'9'
+        JBE     L0
+        MOV     BYTE PTR CS:BX+7,'0'
+        INC     BYTE PTR CS:BX+6
+L0:
+        POP     CX
+        LOOP    GEN
+
+        INT     20H
+
+FILENAME DB     '00000000.COM',0
+
+GEN_MSG DB      'Generating 50 mutation programs... $'
+
+PROG:
+        CALL    $+3
+        POP     DX
+        ADD     DX,OFFSET MSG - OFFSET PROG - 3
+        MOV     AH,9
+        INT     21H
+        INT     20H
+MSG     DB      'I am a mutation program.$'
+PROG_END:
+
+
+        END     BEGIN
+
+
+