Guest User

Untitled

a guest
Sep 21st, 2018
195
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;I am aware of the missing linker settings / includes..ect, thats not the problem.
  2. .Data
  3.  
  4. szAlphabet  DB 'abcdefghijklmnopqrstuvwxyz', 0
  5. randbuff    DB 6 Dup(0)
  6.  
  7. .Code
  8.  
  9. start:
  10.     Lea Edi, [randbuff]
  11.     Mov Ebx, 0
  12. @@:     Cmp Ebx, 5
  13.         Je done
  14.         Call GetTickCount
  15.     Xor Ecx, Ecx
  16.     Inc Ecx
  17.     mul ecx
  18.     add eax, 7
  19.     Mov Ecx, 24 ;letters in the alphabet
  20.     Sub Ecx, 1
  21.     inc ecx
  22.     xor edx, edx
  23.     div ecx
  24.     Add Edx, 1
  25.     Mov Eax, Edx
  26.     Mov Al, [szAlphabet + Eax]
  27.         Mov Byte Ptr [Edi + Ebx], Al
  28.         Inc Ebx
  29.         Jmp @B
  30. done:
  31.  
  32.  
  33. Invoke MessageBox, NULL, Offset randbuff, NULL, MB_OK
  34. Invoke ExitProcess, 0
  35.  
  36. end start
Add Comment
Please, Sign In to add comment