Benötige Hilfe bei einer Entschlüsselung bei altem Programm

[Thomas Feichtner]

Ich hab mal nachgeschaut und folgendes noch gefunden. Ich hoffe es ist komplett.

Code:

TestRandom PROC NEAR
   push ds
   push si
   push es
   push di
   push cx

   push ds                              ; es:= ds
   pop  es

   mov  di, offSet @Gard1               ; di:= ofs @Gard1
   mov  si, offSet @Gard2               ; si:= ofs @Gard2

   mov  cx, 6
   cld
   repe cmpsb                          ; @Gard1 = @Gard2 ?
   je   @trReturn

   mov  dx, offset @Gard1
   mov  ah, 9
   int  21H

   mov  dx, offset @msg
   mov  ah, 9
   int  21H

   call far EndXqq

@trReturn:
   pop  cx
   pop  di
   pop  es
   pop  si
   pop  ds

   ret  near
TestRandom ENDP

bzw.

Code:

NextRand PROC NEAR                     ; result in ax
   push bx
   push cx

   mov ax, Word ptr zz [0];
   mov bx, Word ptr zz [2];
   mov cx, Word ptr zz [4];

   sub ax, bx;
   jnc @nrStore;
   add ax, p

@nrStore:
   mov Word ptr zz [0], bx
   mov Word ptr zz [2], cx
   mov Word ptr zz [4], ax

   pop cx
   pop bx

   ret near
NextRand ENDP