首页
社区
课程
招聘
[求助]Please Translate To Delphi
发表于: 2008-12-28 21:00 3279

[求助]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

[培训]科锐逆向工程师培训第53期2025年7月8日开班!

收藏
免费 0
支持
分享
最新回复 (0)
游客
登录 | 注册 方可回帖
返回