Thread: (ollydbg) Convert this delphi code to visual basic?

Can anyone help me convert this detect ollydbg code to vb. I am really bad at converting, thanks.

Code:

function  ollypresent(): boolean;
begin
asm


   xor eax,eax
   cmp esi, 0FFFFFFFFh
   jnz @@noolly
   result:= true;
@@noolly:
result := false;
   
  end;
end;

Heya dude,
People on this forum don't like it if you don't try it yourself!
This is my last convertion vor this week.

Code:

Private Declare Function OutputDebugString Lib "kernel32" Alias "OutputDebugStringA" (ByVal lpOutputString As String) As Long

Public Function OllyPresent() As Boolean
    OllyPresent = Not (OutputDebugString(VarPtr(ByVal "=)")) = 1)
End Function

call it like this:

Code:

If ollypresent then end

have a nice day.

Originally Posted by darkc0de

Can anyone help me convert this detect ollydbg code to vb. I am really bad at converting, thanks.

This code is not 100% here fixed one.

Code:

function  ollypresent(): boolean;
begin
Result:= false;
asm
   xor eax,eax
   cmp esi, 0FFFFFFFFh
   jnz @noolly
   mov result,1
@noolly:
  end;
end;

I really don't know VB, but by programming logic i did that

Code:

Public Function OllyPresent() As Boolean
   OllyPresent = 0
   asm
   xor eax,eax
   cmp esi, 0FFFFFFFFh
   jnz @noolly
   mov OllyPresent,1
@noolly:
  end;
end;

End Function

Originally Posted by fearz

This code is not 100% here fixed one.

Code:

function  ollypresent(): boolean;
begin
Result:= false;
asm
   xor eax,eax
   cmp esi, 0FFFFFFFFh
   jnz @noolly
   mov result,1
@noolly:
  end;
end;

I really don't know VB, but by programming logic i did that

Code:

Public Function OllyPresent() As Boolean
   OllyPresent = 0
   asm
   xor eax,eax
   cmp esi, 0FFFFFFFFh
   jnz @noolly
   mov OllyPresent,1
@noolly:
  end;
end;

End Function

Thank you guys.

dude, you can't use ASM in VB...... only with a plugin..
And my code works..

Originally Posted by SqUeEzEr

dude, you can't use ASM in VB...... only with a plugin..
And my code works..

Yeah your code works, thank you. And what is this plugin you are talking about? VB6 supports asm?

ThunderVB or VBadvanced(or something lik that)

Well, if I'm not wrong then CallAPIByName is a very good example for using ASM code in your vb project...