poprzedni wpis – ten o ladowarkach, ma swoja historie. podczas gdy chcialem go opublikowac padl blogger. opera zachowuje sobie wpisy, ale tym razem cos sie zdrowo porabalo [murphy czuwa] i wpis zniknal.
udalo mi sie zidentyfikowac plik, w ktorym opera przetrzymuje takie rzeczy – jest to plik cookies4.dat. niestety wszystko jest wpisane binarnie – w hexach. ale od czego jest pspad, ktory pieknie hexy czyta, i vbs, ktory moze to spowrotem przywrocic na text? (:

i tak znalazlem w pspad hexedit poczatek i koniec textu:

przekleilem do pliku textowego. wygladalo to tak:
“802533436125323068726566253344253232687474702533412F2F7
72D66696C65732E626C6F6773706F742E636F6D2F323030362F30332
F626C756574(…)”
przy czym jasna sprawa jest tego od groma – to tylko poczatek. wystarczylo na szybko skleic skrypcik:


'*******************************************************************************
'* opera cookie4.dat reader *
'* URL char table:http://www.blooberry.com/indexdot/html/topics/urlencoding.htm*
'* nExoR@iscg.pl *
'*******************************************************************************
'Option Explicit
ON ERROR RESUME NEXT
set URLcharTable=createObject("Scripting.Dictionary")
URLcharTable.add "%20"," "
URLcharTable.add "%0",vbCrLf
URLcharTable.add "%2C",","
URLcharTable.add "%21","!"
URLcharTable.add "%24","$"
URLcharTable.add "%26","&"
URLcharTable.add "%2B","+"
URLcharTable.add "%2F","/"
URLcharTable.add "%3A",":"
URLcharTable.add "%3B",";"
URLcharTable.add "%3D","="
URLcharTable.add "%3F","?"
URLcharTable.add "%40","@"
URLcharTable.add "%22",""""
URLcharTable.add "%3F","?"
URLcharTable.add "%3C","< "
URLcharTable.add "%3E",">"
URLcharTable.add "%23","#"
URLcharTable.add "%25","%"
URLcharTable.add "%7B","{"
URLcharTable.add "%7D","}"
URLcharTable.add "%7C","|"
URLcharTable.add "%5C",""
URLcharTable.add "%5E","^"
URLcharTable.add "%7E","~"
URLcharTable.add "%5B","["
URLcharTable.add "%5D","]"
URLcharTable.add "%60","`"
'opera
URLcharTable.add vbCrLf&"A",vbCrLf
URLcharTable.add vbCrLf&"D"&vbCrLf,vbCrLf


set fso=createobject("Scripting.FileSystemObject")
set f=fso.openTextFile("dokonwersji.hex",1)
data=f.ReadLine

add=true
for i=1 to len(data) step 2
n = cint( "&H"&mid( cstr(data),i,2 ) )
'opera saves cookie info starting from chat 18 and ends with chars ...17 2 128 or ...17 2 18
if n=18 then
if add then
add=false
else
add=true
end if
end if
if n=128 then add=true
'wscript.echo chr( n ) & " " &n
if add and n<>128 and n<>18 then text=text& chr( n )
next
wscript.echo convert(text)

function convert(byval text)
for each URLchar in URLcharTable
text=replace( text,URLchar,URLcharTable.Item(URLchar) )
next
convert=text
end function

i text odzyskany <:

kojn twierdzi, ze to niezdrowe – zeby pisac skrypty i tracic wiecej czasu, niz przepisac od nowa, albo zrobic cos recznie. ale przepisywanie albo reczna robota jest nudna. po co pozbawiac sie dobrej zabawy? (;

Spread the love

Zostaw komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *

Time limit is exhausted. Please reload CAPTCHA.