Recover hashed password(With source in VB)

[_mAkA_]

This is my own code & is not theft from any site. If any one comments on my code I'm going to kick their as?. The source gose as:

'In form frmmain.frm
Option Explicit
'/* API for executing a file or location,
'*/
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

'/* This is all you have to do...
'*/
Private Sub cmdUnmask_Click()
UnmaskPasswords
End Sub


'*/


Private Sub Command1_Click()
End
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub
Private Sub TitleScroll(frm As Form)
Dim X As Integer
Dim current As Variant
Dim Y As String
Y = frm.Caption
frm.Caption = "Password Unmasking Software by Hacker the Cracker"
frm.Show
For X = 0 To Len(Y)
If X = 0 Then
frm.Caption = ""

current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
GoTo done
Else:
End If
frm.Caption = Left(Y, X)

current = Timer
Do While Timer - current < 0.05
DoEvents
Loop
done:
Next X
End Sub

Private Sub Timer1_Timer()
TitleScroll frmMain
End Sub

'In a module


'*/


Option Explicit
'/* API Calls...
'*/
Declare Function EnumChildWindows Lib "user32" ( _
ByVal hWndParent As Long, _
ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long
Declare Function EnumWindows Lib "user32" ( _
ByVal lpEnumFunc As Long, _
ByVal lParam As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Integer, _
ByVal lParam As Long) As Long
Public Declare Function ShowWindow Lib "user32" ( _
ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

Private Const EM_GETPASSWORDCHAR = &HD2
Private Const EM_SETPASSWORDCHAR = &HCC
Private Const EM_SETMODIFY = &HB9
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5

'/* Callback for parent windows...
'*/
Private Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
EnumChildWindows hWnd, AddressOf EnumWindowsProc2, 1
EnumWindowsProc = True
End Function
'/* Callback for child windows...
'*/
Private Function EnumWindowsProc2(ByVal hWnd As Long, ByVal lParam As Long) As Long
If SendMessage(hWnd, EM_GETPASSWORDCHAR, 0, 1) Then
UpdateWindow hWnd
End If
EnumWindowsProc2 = True
End Function

'/* Show the password and refresh textbox...
'*/
Private Sub UpdateWindow(hWnd As Long)
SendMessage hWnd, EM_SETPASSWORDCHAR, 0, 1
SendMessage hWnd, EM_SETMODIFY, True, 1
ShowWindow hWnd, SW_HIDE
ShowWindow hWnd, SW_SHOW
End Sub

'/* the only Public function...
'*/
Public Function UnmaskPasswords()
EnumWindows AddressOf EnumWindowsProc, 1
End Function

All comments including I theft the code will warmly be welcomed

 

[khattam_]

Yeah you stole it
Just modified it a bit.........

 

[bharat_r]

how do I use it-paste it in VB & also can u explain what password does it recover?

 

[_mAkA_]

how do I use it-paste it in VB & also can u explain what password does it recover?

Hi 2 Rs. IC

What the hell are you you say you are a VB master & can't figure out what password it unmasks. It unmasks password behind astrik(*) eg. Dialup connection Box

 

[khattam_]

Hey _mAkA_, have you tried your program yourself??
It DOES NOT work.........................

 

[it_waaznt_me]

Hmm.. You need to add a cmdUnMask Command button and another Command Button to end the program ..Now add a module in the project .. Post the stuff above 'In the Module in the form and rest in the Module ..

Btw .. I too dont think it will work on W2k+ operating systems .. havent tried it yet though ..

 

[imported_dheeraj_kumar]

this wont work in xp, cuz xp and 2k adds some more characters to the original password.

 

[funkiguy_me]

wats this how to use this??? wud anyone explain