Viotto-Security.net - VB6 source codes

If you use any of these sources, please don't be a ripper and give credits! Thanks

_______________________________________________________________________________________________

Viotto Binder 1.1

Description of this tool is in Support Tools page! 

In this new version of my binder I changed method to write settings (and files) into stub: In version 1.0 I use to append data at EOF, in 1.1 I add a resource containing the data. This makes the program crypter-compatible.

_______________________________________________________________________________________________

Viotto Binder 1.0

Although this is the old version of my binder, it can be useful to learn the differences among putting settings at EOF (here in v1.0) or in a resource (v. 1.1). So I leave the source here.

_______________________________________________________________________________________________

ROT-N encryption module

It is a simple encryption, ROTN implemented in VB6, and can be used for text and files.

'********************************************************************************
'* Title:       ROT-N encryption module                                         *
'* Author:      Viotto                                                          *
'* Website:     www.viotto-security.net                                         *
'* Description: simple substitution cipher for bytes: each input                *
'*              byte value will be rotated by the specified number of bytes.    *
'* Purpose:     simple encryption for text and files.                           *
'* Usage:       Encryption key should be a number between 1 and 255; higher     *
'*              numbers will work but they cause redundant rotations.           *
'* Notes:       with key value 128 (ROT-128), you can use same function to      *
'*              encrypt and decrypt data. Otherwise you can use ROTN_Forward    *
'*              to encrypt and ROTN_Backward to decrypt.                        *
'*              Don't be a ripper: please keep credits when using this code!    *
'********************************************************************************


Public Function ROTN_Forward(ByVal InputData As String, ByVal NumKey As Integer) As String

Dim i As Long, OutChar As String

For i = 1 To Len(InputData)
OutChar = Asc(Mid(InputData, i, 1)) + NumKey
While OutChar > 255
OutChar = OutChar - 256
Wend
ROTN_Forward = ROTN_Forward + Chr(OutChar)
Next

End Function


Public Function ROTN_Backward(ByVal InputData As String, ByVal NumKey As Integer) As String

Dim i As Long, OutChar As String

For i = 1 To Len(InputData)
OutChar = Asc(Mid(InputData, i, 1)) - NumKey
While OutChar < 0
OutChar = OutChar + 256
Wend
ROTN_Backward = ROTN_Backward + Chr(OutChar)
Next

End Function

_______________________________________________________________________________________________

Get default browser path 

with few lines of code and no APIs.

I did some research around the internet on how to get default browser's path.
I found only long codes, sometimes needing whole modules and APIs; so I decided to write my own method, just few lines of code and no APIs needed:

Function DefaultBrowser() As String

Dim regshell As Object
Set regshell = CreateObject("Wscript.Shell")

' Reads the registry value where is stored the default application to use with HTTP
DefaultBrowser = regshell.regread("HKEY_CLASSES_ROOT\HTTP\shell\open\command\")

' Removes shell parameters after the actual path, preserving only path included in double       ' quotes
DefaultBrowser = Left(DefaultBrowser, InStr(1, DefaultBrowser, ".exe", vbTextCompare) + 4)

' Removes double quotes (")
DefaultBrowser = Replace(DefaultBrowser, Chr(34), vbNullString)

End Function

_______________________________________________________________________________________________

Kill Switch

Description of this tool is in "Support Tools" page! 

_______________________________________________________________________________________________

 Administrator Switchboard

This is a very old project of mine, when I was learning how to write / read the Windows registry. You could use it for the same purpose too.

Or you could use the compiled program to reactivate those services if disabled by malware or by the system administrator; or if you are the admin, restrict the access to the users to sensible parts of the system.