Basic Rar Password Recovery

This is a rudimentary RAR password cracker I tried making about three days ago. Working off and on, I managed to put some decent, respectable features into it. I had started with it thinking it would be something entertaining and educative to just fool around with, but in a very short span of time, I found myself building it better and more practical, so I decided it should be given a chance and thus tidied up the GUI, did some brain tickling for new functions that could be added to it and implemented those possible.
Despite all my efforts, however, it's still the work of a single individual, of a few days and things may have been left untested and bugs undiscovered. So, if you would like to use it, use it at your own risk and if you get any flaw(s) in the program, a report on it would always be welcome.

Download here

Len and Trim alternatives

From some alternative vb functions, these two are my most recent ones.

Option Explicit

Private Function newlen1(ByVal str As String) As Long
'//Author : s0ft(aayush.babu@yahoo.com)
'//Web    : c0dew0rth.blogspot.com
'//May 27, 9 : 03 PM
If str = "" Then newlen1 = 0: Exit Function
Dim cnt As Long
cnt = 0 '//you may or may not include this line
Dim char As String
Do
    char = Mid$(str, 1, cnt + 1)
    If char <> "" Then
        cnt = cnt + 1
    End If
Loop Until str = char
newlen1 = cnt
End Function

Function AltLen2(ByVal sString As String) As Long
    Dim bArr() As Byte

    If sString = vbNullString Then Exit Function
    bArr = sString

    AltLen2 = ((UBound(bArr) + 1) / 2)
End Function

Function replacespace(ByVal mainchar As String) As String
'//Author : s0ft(aayush.babu@yahoo.com)
'//Web    : c0dew0rth.blogspot.com
'//A simple Replace$(somestring, " ", "") replacement
Dim bt() As Byte
bt = mainchar
Dim cnt As Long
For cnt = 0 To UBound(bt) Step 2 '//step 2 is here for avoiding the null that appears after every character when converted to byte array
    If bt(cnt) <> 32 Then '//32 DEC is ascii code for space
        replacespace = replacespace + Chr$(bt(cnt)) '//only non space characters will be appended to alttrim
    End If
Next cnt
End Function


Function AltTrim(ByVal char As String) As String
'//Author : s0ft(aayush.babu@yahoo.com)
'//Web    : c0dew0rth.blogspot.com
'//A Trim$(somestring) alternative
Dim bt() As Byte
bt = char
Dim cnt As Long
Dim i As Long
Dim Acc As Long
Dim determined As String
Dim addflag As Boolean
For cnt = 0 To UBound(bt) Step 2
    If bt(cnt) <> 32 Or addflag = True Then
        AltTrim = AltTrim + determined + Chr$(bt(cnt))
    End If
    If AltTrim <> "" Then '//if the first non space character has been found then
        Dim cnt_ As Long
        Acc = 0 '//initialise the counter for number of spaces
        For cnt_ = (cnt + 2) To UBound(bt) Step 2 '//start processing from the next character
            If bt(cnt_) = 32 Then '//if next character is space again,
                Acc = Acc + 1 '//acc will have the number of spaces found. it's just a counter
                addflag = False '//till now a non space character isn't detected so keep the addflag false
            Else '//if next character is not a space then
                determined = Space$(Acc) '//reaching here at any point in this loop will mean the no. of spaces as reported by acc are followed by a non-space character
                addflag = True '//tell the above statements to add the spaces
                cnt = cnt + Acc * 2 '//tell that we're going forward only from the new non-space character
                Exit For  '//skip the loop as we've found one non-space character after Acc number of spaces. Goto skiploop will do the same thing
            End If
        Next cnt_
'//skiploop: '//remove the comment if u use Goto skiploop instead of Exit For above
    End If
Next cnt
End Function

Private Sub Form_Load()
Debug.Print AltTrim("   c a   t      ")
End Sub 

DesktopHide

Simple application to enable/disable, show/hide the desktop (with the taskbar) with a specified combination of keys used as passwords.
Download here

ProcessSnapshot

Just a simple program that makes logs of the currently running processes combined with other features which could make it a little more useful like logging in a fixed interval of time, for a number of times etc.

 Download here

AnimateWindow

A program that makes your application's window come into appearance by fading in.
Download here

s0ftSpread 3

Just a version 3 of s0ftspread.
Additional features :
-Yahoo status update (once every run)
-Download once option (only the first time run)
Download here

Yahoo Auto Responder

A simple auto responder for yahoo messenger I made some time ago.
Download here

s0ftspreader2

This is a version 2 of s0ftspreader I posted earlier.
Download here

sUSBTool

A simple 3-function USB tool that you can always put with you.
Download here

s0ftSpreader

A little program that can help you spread, download and run your executable.
Download here

 

WinView

Just a simple application to give you an overview of applications(windows) running in your system.
Simply point the cursor to the component you want the info from and get it in WinView.
Download here

File Name Leecher Version 4

As the name implies, the program gets a list of random and maybe popular filenames from the internet. Then, creates a list of these. As an option, you could choose to rename (after copying of course) a given file into as many filenames as you've collected.

Download here

NOD32 License Updater

Here is something that anyone without a license for NOD32 would definitely want.
It simply gets a username/password combination from one of many sites that provides regularly updated ESET credentials. And then, it injects the user/pass to the registry.
The archive doesn't include the source file. But just tell if you'd like it.
Download here

 

About the blog

This place is going to be for anything related to programming; made by me, mostly; and perhaps also those not. Feel free to comment and respond critically about the contents presented here. If you need the source for any program, let me know.