-
-
[求助]Please Translate To Delphi
-
发表于: 2008-12-28 21:00 3279
-
Please Translate VB & ASM To Delphi Thank For You
Private Sub Command1_Click() Open "Output.txt" For Output As #2 Open "Input.txt" For Input As #1 Do Line Input #1, Text i = 1 While Mid(Text, i, 7) <> "Loader." i = i + 1 DoEvents Wend i = i + 7 k = Mid(Text, i, 8) & "h" While Mid(Text, i, 4) <> "Case" i = i + 1 DoEvents Wend i = i + 5 l = "00" & Hex(Val("&H" & Mid(Text, i, 6) & "&") - 1) & "h" Print #2, "dd " & l & ", " & k Line Input #1, Text Loop Until EOF(1) Close #1 Close #2 End Sub
.data include exit.inc Mem dd 0 buffer db 5 dup(0) dummy dd 0 .code Main: invoke OpenProcess, PROCESS_VM_OPERATION Or PROCESS_VM_WRITE Or PROCESS_VM_READ, FALSE, 7FFFFFFFh mov Mem, eax mov esi, offset q more: mov edi, [esi] mov ebx, [esi+4] sub ebx, edi lea eax, [edi+2] invoke ReadProcessMemory, Mem, eax, offset buffer, 1, offset dummy cmp byte ptr [buffer], 90h jne small_jump_E8 sub ebx, 5 mov byte ptr [buffer], 0e9h mov dword ptr [buffer+1], ebx invoke WriteProcessMemory, Mem, edi, offset buffer, 5, offset dummy jmp another small_jump_E8: sub ebx, 2 mov byte ptr [buffer], 0ebh mov byte ptr [buffer+1], bl invoke WriteProcessMemory, Mem, edi, offset buffer, 2, offset dummy another: add esi, 8 cmp dword ptr [esi], -1 jne more ret end Main
赞赏
他的文章
- CrackMe 3671
- [求助]Crack Or Keygen 4933
- [求助]CrackMe or KeygenMe 3431
- [求助]Delphi Crackme 6769
- [求助]请更改文本 3570
赞赏
雪币:
留言: