77七

回复 6# terse

可以看到顶楼图片，刷新等待一下，试试

terse

你们看到图片？

czjt1234

vbs

file1 = "01.txt"
file2 = "basetik.tik"

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTextStream = oFSO.OpenTextFile(file1)
s = oTextStream.ReadAll()
oTextStream.Close()

Set oRegExp = CreateObject("VBScript.RegExp")
oRegExp.IgnoreCase = True
oRegExp.Pattern = "Using title id\: (.+)?\r\n"
For Each i In oRegExp.Execute(s)
    t = i.SubMatches.Item(0)
Next

With CreateObject("Msxml2.DOMDocument").CreateElement("hex")
    .DataType = "bin.hex"
    .Text = t
    arrByte = .NodeTypedValue
End With

With CreateObject("ADODB.Stream")
    .Type = 1    'adTypeBinary
    .Mode = 3    'adModeReadWrite
    .Open()
    .LoadFromFile file2
    .Position = &H01DC
    .Write arrByte
    .SaveToFile file2, 2
    .Close()
End With

oRegExp.Pattern = "generated encrypted\: (.+)?\r\n"
For Each i In oRegExp.Execute(s & vbCrLf)
    t = i.SubMatches.Item(0)
Next

With CreateObject("Msxml2.DOMDocument").CreateElement("hex")
    .DataType = "bin.hex"
    .Text = t
    arrByte = .NodeTypedValue
End With

With CreateObject("ADODB.Stream")
    .Type = 1    'adTypeBinary
    .Mode = 3    'adModeReadWrite
    .Open()
    .LoadFromFile file2
    .Position = &H01BF
    .Write arrByte
    .SaveToFile file2, 2
    .Close()
End With

MsgBox "ok"
复制代码

yyz219

回复  23618342


    看到图片吗？
a574045075 发表于 2023-2-20 18:28

    有图片

a574045075

回复 2# 23618342


    看到图片吗？

23618342

这个论坛图片上传不了