3
Ковычки
06.07.13
✎
21:09
|
Сделал, частично, пока невкурю значения (делал ксором по известному)
mask=array(11,51,43,4,7,21,72,10,11,2,6,20,24,17,21,19,23,25,18)
set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("1sbw.adm")
s=""
do while not f.atendofstream
x=mid(f.readline,6,ubound(mask)+1)
for i=0 to ubound(mask)
s=s & chr(mask(i) xor asc(mid(x,i+1)))
next
s=s & vbcrlf
loop
msgbox s
|
|
6
Ковычки
06.07.13
✎
22:03
|
даже так
mask=array(11,51,43,4,7,21,72,10,11,2,6,20,24,17,21,19,23,25,18,22,20,24,31,29,30,26,27,18,22,4,8,1,5,3,7,9,2,6,4,8,15,13,14,10,11,2,6,20,24,17,21,19,23,25,18,22,20,24,31,29,30,26,27,18,22,4,8,1,5,3,7,9,2,6,4,8,15,13,14,10,11,2,6,20,24,17,21,19,23,25,18,22,20,24,31,29,30,26,27,18,22,4,8,1,5,3,7,9,2,6,4,8,15,13,14,10,11,2,6,20,24,17,21,19,23,25,18,22)
|
|
8
Ковычки
06.07.13
✎
22:04
|
mask=array(11,51,43,4,7,21,72,10,11,2,6,20,24,17,21,19,23,25,18,22,20,
24,31,29,30,26,27,18,22,4,8,1,5,3,7,9,2,6,4,8,15,13,14,10,11,
2,6,20,24,17,21,19,23,25,18,22,20,24,31,29,30,26,27,18,22,4,
8,1,5,3,7,9,2,6,4,8,15,13,14,10,11,2,6,20,24,17,21,19,23,25,
18,22,20,24,31,29,30,26,27,18,22,4,8,1,5,3,7,9,2,6,4,8,15,13,
14,10,11,2,6,20,24,17,21,19,23,25,18,22)
|
|