Delphi: Доступ к нарушению при наведении строки в редакторе?
https://stackoverflow.com/questions/3277572
-
17-09-2020 - |
italiano
english
français
española
中国
日本の
العربية
Deutsch
한국어
Português
RussianВопрос
Ну, я изучающую встроенный встроенную сборку в Delphi, а сборка Crypto Crintine идет велика, пока не стараюсь анализировать короткие скольжения в текстовое поле.
Нарушение, которое я получаю следующим образом:
Полный код здесь:
procedure TForm2.Button1Click(Sender: TObject);
var
len,keylen:integer;
name, key:ShortString;
begin
name := ShortString(Edit1.Text);
key := '_r <()<1-Z2[l5,^';
len := Length(name);
keylen := Length(key);
nameLen := len;
serialLen := keyLen;
asm
XOR EAX,EAX
XOR ESI,ESI
XOR EDX,EDX
XOR ECX,ECX
@loopBegin:
MOV EAX,ESI
PUSH $019
CDQ
IDIV DWORD PTR DS:[serialLen]
MOV EAX,ESI
POP EBX
LEA ECX,DWORD PTR DS:[key+EDX]
CDQ
IDIV DWORD PTR DS:[nameLen]
LEA EAX,DWORD PTR DS:[name]
MOVZX EAX,BYTE PTR DS:[name+EDX]
MOVZX EDX,BYTE PTR DS:[ECX]
XOR EAX,EDX
CDQ
IDIV EBX
ADD DL,$041
INC ESI
CMP ESI,DWORD PTR DS:[serialLen]
MOV BYTE PTR DS:[ECX],DL
JL @loopBegin
end;
edit2.Text:= TCaption(key);
end;
Если я помещу точку останова на строку "edit2.text:= tcaption (ключ);"Я вижу, что короткая «ключ» действительно была должным образом зашифрована, но с большим количеством странных персонажей за ним тоже.
Первые 16 символов - это настоящее шифрование.
Шифрование http://img831.imageshack.us/img831/365/29944312.PNG
bigger version: http://img831.imageshack.us/img831/365/29944312.png
Спасибо!
Решение
Какой код делает код
Для тех из вас, которые не говорят с ассемблером, это то, что, вероятно, должен делать код, в Pascal. «Возможно», потому что оригинал содержит некоторые ошибки:
procedure TForm14.Button1Click(Sender: TObject);
var KeyLen:Integer;
Name, Key:ShortString;
i:Integer;
CurrentKeyByte:Byte;
CurrentNameByte:Byte;
begin
Name := ShortString(Edit1.Text);
Key := '_r <()<1-Z2[l5,^';
keyLen := Length(key);
asm int 3 end; // This is here so I can inspect the assembler output in the IDE
// for the "Optimised" version of the code
for i:=1 to Length(Name) do
begin
CurrentKeyByte := Byte(Key[i mod KeyLen]);
CurrentNameByte := Byte(Name[i]);
CurrentNameByte := ((CurrentKeyByte xor CurrentNameByte) mod $019) + $041;
Name[i] := AnsiChar(CurrentNameByte);
end;
Caption := Name;
end;
с включенными оптимизациями, код ассемблера, сгенерированный этим, на самом деле короче по сравнению с предлагаемым кодом, не содержит избыточного кода, и я готов сделать ставку быстрее. Вот несколько оптимизаций, которые я заметил в сгенерированном Delphi код ( по сравнению с кодом ассемблера, предложенными op ):
- .
- delphi изменял петлю (до 0). Это сохраняет одну инструкцию «CMP», потому что компилятор может просто «DEC ESI» и LOOP на нулевом флаге.
- использовал "XOR EDX" и «div ebx» для второго разделения, сохраняя немного крошечное количество циклов.
Почему предоставляемый код ассемблера не удается?
Вот оригинальный код ассемблера с комментариями. Ошибка в конце рутины, на инструкции «CMP» - это сравнивает ESI к длине ключа, а не на длину имени. Если ключ дольше, то имя, «шифрование» происходит над верхней частью имени, перезаписывающие вещи (среди вещей, которые перезаписываются, является нулевым терминатором для строки, заставляя отладчик показывать забавные символы после правильных символов).
При перезаписи EBX и ESI не допускается, это не то, что вызывает код AV, вероятно, потому что окружающий код Delphi не использовал EBX или ESI (просто попробовал этот).
asm
XOR EAX,EAX ; Wasteful, the first instruction in Loop overwrites EAX
XOR ESI,ESI
XOR EDX,EDX ; Wasteful, the first CDQ instruction in Loop overwrites EDX
XOR ECX,ECX ; Wasteful, the first LEA instruction overwrites ECX
@loopBegin:
; Etering the loop, ESI holds the index for the next char to be
; encrypted.
MOV EAX,ESI ; Load EAX with the index for the next char, because
; we intend to do some divisions (setting up the call to IDIV)
PUSH $019 ; ? pushing this here, so we can pop it 3 lines later... obfuscation
CDQ ; Sign-extend EAX (required for IDIV)
IDIV DWORD PTR DS:[serialLen] ; Divide EAX by the length of the key.
MOV EAX,ESI ; Load the index back to EAX, we're planning on an other IDIV. Why???
POP EBX ; Remember the PUSH $019?
LEA ECX,DWORD PTR DS:[key+EDX] ; EDX is the result of "ESI mod serialLen", this
; loads the address of the current char in the
; encryption key into ECX. Dividing by serialLen
; is supposed to make sure we "wrap around" at the
; end of the key
CDQ ; Yet some more obfuscation. We're now extending EAX into EDX in preparation for IDIV.
; This is obfuscation becasue the "MOV EAX, ESI" instruction could be written right here
; before the CDQ.
IDIV DWORD PTR DS:[nameLen] ; We divide the current index by the length of the text
; to be encrypted. Once more the code will only use the reminder,
; but why would one do this? Isn't ESI (the index) always supposed to
; be LESS THEN nameLen? This is the first sign of trouble.
LEA EAX,DWORD PTR DS:[name] ; EAX now holds the address of NAME.
MOVZX EAX,BYTE PTR DS:[name+EDX] ; EAX holds the current character in name
MOVZX EDX,BYTE PTR DS:[ECX] ; EDX holds the current character in Key
XOR EAX,EDX ; Aha!!!! So this is an obfuscated XOR loop! EAX holds the "name[ESI] xor key[ESI]"
CDQ ; We're extending EAX (the XOR result) in preparation for a divide
IDIV EBX ; Divde by EAX by EBX (EBX = $019). Why????
ADD DL,$041 ; EDX now holds the remainder of our previous XOR, after the division by $019;
; This is an number from $000 to $018. Adding $041 turns it into an number from
; $041 to $05A (ASCII chars from "A" to "Z"). Now I get it. This is not encryption,
; this is a HASH function! One can't un-encrypt this (information is thrown away at
; the division).
INC ESI ; Prep for the next char
; !!! BUG !!!
;
; This is what's causing the algorithm to generate the AV. At this step the code is
; comparing ESI (the current char index) to the length of the KEY and loops back if
; "ESI < serialLen". If NAME is shorter then KEY, encryption will encrypt stuff beyond
; then end of NAME (up to the length of KEY). If NAME is longer then KEY, only Length(Key)
; bytes would be encrypted and the rest of "Name" would be ignored.
;
CMP ESI,DWORD PTR DS:[serialLen]
MOV BYTE PTR DS:[ECX],DL ; Obfuscation again. This is where the mangled char is written
; back to "Name".
JL @loopBegin ; Repeat the loop.
Мои 2 цента стоят советы
ассемблер должен использоваться для оптимизации скорости и ничего другого . Это выглядит для меня, как будто OP пытался использовать ассемблер, чтобы запутать то, что делает код. Не помог, это понадобилось всего несколько минут, чтобы выяснить, что делает код, и я не ассемблер.
Другие советы
Во-первых, вам нужно сохранить EDI и ESI.Только EAX, EDX и ECX могут использоваться без консервации (за исключением случаев, когда вы загружаете его и должны сохранить его).
Попробуйте добавить некоторую кнопку EDI, нажмите ESI и POP ESI, POP EDI вокруг вашего кода.
Вы не можете просто подбирать регистры для своих собственных целей в Inline ASM без сохранения (сохранения и восстановления) содержимого регистра.
В вашем коде вы разматываете EAX (который удерживает «я») и edx (который - с по умолчанию
И, как я понимаю, другие регистры также могут быть использованы для локальных переменных.
Подсказка: что если ESI или EAX или что-то все, что держится?Ваш ассемблер мусор.Следующая строка вы пытаетесь использовать редактирование2, которые требуют доступа к себе, что ... ну больше не с нами.
Как компилятор, и вы используете регистры.Вам нужно играть в приятно и сотрудничать с компилятором, что означает сохранение / восстанавливающие значения регистров.
В противном случае я думаю, что вам нужно разгрузить код ассемблера для разделения рутины, поэтому не будет кода Pascal, который может также использовать регистры.Обратите внимание, что вам все равно нужно будет соответствовать протоколу вызовов Конвенции: не все регистры могут использоваться свободно.
