W tutku opiszę jak utworzyć prosty konfiguratorek pod keyloger'a/serwer/itp.
Co będzie nam potrzebne?:
-Borland Delphi 7
-Mózg
Do roboty...
Stworzymy 2 pliki, jeden będzie konfiguratorem a drugi serwerem. Efektem pracy będzie Generowanie serwera poprzez konfigurator i konfigurowanie go.
Serwer
Odpalamy Delphi i tworzymy nowy projekt.
Na forme wrzucamy komponenty:
-Edit x2
Tak powinna wyglądać nasza 'Forma':
No i teraz na łatwizne, skorzystamy z gotowca znalezionego w necie...
W głównym Var dodajemy:
Pod
Wklejamy ten kod:
Teraz do zdarzenia OnCreate Formy wklejamy:
Kompilujemy i zapisujemy nasz program.
Dobra to by było na tyle jeśli chodzi o serwer, ofc. można to urozmaicić ale to już według waszych potrzeb =p
Konfigurator
Odpalamy delphi i tworzymy nowy projekt.
Na forme wrzucamy:
-Edit x2
-Button
Tak powinna wyglądać nasza 'Forma':
Pod
wklejamy:
Klikamy teraz 2 razy na button i wklejamy:
Kompilujemy i zapisujemy nasz projekt.
Narazie to nie wszystko z konfiguratorem... zaraz do niego wrócimy
Zasoby
Utworzymy teraz zasób który upchamy do konfiguratora. Zasobiem konfiguratora będzie właśnie serwer.
Robimy sobie nowy oddzielny folder (zeby sie pozniej nie pogubić). Do tego folderu musisz wkleić plik brcc32.exe który znajduje się:
(doyślnie)
Wklejamy również nasz serwer.
W tym samym folderze tworzymy nowy dokument tekstowy(*txt) załóżmy pod nazwą zasob.txt, i piszemy w nim:
Podsumowywując: W naszym folderze powinniśmy mieć 3 pliki:
-brcc32.exe
-serwer.exe
-zasob.txt
Jesli wszystko się zgadza to otwieramy CMD (uruchomić można Start>uruchom>(wpisujesz)CMD i Enter
i teraz musimy podać ścieżkę do pliku brcc32.exe(spacja)ścieżka do zasob.txt. Podam przykład:
Jesli wszystko będzie OK to w folderze powinien ukazać się plik zasob.res.
No to zasób gotowy, czas dokończyć konfigurator.
Konfigurator/Upychanie zasobów
Do folderu z źródłem konfiguratora musimy skopiować zasob.res, który przed chwilką utworzyliśmy.
Jak już to zrobiliśmy to otwieramy nasz projekt (źródełko konfiguratora) i piszemy:
Pod
wpisuesz:
W całości powinno to wyglądać tak:
Jak już to zrobiliśmy to przydałoby się ten serwer wypakować
no więc...
Do głównego Var wpisujemy:
Klikamy teraz 2x na naszego Buttona i przed wcześniej wpisanym kodem piszemy:
W całości kod z buttona powinien wyglądać tak:
To by było na tyle
Tutek created by: 3rr0rx
Jakieś pytania? to pisać Tu a nie spamować mi gg
Co będzie nam potrzebne?:
-Borland Delphi 7
-Mózg
Do roboty...
Stworzymy 2 pliki, jeden będzie konfiguratorem a drugi serwerem. Efektem pracy będzie Generowanie serwera poprzez konfigurator i konfigurowanie go.
Serwer
Odpalamy Delphi i tworzymy nowy projekt.
Na forme wrzucamy komponenty:
-Edit x2
Tak powinna wyglądać nasza 'Forma':
No i teraz na łatwizne, skorzystamy z gotowca znalezionego w necie...
W głównym Var dodajemy:
Kod:
XXX : string;
Pod
Kod:
implementation
{$R *.dfm}
Kod:
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;
//
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
//Ile editów, tyle razy powielamy Split...
finally
CloseFile(F);
end;
end;
Teraz do zdarzenia OnCreate Formy wklejamy:
Kod:
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
DeleteFile('c:plik.exe'); //kasuje plik.exe z C:
Kompilujemy i zapisujemy nasz program.
Dobra to by było na tyle jeśli chodzi o serwer, ofc. można to urozmaicić ale to już według waszych potrzeb =p
Konfigurator
Odpalamy delphi i tworzymy nowy projekt.
Na forme wrzucamy:
-Edit x2
-Button
Tak powinna wyglądać nasza 'Forma':
Pod
Kod:
implementation
{$R *.dfm}
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;
Klikamy teraz 2 razy na button i wklejamy:
Kod:
SaveToExe('serwer.exe',Edit1.Text+'|'+Edit2.Text); //konfigurator //zapisuje dane z pól edit1 i edit2 Konfiguratora i zapusuje je w //serwerze
Kompilujemy i zapisujemy nasz projekt.
Narazie to nie wszystko z konfiguratorem... zaraz do niego wrócimy
Zasoby
Utworzymy teraz zasób który upchamy do konfiguratora. Zasobiem konfiguratora będzie właśnie serwer.
Robimy sobie nowy oddzielny folder (zeby sie pozniej nie pogubić). Do tego folderu musisz wkleić plik brcc32.exe który znajduje się:
(doyślnie)
Kod:
C:Program FilesBorlandDelphi7Bin
W tym samym folderze tworzymy nowy dokument tekstowy(*txt) załóżmy pod nazwą zasob.txt, i piszemy w nim:
Kod:
serwer RCDATA "serwer.exe"
-brcc32.exe
-serwer.exe
-zasob.txt
Jesli wszystko się zgadza to otwieramy CMD (uruchomić można Start>uruchom>(wpisujesz)CMD i Enter
i teraz musimy podać ścieżkę do pliku brcc32.exe(spacja)ścieżka do zasob.txt. Podam przykład:
Kod:
C:Documents and Settings3rr0rxPulpitkonfiguratorzasobbrcc32.exe C:Documents and Settings3rr0rxPulpitkonfiguratorzasobzasob.txt
No to zasób gotowy, czas dokończyć konfigurator.
Konfigurator/Upychanie zasobów
Do folderu z źródłem konfiguratora musimy skopiować zasob.res, który przed chwilką utworzyliśmy.
Jak już to zrobiliśmy to otwieramy nasz projekt (źródełko konfiguratora) i piszemy:
Pod
Kod:
implementation
{$R *.dfm}
Kod:
{$R zasob.RES}
W całości powinno to wyglądać tak:
Kod:
implementation
{$R *.dfm}
{$R res.RES}
Jak już to zrobiliśmy to przydałoby się ten serwer wypakować
Do głównego Var wpisujemy:
Kod:
Res : TResourceStream;
Dir : String;
Klikamy teraz 2x na naszego Buttona i przed wcześniej wpisanym kodem piszemy:
Kod:
Res:=TResourceStream.Create(hInstance, 'serwer', RT_RCDATA);
Res.SaveToFile(GetCurrentDir+'serwer.exe'); //pobiera aktualna //sciezke i wypakowywuje nasz serwer jako serwer.exe
Res.Free;
sleep(500);
W całości kod z buttona powinien wyglądać tak:
Kod:
Res:=TResourceStream.Create(hInstance, 'serwer', RT_RCDATA);
Res.SaveToFile(GetCurrentDir+'serwer.exe'); //pobiera aktualna //sciezke i wypakowywuje nasz serwer jako serwer.exe
Res.Free;
sleep(500);
SaveToExe('serwer.exe',Edit1.Text+'|'+Edit2.Text); //konfigurator //zapisuje dane z pól edit1 i edit2 Konfiguratora i zapusuje je w //serwerze
To by było na tyle
Tutek created by: 3rr0rx
Jakieś pytania? to pisać Tu a nie spamować mi gg