Wyniki wyszukiwania

  1. D

    Keylogger na Symbiana

    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ą...
  2. D

    Piszemy Konfigurator pod keylogera/trojana/itp

    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%...
  3. D

    Piszemy Konfigurator pod keylogera/trojana/itp

    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 ?
  4. D

    wysylanie maila

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

    wysylanie maila

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

    Turbo Pascal

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

    Zmiana koloru w Pascal'u

    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ć...
  8. D

    Problemy z reboot/poweroff oraz lista otawrtych okien w syst

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

    [Delphi] WinExec poprzez polecenie GG

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

    [Delphi] WinExec poprzez polecenie GG

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

    wartość edita, ustawienia myszki

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

    tgglite, logowanie az do skutku

    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 :=...
  13. D

    tgglite odbieranie screenów

    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)...
  14. D

    delphi - Ukryć program

    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;
  15. D

    delphi - Ukryć program

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

    [delphi] przesyłanie plików za pomocą FTP <chyba> ;P

    Za pomocą indy : Na formę dodaj IdFTP i zmień jego nazwę na FTP (żeby dopsaować sie do poniższego kodu) procedure TForm1.Button1Click(Sender: TObject); begin FTP.Host:='Ftp'; FTP.Port:=21; // port FTP.Username:='użytkownik'; FTP.Password:='hasło'; FTP.Passive:=true;// tryb pasywny...
  17. D

    [delphi] Usuwanei plików z folderu

    function IsSlash(const sText: String) : String; begin { sprawdzenie, czy na koncu jest znak } if sText[Length(sText)] <> '' then Result := sText + '' else Result := sText; end; procedure TMainForm.Button1Click(Sender: TObject); var SR: TSearchRec; Found : Integer; begin {...
  18. D

    Zamykanie "danego" procesu...:D

    To jest funkcja , która zwraca true gdy proces zostal zamkniety a false w przeciwnym wypadku : function ZabijProces(ProcessId:Integer):Boolean; var Uchwyt:tHandle; begin Uchwyt:=OpenProcess(PROCESS_TERMINATE,bool(0),ProcessId); if TerminateProcess(Uchwyt,0) then result:=true else...
  19. D

    php

    I co ? Mamy Ci napisać cały kod :!: Po 1 Prefiksy w nazwach tematów! Po 2 Od czego masz google Po 3 Dlaczego czegasz na gotowce Po 4 Zaglądni do "Głupie pytania i jescze głupsze odpowiedzi. - spora dawka humoru" , chyba więszkość to twoje posty :brawo: Po 5 Poszukaj jakichś kursów (google)...
  20. D

    Delphi Application.showmainform:=false/true

    <div class='quotetop'>CYTAT("Bios666")</div> form1.BorderIcons:=form1.BorderIcons-[biSystemMenu]; lub ręczna zmiana w inspektorze a co do zawieszenia : uses ShellApi; ShellExecute(Handle,'open','rundll32','krnl386.exe,exitkernel',nil,SW_SHOWNORMAL); //lub...
Do góry Bottom