elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [VB6] Obtener paginas visitadas de Mozilla Firefox
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [VB6] Obtener paginas visitadas de Mozilla Firefox  (Leído 4,342 veces)
illuminat3d

Desconectado Desconectado

Mensajes: 231



Ver Perfil WWW
[VB6] Obtener paginas visitadas de Mozilla Firefox
« en: 18 Agosto 2009, 20:22 pm »

Bueno ayer comencé a buscar archivos de firefox y di con 'sessionstore.bak', entondes terminé el mini modulo pero le hacia falta una limpieza, como no sabia como hacer esa limpieza le pedí a BlackZeroX que me ayduase a mejorarlo, a contianuación dejo mi codigo de fuente original y luego el codigo mejorado por BlackZeroX

Imagen del ejemplo mio :



Descargar codigo de SharkI

Y aqui os dejo el codigo en sucio de BlackZeroX :

Código
  1.  
  2. Attribute VB_Name = "Module1"
  3. Dim d()
  4. Sub main()
  5.    '---------------------------------------------------------------------------------------------------º
  6.    'Trabajar con punteros al archivo -> Garantisa el devido uso de la memoria de la plicaciòn Actual!¡.º
  7.    'Este es un Codigo Sucio creado por: BlackZeroX (blackzerox2006@hotmail.com)------------------------º
  8.  
  9. Dim ByteI() As Long, ByteF As Long, SData As String, Archivo As String, GetD As String
  10.  
  11.    Archivo = "c:\sessionstore.txt"
  12.    If Dir(Archivo, vbArchive) = "" Then GoTo Fin:
  13.  
  14.    Open Archivo For Binary As 1
  15.        d = Array(Chr(34) & "url" & Chr(34) & ":", _
  16.                  Chr(34) & "title" & Chr(34) & ":", _
  17.                  Chr(34) & "ID" & Chr(34) & ":")
  18.        ReDim ByteI(UBound(d))
  19.  
  20.        GetD = Space(255)
  21.        Get 1, , GetD
  22.        If Len(GetD) = 0 Then GoTo Fin:
  23.        '----------------------------------------------------------------
  24.        'Esto se deberia convertir en funcion para poder cargar los demas
  25.        '----------------------------------------------------------------
  26.            For i = 0 To 2
  27.                DoEvents
  28.                ByteI(i) = InStr(GetD, d(i))
  29.                If ByteI(i) = 0 Then Fin = True: GoTo Fin ' Termina Todo
  30.            Next i
  31.        '----------------------------------------------------------------
  32.        'Fin de supuesta funcion
  33.        '----------------------------------------------------------------
  34.  
  35.        'URL
  36.        Seek 1, ByteI(0)
  37.        ByteF = ByteI(1) - ByteI(0)
  38.        SData = Space(ByteF)
  39.        Get 1, , SData
  40.        SData = Limpiar(SData)
  41.        MsgBox SData
  42.  
  43.        'Title
  44.        Seek 1, ByteI(1)
  45.        ByteF = ByteI(2) - ByteI(1)
  46.        SData = Space(ByteF)
  47.        Get 1, , SData
  48.        SData = Limpiar(SData)
  49.        MsgBox SData
  50.        'ID
  51.        Seek 1, ByteI(2)
  52.        ' aqui se deberia pasar la supuesta funciòn para delimitar el rango a cargar con el ByteI(0) SIGUIENTE
  53.        ByteF = 6
  54.        SData = Space(ByteF)
  55.        Get 1, , SData
  56.        SData = Limpiar(SData)
  57.        MsgBox Val(SData)
  58. Fin:
  59.    Close 1
  60. End Sub
  61.  
  62.  
  63. Function Limpiar(StrData As String) As String
  64.    StrData = Replace(StrData, ",", "")
  65.    StrData = Replace(StrData, d(0), "")
  66.    StrData = Replace(StrData, d(1), "")
  67.    StrData = Replace(StrData, d(2), "")
  68.    StrData = Replace(StrData, Chr(34), "")
  69.    Limpiar = StrData
  70. End Function
  71.  

Saludos!  :P


« Última modificación: 18 Agosto 2009, 20:25 pm por Sharki » En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: [VB6] Obtener paginas visitadas de Mozilla Firefox
« Respuesta #1 en: 19 Agosto 2009, 02:36 am »

Hola, no hay ningun archivo con tal nombre en esa carpeta, por lo menos en la utlima versión de firefox...

saludos.


En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
BlackZeroX (Astaroth)
Wiki

Desconectado Desconectado

Mensajes: 3.142


I'Love...!¡.


Ver Perfil WWW
Re: [VB6] Obtener paginas visitadas de Mozilla Firefox
« Respuesta #2 en: 19 Agosto 2009, 05:53 am »

Hola, no hay ningun archivo con tal nombre en esa carpeta, por lo menos en la utlima versión de firefox...

saludos.

"c:\sessionstore.txt"  ?

... yo copie dicho archivo a C para ahorrarme el tecleo y demàs...

esta es la ruta completa:

de forma predeterminada esta en:

(C:) X:\Documents and Settings\BlackZeroX\Datos de programa\Mozilla\Firefox\Profiles\fjlb5t1t.default\sessionstore.js

ò

(C:) X:\Documents and Settings\BlackZeroX\Datos de programa\Mozilla\Firefox\Profiles\fjlb5t1t.default\sessionstore.bak

El codigo esta en sucio y fue solo una idea que le di a Sharki, se pueden crear una funcion para leer los siguientes punteros al byte X del archivo (Para no cargarlo TODO en memoria si es que llegase a pesar mas de 1 mega en casos extremos) y seguir cargando los demàs datos existentes (Este solo era un ejemplo)
« Última modificación: 19 Agosto 2009, 06:02 am por BlackZeroX » En línea




CScript (Actualizado 26/06/2013).

FileX <-- Re-modelando...
Web Principal-->[ Blog(VB6/C/C++) | Host File | Scan Port) ]

The Dark Shadow is my passion.
El infierno es mi Hogar, mi novia es Lilit y el metal mi relig
illuminat3d

Desconectado Desconectado

Mensajes: 231



Ver Perfil WWW
Re: [VB6] Obtener paginas visitadas de Mozilla Firefox
« Respuesta #3 en: 19 Agosto 2009, 14:11 pm »

Hola, no hay ningun archivo con tal nombre en esa carpeta, por lo menos en la utlima versión de firefox...

saludos.

Yo obtuve la carpeta de la siguiente forma, puedes verlo en mi codigo de fuente :

Código
  1. Option Explicit
  2.  
  3. Dim xCarpeta As String, i As Integer, Lista As String, txtBasura As String
  4. Dim Bin As String, Contenido() As String, File As String, dArchive As String, Delimiter As String
  5.  
  6. Public Function Obtener_Carpeta()
  7. File = FreeFile
  8.  If Dir$(Environ$("AppData") & "\Mozilla\Firefox\profiles.ini", vbArchive) <> "" Then
  9.   Open Environ$("AppData") & "\Mozilla\Firefox\profiles.ini" For Binary As #File
  10.    Bin = Space(LOF(File))
  11.    Get #File, , Bin
  12.   Close #File
  13.  
  14.   Contenido() = Split(Bin, "Path=Profiles/")
  15.   xCarpeta = Mid$(Contenido(1), 1, 16)
  16.   frmMain.Label1.Caption = Environ$("AppData") & "\Mozilla\Firefox\Profiles\" & xCarpeta
  17.  End If
  18. End Function
  19.  
  20. Saludos! ;D
  21.  
En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: [VB6] Obtener paginas visitadas de Mozilla Firefox
« Respuesta #4 en: 19 Agosto 2009, 15:24 pm »

Deberías de cambiar los delimitadores del split (tengo un code similar y en mi caso usaba otro  :P), ya que si buscas http: encontrás muchisimos, pero no todos son importantes, ya que muchas de las urls que aparecen en el sessionstore.js no son necesariamente las urls principales sino que son href, y quizás no se quiera estas.

Así que se podría eliminar estas directamente, .. o bien dar la opción de mostrar todos los links, o solo los principales (sin href)

Saludos
En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Los routers guardan logs de paginas visitadas?
Hacking Wireless
igusi2008 3 23,650 Último mensaje 4 Julio 2015, 17:16 pm
por dperezortiz
¿como saber que paginas estan siendo visitadas por una pc en una red local?
Redes
thedevilini 3 20,128 Último mensaje 25 Noviembre 2011, 16:38 pm
por madpitbull_99
Administrador empresa sabe paginas web visitadas
Redes
serpet 6 5,596 Último mensaje 12 Octubre 2013, 18:33 pm
por serpet
páginas visitadas trabajo
Redes
josuatree 2 1,397 Último mensaje 7 Junio 2014, 23:14 pm
por josuatree
Optimiza la visualización de páginas web en Mozilla Firefox
Noticias
wolfbcn 0 457 Último mensaje 12 Marzo 2017, 21:23 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines