Site hosted by Angelfire.com: Build your free website today!
Revealing the passwords behind asterisks in Internet Explorer

The following source code reveals the passwords stored behind the asterisks in the web pages of Internet Explorer 5.0 and above. 

'AsterWin IE v1.01
'Copyright © 2002 Nir Sofer
'
'Web site: http://nirsoft.cjb.net
'
'This utility reveals the passwords behind the asterisks in the Internet Explorer windows. (version 5.x and above only)
'It scans all opened Internet Explorer windows on your system, and reveals the passwords behind the asterisks in all password-boxes that appears in the web pages.
'

Private strCurrTitle            As String

'This function checks if we can access the Document object without errors.
Private Function CanAccessDocumentObject(Obj As Object) As Boolean
    Dim oDocument       As Object
    On Error GoTo err1:
    Set oDocument = Obj.document
    Set oDocument = Nothing
    CanAccessDocumentObject = True
    Exit Function
err1:
    CanAccessDocumentObject = False
End Function

Private Function SearchPasswordsInDoc(objDoc As Object) As Boolean
    Dim objElement      As Object
    Dim lngLen          As Long
    Dim lngIndex        As Long
    Dim blnFound        As Boolean
    
    'Get the number of elements in the document.
    lngLen = objDoc.All.length
    
    'Enumerates all elements in the document, in order to find the password elements.
    For lngIndex = 0 To lngLen - 1
        DoEvents
        Set objElement = objDoc.All.Item(lngIndex)
        'Checks if the element is a password-box.
        If LCase(objElement.getAttribute("Type")) = "password" Then
            'We found a password-box, so we reveal it together with window title.
            txtPasswords.Text = txtPasswords.Text & "Window Title: " & strCurrTitle & vbCrLf
            txtPasswords.Text = txtPasswords.Text & "Password: " & objElement.getAttribute("Value") & vbCrLf & vbCrLf
            blnFound = True
        End If
    Next
    
    lngLen = objDoc.frames.length
    'Enumerates all frames in the document
    For lngIndex = 0 To lngLen - 1
        'First, check if we can access the document object without receiving any error:
        If CanAccessDocumentObject(objDoc.frames.Item(lngIndex)) Then
            'If the document contains one or more frames, search for a password also in them:
            If SearchPasswordsInDoc(objDoc.frames.Item(lngIndex).document) Then blnFound = True
        End If
    Next
    
    SearchPasswordsInDoc = blnFound
End Function

Private Sub ScanPasswords()
    Dim objShellWins    As New SHDocVw.ShellWindows
    Dim objExplorer     As SHDocVw.InternetExplorer
    Dim objDocument     As HTMLDocument
    Dim blnFound        As Boolean
    Dim blnResult       As Boolean
    
    txtPasswords = "Scanning all windows, please wait..." & vbCrLf & vbCrLf
    Screen.MousePointer = vbHourglass
    'Enumerates All IE windows.
    For Each objExplorer In objShellWins
        If TypeOf objExplorer.document Is HTMLDocument Then
            Set objDocument = objExplorer.document
            'Saves the current title for using it if a password-box is found.
            strCurrTitle = objDocument.Title
            'Search for password-boxes in the document, including all frames in it.
            blnResult = SearchPasswordsInDoc(objDocument)
            If blnResult Then blnFound = True
        End If
    Next
    
    If Not blnFound Then
        txtPasswords.Text = txtPasswords.Text & "Password(s) not found." & vbCrLf
    Else
        txtPasswords.Text = txtPasswords.Text & "Done !" & vbCrLf
    End If
    Screen.MousePointer = vbDefault
End Sub

Private Sub cmdPasswords_Click()
    On Error GoTo err1
    ScanPasswords
    Exit Sub
err1:
    Screen.MousePointer = vbDefault
    MsgBox "Error " & CStr(Err.Number) & ": " & Err.Description, vbOKOnly Or vbExclamation, ""
End Sub

Download this project