include 'win32ax.inc' start: mov edx,dword [_message+4] mov eax,dword [_message] mov esi,_key call encrypt_3DES mov dword [_encrypted],eax mov dword [_encrypted+4],edx mov esi,_key call decrypt_3DES mov dword [_message],eax mov dword [_message+4],edx invoke MessageBox,0,_encrypted,_message,MB_OK ret _key db 43h,22h,91h,42h,5Ch,28h,01h,29h db 43h,34h,12h,32h,13h,43h,32h,00h _message db '8byteMSG',0 _encrypted db 8 dup (?),0 ; DES/3DES routines ; Copyright (C) 2006, Tomasz Grysztar macro perm_it ebx,edx,shift,mask { mov eax,ebx shr eax,shift xor eax,edx and eax,mask xor edx,eax shl eax,shift xor ebx,eax } encrypt_3DES: ; esi - 3DES key (16 bytes) ; edx:eax = data ; return: edx:eax = encrypted data push eax edx mov edi,keys call DES_create_keys call DES_create_keys pop edx ebx bswap ebx bswap edx perm_it ebx,edx,4,0F0F0F0Fh perm_it ebx,edx,16,0000FFFFh perm_it edx,ebx,2,33333333h perm_it edx,ebx,8,00FF00FFh perm_it ebx,edx,1,55555555h rol ebx,1 rol edx,1 mov esi,keys call DES_inner_encrypt mov esi,keys+32*4 call DES_inner_decrypt mov esi,keys call DES_inner_encrypt ror ebx,1 ror edx,1 perm_it ebx,edx,1,55555555h perm_it edx,ebx,8,00FF00FFh perm_it edx,ebx,2,33333333h perm_it ebx,edx,16,0000FFFFh perm_it ebx,edx,4,0F0F0F0Fh mov eax,ebx bswap eax bswap edx ret decrypt_3DES: ; esi - 3DES key (16 bytes) ; edx:eax = encrypted data ; return: edx:eax = decrypted data push eax edx mov edi,keys call DES_create_keys call DES_create_keys pop edx ebx bswap ebx bswap edx perm_it ebx,edx,4,0F0F0F0Fh perm_it ebx,edx,16,0000FFFFh perm_it edx,ebx,2,33333333h perm_it edx,ebx,8,00FF00FFh perm_it ebx,edx,1,55555555h rol ebx,1 rol edx,1 mov esi,keys call DES_inner_decrypt mov esi,keys+32*4 call DES_inner_encrypt mov esi,keys call DES_inner_decrypt ror ebx,1 ror edx,1 perm_it ebx,edx,1,55555555h perm_it edx,ebx,8,00FF00FFh perm_it edx,ebx,2,33333333h perm_it ebx,edx,16,0000FFFFh perm_it ebx,edx,4,0F0F0F0Fh mov eax,ebx bswap eax bswap edx ret encrypt_DES: ; esi - DES key (8 bytes) ; edx:eax = data ; return: edx:eax = encrypted data push eax edx mov edi,keys call DES_create_keys pop edx ebx bswap ebx bswap edx perm_it ebx,edx,4,0F0F0F0Fh perm_it ebx,edx,16,0000FFFFh perm_it edx,ebx,2,33333333h perm_it edx,ebx,8,00FF00FFh perm_it ebx,edx,1,55555555h rol ebx,1 rol edx,1 mov esi,keys call DES_inner_encrypt ror ebx,1 ror edx,1 perm_it ebx,edx,1,55555555h perm_it edx,ebx,8,00FF00FFh perm_it edx,ebx,2,33333333h perm_it ebx,edx,16,0000FFFFh perm_it ebx,edx,4,0F0F0F0Fh mov eax,ebx bswap eax bswap edx ret decrypt_DES: ; esi - DES key (8 bytes) ; edx:eax = encrypted data ; return: edx:eax = decrypted data push eax edx mov edi,keys call DES_create_keys pop edx ebx bswap ebx bswap edx perm_it ebx,edx,4,0F0F0F0Fh perm_it ebx,edx,16,0000FFFFh perm_it edx,ebx,2,33333333h perm_it edx,ebx,8,00FF00FFh perm_it ebx,edx,1,55555555h rol ebx,1 rol edx,1 mov esi,keys call DES_inner_decrypt ror ebx,1 ror edx,1 perm_it ebx,edx,1,55555555h perm_it edx,ebx,8,00FF00FFh perm_it edx,ebx,2,33333333h perm_it ebx,edx,16,0000FFFFh perm_it ebx,edx,4,0F0F0F0Fh mov eax,ebx bswap eax bswap edx ret DES_create_keys: mov ebx,[esi] add esi,4 bswap ebx mov edx,[esi] add esi,4 bswap edx perm_it ebx,edx,4,0F0F0F0Fh perm_it edx,ebx,16,0000FFFFh perm_it ebx,edx,2,33333333h perm_it edx,ebx,16,0000FFFFh perm_it ebx,edx,1,55555555h perm_it edx,ebx,8,00FF00FFh perm_it ebx,edx,1,55555555h mov eax,ebx shl eax,8 mov ebx,edx bswap ebx and ebx,0FFFFFFF0h xchg edx,eax ror eax,20 and eax,0xF0 or edx,eax xor ecx,ecx create_keys: test byte [shifts+ecx],0ffh jz no_shift mov eax,ebx shl eax,2 shr ebx,26 or ebx,eax mov eax,edx shl eax,2 shr edx,26 or edx,eax jmp shift_ok no_shift: mov eax,ebx shl eax,1 shr ebx,27 or ebx,eax mov eax,edx shl eax,1 shr edx,27 or edx,eax shift_ok: and ebx,0FFFFFFF0h and edx,0FFFFFFF0h mov eax,ebx shr eax,28 mov ebp,[pc2_0+eax*4] mov eax,ebx shr eax,24 and eax,0Fh or ebp,[pc2_1+eax*4] mov eax,ebx shr eax,20 and eax,0Fh or ebp,[pc2_2+eax*4] mov eax,ebx shr eax,16 and eax,0Fh or ebp,[pc2_3+eax*4] mov eax,ebx shr eax,12 and eax,0Fh or ebp,[pc2_4+eax*4] mov eax,ebx shr eax,8 and eax,0Fh or ebp,[pc2_5+eax*4] mov eax,ebx shr eax,4 and eax,0Fh or ebp,[pc2_6+eax*4] mov [edi],ebp mov eax,edx shr eax,28 and eax,0Fh mov ebp,[pc2_7+eax*4] mov eax,edx shr eax,24 and eax,0Fh or ebp,[pc2_8+eax*4] mov eax,edx shr eax,20 and eax,0Fh or ebp,[pc2_9+eax*4] mov eax,edx shr eax,16 and eax,0Fh or ebp,[pc2_10+eax*4] mov eax,edx shr eax,12 and eax,0Fh or ebp,[pc2_11+eax*4] mov eax,edx shr eax,8 and eax,0Fh or ebp,[pc2_12+eax*4] mov eax,edx shr eax,4 and eax,0Fh or ebp,[pc2_13+eax*4] mov eax,ebp shr eax,16 xor eax,[edi] and eax,0FFFFh xor [edi],eax shl eax,16 xor ebp,eax mov [edi+4],ebp add edi,8 inc ecx cmp ecx,16 jb create_keys ret DES_inner_encrypt: xor ecx,ecx .encrypt: mov edi,edx ror edi,4 xor edi,[esi+(ecx+1)*4] push esi mov esi,[esi+ecx*4] xor esi,edx mov ebp,ebx mov ebx,edx mov eax,esi shr eax,24 and eax,3Fh mov edx,[sbox_2+eax*4] mov eax,esi shr eax,16 and eax,3Fh or edx,[sbox_4+eax*4] mov eax,esi shr eax,8 and eax,3Fh or edx,[sbox_6+eax*4] mov eax,esi and eax,3Fh or edx,[sbox_8+eax*4] pop esi mov eax,edi shr eax,24 and eax,3Fh or edx,[sbox_1+eax*4] mov eax,edi shr eax,16 and eax,3Fh or edx,[sbox_3+eax*4] mov eax,edi shr eax,8 and eax,3Fh or edx,[sbox_5+eax*4] mov eax,edi and eax,3Fh or edx,[sbox_7+eax*4] xor edx,ebp add ecx,2 cmp ecx,32 jb .encrypt xchg ebx,edx ret DES_inner_decrypt: mov ecx,30 .decrypt: mov edi,edx ror edi,4 xor edi,[esi+(ecx+1)*4] push esi mov esi,[esi+ecx*4] xor esi,edx mov ebp,ebx mov ebx,edx mov eax,esi shr eax,24 and eax,3Fh mov edx,[sbox_2+eax*4] mov eax,esi shr eax,16 and eax,3Fh or edx,[sbox_4+eax*4] mov eax,esi shr eax,8 and eax,3Fh or edx,[sbox_6+eax*4] mov eax,esi and eax,3Fh or edx,[sbox_8+eax*4] pop esi mov eax,edi shr eax,24 and eax,3Fh or edx,[sbox_1+eax*4] mov eax,edi shr eax,16 and eax,3Fh or edx,[sbox_3+eax*4] mov eax,edi shr eax,8 and eax,3Fh or edx,[sbox_5+eax*4] mov eax,edi and eax,3Fh or edx,[sbox_7+eax*4] xor edx,ebp sub ecx,2 jnc .decrypt xchg ebx,edx ret shifts db 0,0,1,1,1,1,1,1,0,1,1,1,1,1,1,0 pc2_0 dd 0,0x4,0x20000000,0x20000004,0x10000,0x10004,0x20010000,0x20010004,0x200,0x204,0x20000200,0x20000204,0x10200,0x10204,0x20010200,0x20010204 pc2_1 dd 0,0x1,0x100000,0x100001,0x4000000,0x4000001,0x4100000,0x4100001,0x100,0x101,0x100100,0x100101,0x4000100,0x4000101,0x4100100,0x4100101 pc2_2 dd 0,0x8,0x800,0x808,0x1000000,0x1000008,0x1000800,0x1000808,0,0x8,0x800,0x808,0x1000000,0x1000008,0x1000800,0x1000808 pc2_3 dd 0,0x200000,0x8000000,0x8200000,0x2000,0x202000,0x8002000,0x8202000,0x20000,0x220000,0x8020000,0x8220000,0x22000,0x222000,0x8022000,0x8222000 pc2_4 dd 0,0x40000,0x10,0x40010,0,0x40000,0x10,0x40010,0x1000,0x41000,0x1010,0x41010,0x1000,0x41000,0x1010,0x41010 pc2_5 dd 0,0x400,0x20,0x420,0,0x400,0x20,0x420,0x2000000,0x2000400,0x2000020,0x2000420,0x2000000,0x2000400,0x2000020,0x2000420 pc2_6 dd 0,0x10000000,0x80000,0x10080000,0x2,0x10000002,0x80002,0x10080002,0,0x10000000,0x80000,0x10080000,0x2,0x10000002,0x80002,0x10080002 pc2_7 dd 0,0x10000,0x800,0x10800,0x20000000,0x20010000,0x20000800,0x20010800,0x20000,0x30000,0x20800,0x30800,0x20020000,0x20030000,0x20020800,0x20030800 pc2_8 dd 0,0x40000,0,0x40000,0x2,0x40002,0x2,0x40002,0x2000000,0x2040000,0x2000000,0x2040000,0x2000002,0x2040002,0x2000002,0x2040002 pc2_9 dd 0,0x10000000,0x8,0x10000008,0,0x10000000,0x8,0x10000008,0x400,0x10000400,0x408,0x10000408,0x400,0x10000400,0x408,0x10000408 pc2_10 dd 0,0x20,0,0x20,0x100000,0x100020,0x100000,0x100020,0x2000,0x2020,0x2000,0x2020,0x102000,0x102020,0x102000,0x102020 pc2_11 dd 0,0x1000000,0x200,0x1000200,0x200000,0x1200000,0x200200,0x1200200,0x4000000,0x5000000,0x4000200,0x5000200,0x4200000,0x5200000,0x4200200,0x5200200 pc2_12 dd 0,0x1000,0x8000000,0x8001000,0x80000,0x81000,0x8080000,0x8081000,0x10,0x1010,0x8000010,0x8001010,0x80010,0x81010,0x8080010,0x8081010 pc2_13 dd 0,0x4,0x100,0x104,0,0x4,0x100,0x104,0x1,0x5,0x101,0x105,0x1,0x5,0x101,0x105 sbox_1 dd 0x1010400,0,0x10000,0x1010404,0x1010004,0x10404,0x4,0x10000,0x400,0x1010400,0x1010404,0x400,0x1000404,0x1010004,0x1000000,0x4,0x404,0x1000400,0x1000400,0x10400,0x10400,0x1010000,0x1010000,0x1000404,0x10004,0x1000004,0x1000004,0x10004,0,0x404,0x10404,0x1000000,0x10000,0x1010404,0x4,0x1010000,0x1010400,0x1000000,0x1000000,0x400,0x1010004,0x10000,0x10400,0x1000004,0x400,0x4,0x1000404,0x10404,0x1010404,0x10004,0x1010000,0x1000404,0x1000004,0x404,0x10404,0x1010400,0x404,0x1000400,0x1000400,0,0x10004,0x10400,0,0x1010004 sbox_2 dd 0x80108020,0x80008000,0x8000,0x108020,0x100000,0x20,0x80100020,0x80008020,0x80000020,0x80108020,0x80108000,0x80000000,0x80008000,0x100000,0x20,0x80100020,0x108000,0x100020,0x80008020,0,0x80000000,0x8000,0x108020,0x80100000,0x100020,0x80000020,0,0x108000,0x8020,0x80108000,0x80100000,0x8020,0,0x108020,0x80100020,0x100000,0x80008020,0x80100000,0x80108000,0x8000,0x80100000,0x80008000,0x20,0x80108020,0x108020,0x20,0x8000,0x80000000,0x8020,0x80108000,0x100000,0x80000020,0x100020,0x80008020,0x80000020,0x100020,0x108000,0,0x80008000,0x8020,0x80000000,0x80100020,0x80108020,0x108000 sbox_3 dd 0x208,0x8020200,0,0x8020008,0x8000200,0,0x20208,0x8000200,0x20008,0x8000008,0x8000008,0x20000,0x8020208,0x20008,0x8020000,0x208,0x8000000,0x8,0x8020200,0x200,0x20200,0x8020000,0x8020008,0x20208,0x8000208,0x20200,0x20000,0x8000208,0x8,0x8020208,0x200,0x8000000,0x8020200,0x8000000,0x20008,0x208,0x20000,0x8020200,0x8000200,0,0x200,0x20008,0x8020208,0x8000200,0x8000008,0x200,0,0x8020008,0x8000208,0x20000,0x8000000,0x8020208,0x8,0x20208,0x20200,0x8000008,0x8020000,0x8000208,0x208,0x8020000,0x20208,0x8,0x8020008,0x20200 sbox_4 dd 0x802001,0x2081,0x2081,0x80,0x802080,0x800081,0x800001,0x2001,0,0x802000,0x802000,0x802081,0x81,0,0x800080,0x800001,0x1,0x2000,0x800000,0x802001,0x80,0x800000,0x2001,0x2080,0x800081,0x1,0x2080,0x800080,0x2000,0x802080,0x802081,0x81,0x800080,0x800001,0x802000,0x802081,0x81,0,0,0x802000,0x2080,0x800080,0x800081,0x1,0x802001,0x2081,0x2081,0x80,0x802081,0x81,0x1,0x2000,0x800001,0x2001,0x802080,0x800081,0x2001,0x2080,0x800000,0x802001,0x80,0x800000,0x2000,0x802080 sbox_5 dd 0x100,0x2080100,0x2080000,0x42000100,0x80000,0x100,0x40000000,0x2080000,0x40080100,0x80000,0x2000100,0x40080100,0x42000100,0x42080000,0x80100,0x40000000,0x2000000,0x40080000,0x40080000,0,0x40000100,0x42080100,0x42080100,0x2000100,0x42080000,0x40000100,0,0x42000000,0x2080100,0x2000000,0x42000000,0x80100,0x80000,0x42000100,0x100,0x2000000,0x40000000,0x2080000,0x42000100,0x40080100,0x2000100,0x40000000,0x42080000,0x2080100,0x40080100,0x100,0x2000000,0x42080000,0x42080100,0x80100,0x42000000,0x42080100,0x2080000,0,0x40080000,0x42000000,0x80100,0x2000100,0x40000100,0x80000,0,0x40080000,0x2080100,0x40000100 sbox_6 dd 0x20000010,0x20400000,0x4000,0x20404010,0x20400000,0x10,0x20404010,0x400000,0x20004000,0x404010,0x400000,0x20000010,0x400010,0x20004000,0x20000000,0x4010,0,0x400010,0x20004010,0x4000,0x404000,0x20004010,0x10,0x20400010,0x20400010,0,0x404010,0x20404000,0x4010,0x404000,0x20404000,0x20000000,0x20004000,0x10,0x20400010,0x404000,0x20404010,0x400000,0x4010,0x20000010,0x400000,0x20004000,0x20000000,0x4010,0x20000010,0x20404010,0x404000,0x20400000,0x404010,0x20404000,0,0x20400010,0x10,0x4000,0x20400000,0x404010,0x4000,0x400010,0x20004010,0,0x20404000,0x20000000,0x400010,0x20004010 sbox_7 dd 0x200000,0x4200002,0x4000802,0,0x800,0x4000802,0x200802,0x4200800,0x4200802,0x200000,0,0x4000002,0x2,0x4000000,0x4200002,0x802,0x4000800,0x200802,0x200002,0x4000800,0x4000002,0x4200000,0x4200800,0x200002,0x4200000,0x800,0x802,0x4200802,0x200800,0x2,0x4000000,0x200800,0x4000000,0x200800,0x200000,0x4000802,0x4000802,0x4200002,0x4200002,0x2,0x200002,0x4000000,0x4000800,0x200000,0x4200800,0x802,0x200802,0x4200800,0x802,0x4000002,0x4200802,0x4200000,0x200800,0,0x2,0x4200802,0,0x200802,0x4200000,0x800,0x4000002,0x4000800,0x800,0x200002 sbox_8 dd 0x10001040,0x1000,0x40000,0x10041040,0x10000000,0x10001040,0x40,0x10000000,0x40040,0x10040000,0x10041040,0x41000,0x10041000,0x41040,0x1000,0x40,0x10040000,0x10000040,0x10001000,0x1040,0x41000,0x40040,0x10040040,0x10041000,0x1040,0,0,0x10040040,0x10000040,0x10001000,0x41040,0x40000,0x41040,0x40000,0x10041000,0x1000,0x40,0x10040040,0x1000,0x41040,0x10001000,0x40,0x10000040,0x10040000,0x10040040,0x10000000,0x40000,0x10001040,0,0x10041040,0x40040,0x10000040,0x10040000,0x10001000,0x10001040,0,0x10041040,0x41000,0x41000,0x1040,0x1040,0x40040,0x10000000,0x10041000 keys rd 32*2 ; this is the only area that needs to be in writeable section .end start