home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / T.ZIP / TPE14.ZIP / TPE-GEN.ASM < prev    next >
Assembly Source File  |  1993-12-24  |  4KB  |  106 lines
  1. ;----------------------------------------------------------------------------
  2. ;   TPE-GEN   -   This program generates 50 TPE encrypted test files
  3. ; 
  4. ;   This source can be compiled with MASM 5.0 or TASM 2.01
  5. ;   (and perhaps others too, but this is not tested.)
  6. ;----------------------------------------------------------------------------
  7.  
  8.                 .model  tiny
  9.                 .RADIX  16
  10.  
  11.                 .code
  12.  
  13.                 extrn   crypt:near              ;external routines in engine
  14.                 extrn   rnd_get:near
  15.                 extrn   rnd_init:near
  16.  
  17.  
  18.                 org     0100
  19.  
  20. begin:          call    rnd_init                ;init. random number generator
  21.  
  22.                 mov     dx,offset starttxt      ;print message
  23.                 mov     ah,09
  24.                 int     21
  25.  
  26.                 mov     cx,50d                  ;repeat 50 times
  27. lop:            push    cx
  28.  
  29.                 mov     ah,3C                   ;create a new file
  30.                 mov     dx,offset filename
  31.                 mov     cx,0020
  32.                 int     21
  33.                 xchg    ax,bx
  34.  
  35.                 push    ds
  36.                 push    es
  37.                 push    bx
  38.  
  39.                 mov     ax,cs                   ;input parameters for engine
  40.                 mov     ds,ax
  41.                 add     ax,0400
  42.                 mov     es,ax                   ;ES = DS + 400h
  43.                 xor     si,si                   ;code will be right after decr.
  44.                 mov     dx,offset hello         ;this will be encrtypted
  45.                 mov     cx,100d                 ;length of code to encrypt
  46.                 mov     bp,0100                 ;decryptor will start at 100h
  47.                 call    rnd_get                 ;AX register will be random
  48.  
  49.                 call    crypt                   ;call the engine
  50.  
  51.                 pop     bx                      ;write crypted file
  52.                 mov     ah,40
  53.                 int     21
  54.  
  55.                 mov     ah,3E                   ;close the file
  56.                 int     21
  57.  
  58.                 pop     es
  59.                 pop     ds
  60.                 
  61.                 mov     di,offset filename      ;adjust name for next file
  62.                 mov     bx,7                    ; (increment number)
  63. incnum:         inc     byte ptr ds:[bx+di]
  64.                 cmp     byte ptr ds:[bx+di],'9'
  65.                 jbe     numok
  66.                 mov     byte ptr ds:[bx+di],'0'
  67.                 dec     bx
  68.                 jnz     incnum
  69.  
  70. numok:          pop     cx                      ;do it again...
  71.                 loop    lop
  72.  
  73. exit:           int     20
  74.  
  75.  
  76. ;----------------------------------------------------------------------------
  77. ;               Text and data
  78. ;----------------------------------------------------------------------------
  79.  
  80. starttxt        db      'TPE-GEN  -  Generates 50 TPE encrypted test files.'
  81.                 db      0Dh, 0Ah, '$'
  82.  
  83. filename        db      '00000000.COM',0
  84.  
  85.  
  86. ;----------------------------------------------------------------------------
  87. ;               The small test file that will be encrypted
  88. ;----------------------------------------------------------------------------
  89.  
  90. hello:          call    next                    ;get relative offset
  91. next:           pop     dx
  92.                 add     dx,10d                  ;find begin of message
  93.                 mov     ah,09                   ;print message
  94.                 int     21
  95.                 int     20
  96.  
  97.                 db      'Hello, world!', 0Dh, 0A, '$'
  98.                 db      (100d) dup (90)
  99.  
  100.                 end    begin
  101. 
  102. ;  ─────────────────────────────────────────────────────────────────────────
  103. ;  ───────────────> ReMeMbEr WhErE YoU sAw ThIs pHile fIrSt <───────────────
  104. ;  ───────────> ArReStEd DeVeLoPmEnT +31.77.SeCrEt H/p/A/v/AV/? <───────────
  105. ;  ─────────────────────────────────────────────────────────────────────────
  106.