www.domaci.de Forum Indeks Home
Portal • Forum • Novi upisi • Pretraga • Link do nas • Domaći filmovi • Lista korisnika • Tim sajta • Proverite privatne poruke • Prijava • Registracija
Pravilnik • FAQ • Profil • Favorites • Galerija slika • Top lista • Download MP3 • MP3 razno • Spotovi • Noviteti 2013 • Muzički noviteti 2014

Delphi: Cuckoo’s Way
Upišite novu temu   Odgovorite na temu    www.domaci.de Forum Indeks -> ~ Programiranje ~
::  
Autor Poruka
Doktor
~Sanjicino*slculence~
~Sanjicino*slculence~



Godine: 38

Datum registracije: 17 Nov 2005
Poruke: 4264
Mesto: Novi Sad

blank.gif
PorukaPostavljena: Pon Jan 30, 2006 12:08 am    Naslov poruke: Delphi: Cuckoo’s Way Na vrh strane Na dno strane

Ovaj primer koristi biblioteku JwaWinBase koju možete pronaći i skinuti sa adrese http://members.chello.nl/m.vanbrakel2/. Autor ovog koda je holandjanin Arndt Dienstbier (jedan od najačih sistemskih programera na svetu) a razlog zbog čega ga predstavljam ovde je podatak da je do sada ostvareno preko 2 miliona downloada pomenutog unita. Ovaj kod koji se u žargonu naziva Cuckoo’s Way je pravi primer kako se može aktivirati odredjeni proces na nekom računaru, zaobilazeći pri tome sve zaštite. Kod ima praktičnu upotrebu kod mnogih servera za npr. snimanje coockja ili registrovanje nekog procesa na klijent mašini ne obazirući se na zaštitu koju klijent ima.

PAŽNJA: Ovaj primer ne prikazuje kako se odredjeni proces direktno smešta u sistemske procese zbog mogućnosti zloupotrebe koda u svrhu neovlašćenog pristupa nekom računaru (hakovanje). Ovo je samo primer jednog od načina kako se podmeće proces na neki računar koji radi pod Windowsom!

Code:

uses
  JwaWinBase; 
//...

procedure TForm1.Button1Click(Sender: TObject);
var
  si: STARTUPINFOW;
  pif: PROCESS_INFORMATION;
  res: Bool;
  s: string;
begin
  // postavljanje StartUpInfoW na početku izvršenja
  si.cb := SizeOf(startupinfow);
  si.dwFlags  := STARTF_USESHOWWINDOW;
  si.wShowWindow := SW_SHOWDEFAULT;
  si.lpReserved := nil;
  si.lpDesktop := nil;
  si.lpTitle := 'Konsole';

  // pokretanje CreateProcessWithLogonW rutine…
  res := CreateProcessWithLogonW('Security', 'ArViCor', 'test', LOGON_WITH_PROFILE,
    'c:\win2kas\system32\regedt32.exe', nil
    , CREATE_DEFAULT_ERROR_MODE, nil, nil, si, pif);
  if booltostr(res) = '0' then
  begin
    // u slučaju pojavljivanja greške, prikazuje se error-code koji se lako može prevesti pomoću “net helpmsg” u komandnu liniju…
    str(GetLastError, s);
    ShowMessage('CreateProcessWithLogonResult: ' + booltostr(res) + #10 +
      'GetLastError: ' + s);
  end;
end;



_________________
~*~Vojim svoje srculence najvise na svetu ~*~ :322:

 
Prikaz poruka:   
Upišite novu temu   Odgovorite na temu    www.domaci.de Forum Indeks -> ~ Programiranje ~ -> Delphi: Cuckoo’s Way Vreme je podešeno za GMT + 1 sat
Strana 1 od 1

 
Pređite u:  
Vi ne možete otvarati nove teme u ovom forumu
Vi ne možete odgovarati na teme u ovom forumu
Vi ne možete menjati Vaše poruke u ovom forumu
Vi ne možete brisati Vaše poruke u ovom forumu
Vi ne možete glasati u anketama u ovom forumu
Vi ne možete postavljati fajlove u ovom forumu
Vi ne možete preuzeti fajlove sa ovog foruma





- Burek Forum - Doček Nove 2018. godine - Venčanja, svadbe - Proslave - TipoTravel - Kuda večeras - Anwalt - legal -

Bookmark to: Twitter Bookmark to: Facebook Bookmark to: Digg Bookmark to: Del.icio.us Bookmark to: StumbleUpon