Hacking  
  Luty 18 2018 10:04:28  
 
Nawigacja
folder Portal
. Artykuły
. Download
. Forum
. Szukaj
. FAQ
. Regulamin
folder Hacking
. Gry Hakerskie
. Filmy
folder Delphi
. Kursy
. Faq
. Źródła
. Komponenty
. Artykuły
folderWebmaster
. JavaScripts
. Skrypty PHP
folderRóżne
. Kontakt
. Zlokalizuj ip
Aktualnie online
. Gości online: 6

. Użytkowników online: 0

. Łącznie użytkowników: 154,338
. Najnowszy użytkownik: Essay Online
Ostatnie artykuły
. Metoda ataku symlin...
. Asembler x86 w pigułce
. Binder plików z komp...
. [Asembler/MASM] Pobi...
. Braifuck 4 fun
Nawigacja
Artykuły » Delphi artykuły » Konfigurator (klient) do trojanów i keyloggerów
Konfigurator (klient) do trojanów i keyloggerów

Konfigurator (klient) do trojanów i keyloggerów




    KONFIGURATOR

    W tej cześci opisany został konfigurator pliku. Plik który będziemy konfigurować nazwiemy "Plikiem konfigurowanym" (np. serwer trojana stworzone na przykładzie tego kursu). Aby sprawdzic czy konfigurator działa należy plik konfigurowany przekopiowac do folderu konfiguratora, odpalic konfigurator wpisac cos w edity i nacisnąc na zapisz następnie właczyć plik konfigurowany i sprawdzic wynik w editach.

    Tworzymy nową aplikację. W kodzie nowej aplikacji wklejamy poniższy kod:

    procedure SaveToExe(FName, Str: string);
    var
    F : File of Byte;
    I : Integer;
    begin
    AssignFile(F, FName);
    Reset(F);
    try
    Seek(F, FileSize(F) - SizeOf(I));
    BlockRead(F, I, SizeOf(I));
    if (I < SizeOf(I)) or (I > FileSize(F)) then I := 0;
    Seek(F, FileSize(F) - I);
    Truncate(F);
    BlockWrite(F, Str[1], Length(Str));
    I := Length(Str) + SizeOf(I);
    BlockWrite(F, I, SizeOf(I));
    finally
    CloseFile(F);
    end;
    end;

    Gdy to zrobiliśmy wrzucamy na Formę 2 Edity (zakładka Standard) i jednego buttona któy posłuży nam do zapisania ustawień.

    Klikamy na Buttona i zmieniamy wartość Caption na "Zapisz". Klikasz dwa razy na Button i wpisujesz wywolanie procedury SaveToExe.

    SaveToExe('plik.exe',Edit1.Text+'|'+Edit2.Text);

    Tak wiec wywołujemy procedure SaveToExe i plik.exe jest plikiem konfigurowanym zaś wartosci Edit1, Edit2 zostaną zapisane do tego pliku konfigurowanego.


    Prosty konfigurator.

    Plik konfigurowany

    Otwierasz swój projekt (serwer trojana) dodaj do niego funkcję Spilt jest poniżej, ale najpierw dodaj dwa Edity załużmy ze to Edit1 oraz Edit2.

    function Split(input:string;s:integer):string;
    var
    l : integer;
    d : integer;
    finish :string;
    begin
    l :=0;
    d :=0;
    while (d <= s) and (length(input) >= l) do
    begin
    l := l + 1 ;
    if d = s then
    finish := FINISH + copy(input,l,1);
    if copy(input,l,1) = '|' then
    d := d + 1;
    end;
    while Pos('|', finish) > 0 do
    delete(finish, Pos('|', finish), 1);
    split := finish;
    end;

    Pod tą funkcją dodaj kolejną:

    function LoadFromExe(FName: string): string;
    var
    F : file of Byte;
    i : Integer;
    begin
    Result := '';
    AssignFile(F, FName);
    FileMode := fmOpenRead;
    Reset(F);
    try
    Seek(F, FileSize(F) - SizeOf(i));
    BlockRead(F, i, SizeOf(i));
    if (i < SizeOf(i)) or (i > FileSize(f)) then Exit;
    Seek(F, FileSize(F) - i);
    SetLength(Result, i - SizeOf(i));
    BlockRead(F, Result[1], Length(Result));
    XXX := Result;
    Split(XXX,0); // Odpowiada Edit1 z konfiguratora
    Split(XXX,1); // Odpowiada Edit2 z konfiguratora
    finally
    CloseFile(F);
    end;
    end;


    W głównym var dodaj:

    XXX : string;


    gdy już dodałeś XXX kliknij dwa razy na Forme i dopisz tam cos takiego:


    CopyFile(Pchar(paramstr(0)),Pchar('c:\plik.exe'),True); // skopiowanie pliku na dysk c:\
    LoadFromExe('c:\plik.exe'); // zaladowanie stringów
    Edit1.text:=Split(XXX,0); // przypisanie edit1 wartosci z pierwszego stringa
    Edit2.text:=Split(XXX,1); // -||- -||- ... z drugiego stringa


    Najpierw kopiujemy plik na dysk c:\, ponieważ plik nie może wyjmować wartości z samego siebie. Potrzebuje więc pliku o takich samych wartościach, ale innej nazwie. Następnie wczytujemy wartości. Po wczytaniu wartosci plik możemy skasowac.

    DeleteFile('c:\plik.exe');

    pobierz źródło


    Artykuł napisany przez ludzi z VisualShock



Logowanie
Nazwa użytkownika

Hasło



Nie masz jeszcze konta?
Zarejestruj się

Nie możesz się zalogować?
Poproś o nowe hasło
Shoutbox
Musisz zalogować się, aby móc dodać wiadomość.

18-02-2018 09:19
http://images.goog
le.co.ve/url?q=htt
p://slotswall.ru http://maps.google
.com.vn/url?q=http
://ninjaslots.ru http://eezzoo.net/
__media__/js/netso
ltrademark.php?d=s
lotswall.ru http://www.safethi
tch.net/__

18-02-2018 07:34
http://nemi.pw/?ht
tp://slotsmotion.r
u http://egorlykraio
n.ru/go.php?url=ht
tp://ninjaslots.gq
https://trueproxy.
net/?https://slots
trust.ru http://ads.macdesk
tops.com/openads/a
dclick.php?banneri
d=59&

18-02-2018 05:54
http://www.shankwh
olesalers.com/admi
n/Portal/LinkClick
.aspx?tabid=39&link
=http://trislots.r
u http://paranoid.co
m/__media__/js/net
soltrademark.php?d
=slotshappy.ru http://www.courtne
ythornesmith.com

18-02-2018 04:16
http://143offroad.
com/__media__/js/n
etsoltrademark.php
?d=ninjaslots.ml http://maps.google
.so/url?q=http://s
lotsplus.ru http://www.altener
gy-pro.com/__media
__/js/netsoltradem
ark.php?d=trislots
.ru http:

18-02-2018 00:12
http://www.salonwa
nd.net/__media__/j
s/netsoltrademark.
php?d=insurtopusa.
com http://jobsmain.co
m/__media__/js/net
soltrademark.php?d
=ninjaslots.ru http://cewekmontok
.com/__media__/js/
netsoltrademark.ph
p

Licznik
32,343,283 unikalne wizyty