
                       TRANS & PINC Permutation Engine
                                    a.k.a
                       Turbo Pascal Polimorphic Engine
                                 version 0.3
                               (c) by Duke/SMF


ঠ:
~~~~~~~~~~~
  1. 㯫
1.1.  
1.2.  ⠢ TPPE v0.3
1.3.   ⮩ ᨨ

  2.   ᥬ...
2.1.   孮 TRANS
2.2.   孮 PINC
2.3.  ନ

  3. ᠭ  TPPE
3.1. ন 䠩 
3.2. 祭 楤 

  4.     TPPE
4.1. 㯭 짮⥫  TPPE
4.2.  㦭 ଫ 

  5. 祭


1.1.  
~~~~~~~~~~~~~~
   ।⠢ 襬  ᢮   TPPE v0.3
 楫 ᠭ  몥 Turbo Pascal (100%)  ।祭 
ᮧ  ᮢ  몥 Turbo Pascal (,  
   ᪠   ⡠ :).   
⢥  ஬, ᠭ  몥 Turbo Pascal
( ࠩ ,    ஢).  ࠧ, 
ࠧࠡ⪠  㭨쭮  ᢮ த.
   ⪮ ᮧ    TPPE v0.3 ᮢ 
 ஢   ⢨  PATH  몠
Pascal.
    0.3 䭮  TPPE ௥   
,  ࠢ  諮 ᨥ.   ⢨⥫쭮  engine
 ᮧ HLL ᮢ  몥 Pascal.   -   
(IMHO), ⮬     Turbo Pascal 祭 殮 ⥪஢.
, ᮧ   TPPE,   ,  祭 "
ᮢ  " ;-)))
   ᫮ ਠ⮢ ᮧ ᮢ....   㬠⢨ !!!
   ⥯ ⮣ ᫠ - ᫨誮  ;-)))))   ᫮ :

Number =   256^40  *  2^18  *  (10+N)! * K
              |         |        |       |
              |         |        |       |
஢ ---+         |        |       |
砩  ---------+        |       |
ਠ 樨 -------------+       |
"" ---------------------------------+

 ""   ।:   1 <= K <= 2^100 * (10+N) * 15 * 256^20
                                     N - ᫮ 짮⥫᪨ 楤


1.2.  ⠢ :
~~~~~~~~~~~~~~~~~~~~~~~~
   tppe03.txt      -  ᠭ
   tppe03_s.zip    - 室  :
                     tppe0.inc-tppe9.inc -  TPPE v0.3
                     tpped.inc           -  樨
                     tppek.inc           - 40-⮢   ஢
                     dat2asm.exe         - ⨫  ᮧ SFX-娢
                     opt2inc.exe         - ⨫  ᮧ INC-䠩
   demo_c_s.zip    - ਬ HLLC , ᮧ   TPPE v0.3
   demo_o_s.zip    - ਬ HLLO , ᮧ   TPPE v0.3



1.3. History
~~~~~~~~~~~~
v0.1 (january 1999)
v0.2 (april 1999)
     +  ஥   ஢
     - ࠢ 訡  㭪樨 DetectComp,  ࠭ 뤠
       祭 TRUE   砥 ;)
     +   ᨫ 騩 䨧
     *   맮 楤 
v0.3 (may 1999)
     - 㤠   ஢
     - ࠢ 訡  ᪥ 
     + ᨫ 䨧  ᯮ짮 junk
     *   楤 
     *  ᪮쪮 ࠧ ⨬஢ ६ ࠡ !


2.   ᥬ...
~~~~~~~~~~~~~~~~~~~~~~~~
2.1.   孮 TRANS
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     ᯮ 孮 TRANS : Take RANdom Switch (
砩 ४⥫).  TRANS 砥  ४樨 室
⥪c   ࠧ  묨, 롨ࠥ묨 砩 ࠧ ⠭
४⨢ . 祭  ⮬   ࠧ ࠧ  ࠧ
ᮤন.
    ஢  ᯮ ४⥫ ४⨢ .
⮨ ஡ ᪠   -        ࠡ
.  "+"  ४⨢ 砥  ࠧ襭,  "-" - .
⬥祭 ᨬ "*" ४⨢ 뢠 묨    ⬥.
ᠭ  ४⨢   ४⥫, ⠭  "+",  
᪮ -   "-".

{$A+}   - ࠢ  ࠭ ᫮ ()
          [ A+  ६  ⠭    ࠢ
            ᠬ    ࠧ ஬⪨;  ⨢
          砥  ࠧ   㣮]
{$B+} * -  ᪨ ࠦ  ( 祭 १)
          [ 設  ࠧ ᮤঠ]
{$D+}   - ࠧ () ࠡ  ஥ ⫠稪
{$E+}   -  (⪫) ० ணࠬ 樨 ᮯ
          [ E+  ணࠬ  ⥪ ணࠬ 樨
          ᮯ]
{$F+}   - ᯮ짮  FAR ( NEAR)  맮
{$G+} * - ᯮ짮 ( ᯮ짮)    ய
          Intel 80286 (ய Intel 8088)
          [ ४⨢   TP 7.0]
{$I+} * -  (⪫) ஫ 権 -뢮
          [ I+  ⥫ ,  ஢ 訡
          ᫥  樨 -뢮,  㦥 訡
          ணࠬ ⠭]
{$L+}   -  ( )  ᨬ  ଠ  ⫠稪
{$N+}   - ᯮ짮 ᫮ ᮯ (ॠ 樨  饩
          窮 ணࠬ)
{$O+}   - ࠧ ( ࠧ) ᮧ ૥ 
{$R+} * -  (⪫) ஫ ࠭ 
{$S+} * -  (⪫) ஫  ९ ⥪
          [ S+  ⥫ , ஢騩 ⥪ 
          ९]
{$V+} * -  (⪫) ஫  ப  饭  楤
           㭪樨
{$X+}   - ᯮ짮 ( ᯮ짮) ७ ᨭ⠪
          [ ४⨢   TP 7.0]

  TPPE v0.3 ᯮ ४⨢: A, B, C, D, E, F, G, I, L, N,
O, P, Q, R, S, T, V  X.
   ᫮  - ।⢮, 饥 ஢ ⤥ ⪨
ணࠬ  砥 믮   ᫮. ᫮ 
⢫ ⥬ 祭  室 ⥪ ணࠬ ᯥ樠 ४⨢.
४⨢ ᫮ 樨  ᭮ ४⨢   
ଠ:
                 {$४⨢ 㬥}
㬥 ⤥  ४⨢ ஡  ⠡樥.
    䭮  TPPE v0.3 ᯮ ᫥騥 ᫮
४⨢:
{$IFOPT x+} - ᫥騩  , ᫨ ४⨢  x
              ⨢஢ ( 祭)
{$IFOPT x-} - ᫥騩  , ᫨ ४⨢  x
               ⨢஢ ( ⬥)
{$ELSE}     - ᫥騩  , ᫨ । ४⨢
              IFxxx   ⨭ 祭
{$ENDIF}    - ⬥砥  ᥪ樨 IFxxx  ELSE
 ⢥ ४⨢ x  ᫮ 樨  ᯮ짮 ४⨢:
B, D, F, I, L, N, P, S, T  V.


2.2.   孮 PINC
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     孮   "Permutation with INClude", 
ࠦ   :) PINC -  ஢  ᯮ짮 INC-䠩.
    砥  ᪠  ᮡ 室 ⥪⮢   
INC-䠩  ४樨 . । ⨬  ⥪  
    砥 INC-䠩 ६訢  ⨯
.  ⮣ 砥 騩 ,  ண ࠧ砥
  稭 ( ⫨稥  ਢ   䨪, 
 ᢮ ⥫).   䨧  ⮩ (襩 ;)
⥯ 䭮. ᪮  Turbo Pascal ᠬ  ᥡ
 ⨪/䨪,  砥  騥
१. ᯮ 20-25 INC-䠩     ⨢ᮢ
(8-))

2.3.  ନ
~~~~~~~~~~~~~~~~~~~~~~~~~
஢ INC-䠩 -
   䠩, 騥   tppe??.inc,   ??   .
    䠩  ᮤঠ 室 ⥪ 楤  㭪権,   
    砥 ᨢ .  ᨢ  ᯮ 
   㣨 .
室 PAS-䠩 -
   䠩  ७ PAS :) , ᮤঠ騩 祭  室
   INC-䠩, ᠭ ⠭ ComLen  맮 楤 Starting 
   ᯮ .  䠩   室 .
室  -
    , 砥 ᫥ ࢮ 樨 ⥪ .
    த⥫  ⮬  .  ⫨稥 
   ᢮ ⮬  䠩  ᮤন  ⪮ ,
   ᮤন SFX-娢  ஢     ஢ 
    㫥.  ᠬ ਬ⨢      猪
    ६ 㤥 ⥪஢ ⨢ᠬ.


3. ᠭ  TPPE
~~~~~~~~~~~~~~~~~~~~~~~~~~~
3.1. ন 䠩 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   tppe0.inc     - ᠭ ⠭, ⮪, ६, forward
   tppe1.inc     - 楤 TPPE_1
   tppe2.inc     - 楤 TPPE_2
   tppe3.inc     - 楤 TPPE_3
   tppe4.inc     - 楤 TPPE_4
   tppe5.inc     - 楤 TPPE_5
   tppe6.inc     - 楤 TPPE_6
   tppe7.inc     - 楤 TPPE_Mutation
   tppe8.inc     - 楤 TPPE_Init
   tppe9.inc     - 楤 TPPE_Close
   tpped.inc     -  樨
   tppek.inc     - 40-   ஢
   tppes.inc     - 砥 SFX-娢

3.2. 祭 楤 :
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   TPPE_1        - ᯠ SFX-娢
   TPPE_2        - ᮧ  tppek.inc
   TPPE_3        - ᮧ inc-䠩  SFX-娢
   TPPE_4        - ᮧ inc-襪
   TPPE_5        - ᮧ ४⨢ tpped.inc
   TPPE_6        - ᮧ PAS-䠩
   TPPE_Mutation -  楤
   TPPE_Init     - 樠 ६  ஢
                   楤 AntiTrace
   TPPE_Close    - 㤠 ᯮ짮 䠩

4.     TPPE
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
4.1. 㯭 짮⥫  TPPE
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
᮪ ⠭, 楤, 㭪権  ६,  짮⥫ 
ᯮ짮  ᮧ INC-䠩:

const OldKey:array[1..40] of byte
    ⨬ 箬 ஢ (xor')  ⥪饣 .

var NewKey:array[1..40] of byte
     ⨬ 箬   ⮬ (⮦ ⥪饣).  ᮧ
     ⮬ ᮤন ⮣ ᨢ .

procedure TPPE_Init
    뢠  ᠬ 砫 ࠡ .
   ᫨  PATH   tpc.exe  bpc.exe,  DetectComp=true
     ६ Compile 頥   .
   ᢠ 祭 ६ Command.

var Compile:string
    㯭  (᫨  )

var Command:string
   ᫥ 맮 㭪樨 DetectComp ᮤন   䠩 COMMAND.COM.

procedure TPPE_Mutation;
   楤 ஢ .  १  ࠡ  ᪥ ᮧ
   䠩 _tppe_.exe, ᮤঠ騩 த 樨;  ⨬ 䠩 짮⥫
     ⢫ 쭥訥 ⢨  ࠦ 䠩. 
   楤 ᫥ 뢠 ⮫쪮  DetectComp=true;  ⨢ 砥
     訡. ⮬ ४ ᮧ 楤 Starting
   ᫥饣 :
      begin {砫 Starting}
      TPPE_Init;
      if DetectComp=true then
         begin
         TPPE_Mutation;
         {⢨  ࠧ}
         end
      else {祣- };
      TPPE_Close;
      end; { Starting}

4.2.  㦭 ଫ 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    ᢮     祬  뢠.  ⮫쪮 ᪮쪮 ⠭
ᯮᮡ.  楤  㭪 ⥫쭮   ⤥
INC-䠩. ࠩ ࠧ 訥 楤  ᪮쪮  
楤. ᯮ   楤 ᫮ ४⨢ -  
⢮ 䨧.

   ᫥ ᮧ  ᢮ INC-䠩 室 ।஢ tppe0.inc.
  㦭  ᫥騥 :
     {***********    ⠭ : ***********}
     {*}const MaxInc=10; {- .䠩}        {*}
     {*}      Use = 'uses dos;';                        {*}
     {****************************************************}
 MaxInc ᫥   ᠬ ᫥ INC-䠩; 
Use - ப "uses ...",  ன  砥 㫨 (  dos).
 dos   .

     {*** 짮⥫᪨ Var, Const, Label, Forward: ***}
     {*}procedure Starting;forward;                     {*}
     {****************************************************}
 ᫥     ६, ⠭  ⪨, 
⠪   ᯮ짮 ४⨢ forward  ᮧ  楤
 㭪樨. 楤 Starting  ⢮   ᮧ
. ਨ  窠  㤠  楫 ⨬樨 ࠧ஢
. ᫨  㤥     㣨  ,
   ࠭஢  襩 ࠡᯮᮡ ᮧ .

    SFX-娢 室   INC-䠩, 室  樨
, ஬ 䠩 tpped.inc, tppek.inc  tppes.inc -  䠩 
᫥⢨ ᮧ ᠬ. ᫨  砥   ⮢ TPU-,
 ⠪     SFX-娢.

    SFX-娢    dat2asm+tasm+pklite  pkzip+zip2exe,
 ⥬ ॣ  tppes.inc (  opt2inc)   tppes.com
뢠  ComLen   ணࠬ.

   ࠩ  ᯮ짮 ਨ  ᮧ INC-䠩 - 
 ᮧ   SFX-娢. ,  ᪨ ⥪ 
 ( 䮭 ᪨ 㪢  ).

    ⮨ ᮧ  40 INC-䠩 (..   ࠬ 0  40) -
 ⮬   ⪮஢.

    ᯮ  室 PAS-䠩  맮 楤 Starting
 ᯮ짮  㣨  (맮 楤  祥).
᫥ 樨 室 PAS-䠩   樨 (⢥ :) 
ᮤঠ  室   ᯮ   ᪥,   
ᮤঠ  ⮬ .   ᮧ ⠫ ᮢ,
  뢮 ४ ⥪, ᭨⥫ ᮮ饭  
...

   ࠢ쭮 ⠢ 室 PAS-䠩  룫拉 ਬ୮ ⠪:
        uses dos;
        const ComLen=????; {  㪠  SFX-娢}
        {$I tppe0.inc}
        {$I tppe1.inc}
        {...  ⠪   ᥬ 稬 INC-䠩}
        begin
        Starting;
        end.

5. 祭
~~~~~~~~~~~~~
    ।⠢ ᥬ 騬 ࠢ ᯮ짮  TPPE v0.3
 ᫮,     㤥 ஢ ( ⮬ ᫥,  㤥
㤠 ப '[TPPE 0.3] (c) by Duke/SMF'). ᫨  ࠭
,    ࠭ ࢮ砫  .
졠 ᮮ   訡      smf2000@mail.ru
 smf88@hotmail.com .
                                         Duke/SMF

