Thread: Convert this delphi code to visual basic?

Can anyone help me convert this code to visual basic?

Code:

unit StopIce;

{ Anti debug unit. Detect SoftIce and shutdown Windows.

  Freware with source.

  Copyright (c) 1998 Soft House Labs, Andre N Belokon
  Web     http://softlab.od.ua/
  Email   support@softlab.od.ua

  THIS SOFTWARE AND THE ACCOMPANYING FILES ARE DISTRIBUTED
  "AS IS" AND WITHOUT WARRANTIES AS TO PERFORMANCE OF MERCHANTABILITY OR
  ANY OTHER WARRANTIES WHETHER EXPRESSED OR IMPLIED.
  NO WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE IS OFFERED.
  THE USER MUST ASSUME THE ENTIRE RISK OF USING THE ACCOMPANYING CODE.
}

interface

implementation

uses Windows;

Function IsSoftIce95Loaded: boolean;
Var hFile: Thandle;
Begin
  result := false;
  hFile := CreateFileA('\\.\SICE', GENERIC_READ or GENERIC_WRITE,
    FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL, 0);
  if( hFile <> INVALID_HANDLE_VALUE ) then begin
    CloseHandle(hFile);
    result := TRUE;
  end;
End;

Function IsSoftIceNTLoaded: boolean;
Var hFile: Thandle;
Begin
  result := false;
  hFile := CreateFileA('\\.\NTICE', GENERIC_READ or GENERIC_WRITE,
    FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING,
    FILE_ATTRIBUTE_NORMAL, 0);
  if( hFile <> INVALID_HANDLE_VALUE ) then begin
    CloseHandle(hFile);
    result := TRUE;
  end;
End;

function WinExit(flags: integer): boolean;
  function SetPrivilege(privilegeName: string; enable: boolean): boolean;
  var tpPrev,
      tp         : TTokenPrivileges;
      token      : THandle;
      dwRetLen   : DWord;
  begin
    result := False;
    OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, token);
    tp.PrivilegeCount := 1;
    if LookupPrivilegeValue(nil, pchar(privilegeName), tp.Privileges[0].LUID) then
    begin
      if enable then
        tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
      else
        tp.Privileges[0].Attributes := 0;
      dwRetLen := 0;
      result := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev), tpPrev, dwRetLen);
    end;
    CloseHandle(token);
  end;
begin
  if SetPrivilege('SeShutdownPrivilege', true) then begin
    ExitWindowsEx(flags, 0);
    SetPrivilege('SeShutdownPrivilege', False)
  end;
end;

initialization
  if IsSoftIce95Loaded or IsSoftIceNTLoaded then begin
    WinExit(EWX_SHUTDOWN or EWX_FORCE);
    Halt;
  end;
end.

thanks.

Okay, I'll give it a go
Don't know IF it works, but it should work:

Code:

Private Declare Function CreateFile Lib "kernel32.dll" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByRef lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long

Private Const OPEN_EXISTING As Long = 3
Private Const GENERIC_READ As Long = &H80000000
Private Const GENERIC_WRITE As Long = &H40000000


Public Function SoftIce() As Boolean
dim hdriver as long

hDriver = CreateFile("\\.\SICE", GENERIC_READ Or GENERIC_WRITE, 0, ByVal 0, OPEN_EXISTING, 0, 0)
if hdriver <> -1 then 
softice = true
exit function
end if

hDriver = CreateFile("\\.\NTICE", GENERIC_READ Or GENERIC_WRITE, 0, ByVal 0, OPEN_EXISTING, 0, 0)
if hdriver <> -1 then 
softice = true
exit function
end if

softice = false

End Function

call it like this:

Code:

If softice = true then end

Thanks a lot can you help me convert one more thing? Thanks a lot though for the code above.
anti-bitdefender

Code:

Usage:
if sidt1 = false then exitprocess(0);

Code:
function sidt1: boolean;
var
idtr: array[0..005] of Byte;
begin
result := false;
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $8003F400 //NT Address
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $80036400 //XP Address
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $81AFF400 //Vista Address
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $81AF6400 //Dummy
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $0341A070 //Vista 64bit or intel dual core
then result := true;
begin
asm sidt idtr end;
if pCardinal(@idtr[2])^ = $005F62F0 //Vista 64bit or intel dual core
then result := true;
end;
end;
end;
end;
end;
end;

Dude, I'm not going to write you a whole program...

I dont want you to make my whole program, i just wanted help on two small parts.