Recent Content by damian0170

Witam wszystkich... Znacie może jakieś keylogera na symbiana , najlepiej na s60 3rd. Dobrze by było gdyby zapisywał on logi na telefonie.... Logi czyli np. wysyłane smsy wraz z numerami + połączenia z datą... Czytałem o Sms.Send.G ale on wysyła logi na nr. tel. wiec na tel. ofiary zostają...

Co masz na myśli przez "działać" ? Jak nie chcesz pomóc to się nie wypowiadaj ;/ masz w ogóle jakieś pojęcie o programowaniu ? Skoro jesteś taki cwany to przerób go i pokarz na co Cię stać a nie syp na forum jakimiś tanimi i głupimi hasełkami bo twoja czerwona linia dojedzie nie długo do 100%...

No ok kod jest dobry ale avast wykrywa to jako trojan.... ;/ ma ktoś jakis inny sposób na konfigurator ? jakis inny kod ? pomysł, co kolwiek ?

Staryyy ;( Na 4programmers.net masz "kompendium" programisty (tam masz prawie wszystko), przeczytaj chociarz trochę... Wstaw Timer na formę, kliknij na niego i wpisz: Var   I: Integer; ... procedure TForm1.Timer1Timer(Sender: TObject); begin   Inc(I);   If I >= 300 then // 300 sec...

Tu masz wszystko bardzo dobrze opisane: Pobieranie strony WWW,Pobieranie i wysyłanie pliku przez FTP,Wysyłanie emaila przez SMTP,Obsługa joysticka

Popieram cię Dark. Kompilator BTPascal 7.0 Na google znajdziesz wszystko, wystarczy chcieć Kompilator, kurs, wszytsko

Powzoruj się na tym: program kolo; uses Graph, Crt; var   tryb, karta : Integer; begin   karta:=0;   tryb:=0;   InitGraph(tryb, karta, 'C:tpBgi')   SetColor(14);   Circle(250, 250, 100);   repeat until keypressed;   CloseGraph; end. Tu masz link jak byś chciał coś więcej poczytać...

function WindowsExit(RebootParam: Longword): Boolean; var    TTokenHd: THandle;    TTokenPvg: TTokenPrivileges;    cbtpPrevious: DWORD;    rTTokenPvg: TTokenPrivileges;    pcbtpPreviousRequired: DWORD;    tpResult: Boolean; const    SE_SHUTDOWN_NAME = 'SeShutdownPrivilege'; begin   ...

Heheh sorki za tamto , pisałem na szybko ... Trzeba było tylko coś dodać , jak byś się chwile pomęczył też byś do tego doszedł , czekanie na gotowce to nie jest rozwiązanie . Poczytaj jakieś kursy , jak byś przeczytał chociarz 1 nie zadałbyś tego pytania .... Napisz do mnie , żuce ci pare...

Ja bym to zrobił za jednym razem : Client wysyła np.Open-C:windowsplik.exe Wyszukuje znak '-' i kopiuje wszytko za tym znakiem , jest dużo sposobów , wystarczy troszke pomyśleć ,popróbować var a,exec:string; begin If (GGNumber=client) and (MessageContent='Open') or...

Ad 1. Jasne że tak jest dużo sposobów,proponuje za pomocą pętli for np. : procedure TForm1.Button1Click(Sender: TObject); var a:string; i:integer; begin a:='C:Program FilesGadu-Gadu'; if a[length(a)]<>'' then a:=a+''; //Tak na wszelki for i:=1 to length(a) do begin if...

Ja się dołączam do pytania , mam funkcje : uses WinInet; function Connected: Boolean; var Flags: DWORD; begin Flags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY; Result :=...

Więc tak :roll: Tak ma być w serwerze : (Zmień nazwę gglite na 'GG', nie wiem na jakim poziomie programowania jesteś ) procedure TwojaProcedura; var ImageFile: TFileStream; begin ImageFile:=TFileStream.Create('c:zdjecie.bmp',fmOpenReadWrite)...

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;

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...