How To Make Ramnit.Shortcut Killer

Hello Guys Nice To Meet You . This Time I Will Show You How To Make Your Own Ramnit.Shortcut Killer

Allright Its Time.

You Need Visual Basic 6

1.Add "Microsoft CommonDialog  Sp3" To Your Project
And In Your Form1 Add
a. 1 Text Box
b. 2. Command Button
c. 1. CommonDialog

Example:
And Then Add This Code To Your From:
Private Sub Command1_Click()
CommonDialog1.Filter = "Shortcut|*.Lnk;"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
If RamnitExploit(Text1.Text) = True Then
MsgBox "File  : " & "[" & Text1.Text & "]" & "  Detected Virus Ramnit.shortcut!!", vbCritical, "Anti Ramnit.Shortcut"
If MsgBox("Are You Sure Want To Delete?", vbQuestion + vbYesNo, APP_PROGRAM) = vbYes Then
On Error Resume Next
End If
Kill Text1.Text
Else
MsgBox "File  : " & "[" & Text1.Text & "]" & " Its Not Virus Shorcut", vbInformation, "Anti Ramnit.Shortcut"
End If
End Sub

Private Sub Form_Load()
MsgBox "Thanks For Gilang4321", vbInformation, "Anti Ramnit.Shortcut"
End Sub

And Then Add a Module With Name "ModDetectLnk" And Add This Code To Your Module
Function RamnitExploit(spath As String) As Boolean
Dim TheVirusString As String, TheVirusName As String
If FileLen(spath) / 110 >= 110 Then
Exit Function
End If
TheVirusString = "ì!ê:i"
TheVirusName = "Ramnit.Shortcut" 'bisa dikembangin dgn membaca database. Apakah cocok?? Jika ya > lapor"
If InStr(ReadFile(spath), TheVirusString) > 0 Then
RamnitExploit = True
End If
End Function
Public Function ReadFile(sFile As String) As String
On Error Resume Next
Open sFile For Binary Access Read As #1
ReadFile = Space(LOF(1))
Get #1, , ReadFile
Close #1
End Function

Ok Guys Thanks For Read This If You Have Problem ? Just Comment In This Post Bye