Что делает этот код? Delphi asm

Question

Я пытаюсь разобрать зашифрованный файл & RQ, но я действительно не могу понять код asm. Он встроен в функцию Delphi.

Может ли кто-нибудь помочь мне понять это?

procedure decritt(var s:string; key:integer); 
asm 
mov ecx, key 
mov dl, cl 
shr ecx, 20 
mov dh, cl 

mov esi, s 
mov esi, [esi] 
or esi, esi // nil string 
jz @OUT 

// now esi points to the first character of the string 

mov ah, 10111000b 

mov ecx, length(s) 
or ecx, ecx 
jz @OUT 
@IN: 
mov al, [esi] 
xor al, ah 
rol al, 3 
xor al, dh 
sub al, dl 

mov [esi], al 
inc esi 
ror ah, 3 
dec ecx 
jnz @IN 
@OUT: 
end; // decritt 

Спасибо.

Answer 1

Этот C++ код будет эквивалентен:

void encrypt(std::string s, int key) { 

    const char dl = key; 
    const char dh = key >> 20; 
    char ah = 0xB8; 

    for (int i=0; i<s.length(); ++i) { 
     char c = s[i]; 
     c ^= ah; 
     c = (c<<3)|(c>>5); // rotate a char three bits left 
     c ^= dh; 
     c -= dl; 
     s[i] = c; 
     ah = (ah>>3)|(ah<<5); 
    } 
} 

Answer 2

YAY, наконец, я получил это работает. Вот результирующий код python:

def decrypt(self, string, key): 
    decrypted = [] 

    dl = key & 0xffff 
    dh = key >> 20 
    ah = 0xb8 

    for i in xrange(0, len(string)): 
     c = ord(string[i]) 
     c ^= ah & 0xff 
     c = ((c<<3)|(c>>5)) & 0xff 
     c ^= dh & 0xff 
     c = (c - dl) & 0xff 

     decrypted.append(chr(c & 0xff)) 
     ah = ((ah>>3)|(ah<<5)) & 0xff 

    return "".join(decrypted) 

Answer 3

Функция сборки принимает зашифрованную строку и ключ дешифрования. Используя некоторые фиксированные математические операции с ключом, он расшифровывает строку. Я нашел пример Delphi, который делает то же самое, но проще;

http://www.delphifaq.com/faq/delphi/strings/f95.shtml

Вы можете преобразовать код Python ekini на Delphi, чтобы избавиться от кода ассемблерный в приложении Delphi, если это то, что вы хотите.