静物2 汉化分析专用贴

慕容枫叶

我复制了。。。
  w1 {$ @% }1 n. v0 t( ]% g% C其实在线转帖类型的也可以。

firendless

啊....我在记事本里打的....
! {. r0 y6 l3 b# A2 v
2 T# @6 j. k* |6 b我给枫叶传过一个去防拷贝的插件...现在这台机器没有...我叫她mail你

shane007

你能上传exe和源码吗？
论坛有防拷贝，光贴代码非法用啊

firendless

又来异或...还是数组操作吧,没有用IDE...007老大检查咯
那个提取的方法还是和之前那个riper一样就可以了吧

2. Private Const cKey As String = "2923BE84E16CD6AE529049F1F1BBE9EB"
4. Private Sub cmdCommand1_Click()
6.     Dim lngFileNum As Long, lngLength   As Long, strFilePath As String, bData()     As Byte
8.     strFilePath = App.Path & "\\1.dat"
10.     lngLength = FileLen(strFilePath)
12.     lngFileNum = FreeFile
14.     If lngFileNum = 0 Then Exit Sub
16.     ReDim bData(lngLength)
18.     Open strFilePath For Binary As #lngFileNum
20.     Get #lngFileNum, 1, bData()
22.     Close #lngFileNum
24.     Dim lngIndex As Long, lngUbound As Long
26.     lngUbound = UBound(bData())
28.     Dim lngIndexB As Long, lngKey As Long
30.     For lngIndexB = 1 To 32
32.         lngKey = CHex2Dec(Mid$(cKey, lngIndexB, 1))
34.         For lngIndex = 0 To lngUbound
36.            bData(lngIndex) = bData(lngIndex) Xor lngKey
37.    
38.         Next
40.     Next
42.     strFilePath = App.Path & "\\2.dat"
44.     lngFileNum = FreeFile
46.     Open strFilePath For Binary As #lngFileNum
48.     Put #lngFileNum, 1, bData()
50.     Close #lngFileNum
51. End
52. End Sub
54. Private Function CHex2Dec(strHex As String) As Long
55. Select Case strHex
57.     Case "A": CHex2Dec = 10
58.     Case "B": CHex2Dec = 11
59.     Case "C": CHex2Dec = 12
60.     Case "D": CHex2Dec = 13
61.     Case "E": CHex2Dec = 14
62.     Case "F": CHex2Dec = 15
63.     Case Else: CHex2Dec = CLng(strHex)
65. End Select
66. End Function

复制代码

shane007

2009.4.8 更新

shane007

2009.4.4 更新