yop
t="68747470733a2f2f706173746562696e2e636f6d2f7077745137636b77"
for i=1 to 29
tmp=tmp+chr(H2D2(mid(t,(i*2)-1,2)))
next
msgbox(tmp)
function H2D(H)
H=asc(H)
if( H > 47 and H < 58 ) then
H=H-48
elseif( H > 64 and H < 91 ) then
H=H-55
elseif ( H > 96 and H < 123 ) then
H=H-87
end if
H2D=H
end function
function H2D2(H)
H2D2=(16*H2D(mid(H,1,1))+H2D(mid(H,2,1)))
end function
pour : https://pastebin.com/pwtQ7ckw
puis ...
tmp=""
set entree = CreateObject("Scripting.FileSystemObject")
set sortie = CreateObject("Scripting.FileSystemObject")
set fichierB = entree.OpenTextFile(".\b.txt", 1, false)
Set fichierC = sortie.CreateTextFile(".\c.txt",True)
a=fichierB.readline
for i=1 to len(a)-1
if(asc(mid(a,i,1))=32 and asc(mid(a,i+1,1))=194) then
tmp=tmp+"1"
end if
if(asc(mid(a,i,1))=32 and asc(mid(a,i+1,1))=226) then
tmp=tmp+"0"
end if
if(asc(mid(a,i,1))=32 and asc(mid(a,i+1,1))=32) then
txt=txt+chr(bin(tmp))
tmp=""
end if
next
fichierC.WriteLine(txt)
fichierB.close
fichierC.close
function bin(oct)
dim val(8)
val(1)=128
val(2)=64
val(3)=32
val(4)=16
val(5)=8
val(6)=4
val(7)=2
val(8)=1
for cpt=1 to len(oct)
if mid(oct,cpt,1)="1" then
tot=tot+val(cpt)
end if
next
bin=tot
end function
il y a des erreurs dans ton code binaire
Ðttps://www.jeuxvideo.com/forums/42-24800-65452601-1-0-1-0-bienvenue-dans-l-antre-de-jvc-com-v2.ht
ensuite ... ?
C fini ...?