Question

vba转AR码工具

vba转AR码工具

Answer 1

本贴的代码转换其实并不完全,只使用了ARV1的转换,但是为了方便理解和转换,所以就没有写ARV3的转换方式,也没有说明2字节和4字节的转换和代码互换的公式,如果全写的话,本贴再加三倍篇幅也写不完,下边简单总结一下V3的代码转换
单字节:
(EC)4510A,11 <=> (VBA)0300510A:11 <=> (AR)0030510A 00000011(复号)

双字节:
(EC)4510A,11,22 <=> (VBA)0300510A:2211 <=> (AR)0230510A 00002211(复号)

四字节:
(EC)4510A,11,22,33,44 <=> (VBA)0300510A:44332211 <=> (AR)0430510A 44332211(复号)

AR Crypt的转换模式有AR V1/V2和AR V3之分,就是图中红色圈部分

如果使用的是1L的方法转换为AR V1/V2,那么就用
gameshark_v1
或者
PAR_V1

如:
PAR_v1 LV 5
D4E80221 C751535C
GameShark_v1 LV 100
58110FD4 AAB5B023

如果选择的是AR V3,那么就用
gameshark_v3
或者
PAR_V3

如:
PAR_v3 LV 5
FBBE6A2E 9BE386EB
GameShark_v3 LV 100
DDAAB089 48808AC0

Answer 2

P.S. 34L的贴中引用到了CB码,看起来像是VBA码,但可惜不是,经过N次测试,GPSP只支持1~4字节常规内存的修改,所以,VBA码按照本帖步骤去转换是可以完美支持的(VBA码也只支持1~4字节的修改),但是AR码可以说完全没有发挥它本来的功能,根本不支持一个代码修改NNNN字节,就此请教过alexwong,冒似是金手指内核不完善

譬如叶绿386遇敌100%闪光的金手指,简化代码修改NNNN个字节,这些都不可以

本贴的代码转换其实并不完全,只使用了ARV1的转换,但是为了方便理解和转换,所以就没有写ARV3的转换方式,也没有说明2字节和4字节的转换和代码互换的公式,如果全写的话,本贴再加三倍篇幅也写不完,下边简单总结一下V3的代码转换
单字节:
(EC)4510A,11 <=> (VBA)0300510A:11 <=> (AR)0030510A 00000011(复号)

双字节:
(EC)4510A,11,22 <=> (VBA)0300510A:2211 <=> (AR)0230510A 00002211(复号)

四字节:
(EC)4510A,11,22,33,44 <=> (VBA)0300510A:44332211 <=> (AR)0430510A 44332211(复号)

AR Crypt的转换模式有AR V1/V2和AR V3之分,就是图中红色圈部分

如果使用的是1L的方法转换为AR V1/V2,那么就用
gameshark_v1
或者
PAR_V1

如:
PAR_v1 LV 5
D4E80221 C751535C
GameShark_v1 LV 100
58110FD4 AAB5B023

如果选择的是AR V3,那么就用
gameshark_v3
或者
PAR_V3

如:
PAR_v3 LV 5
FBBE6A2E 9BE386EB
GameShark_v3 LV 100
DDAAB089 48808AC0

Answer 3

http://www.codemasters-project.net/portal-english/apportal/request.php?24

Arcrypt 2.4b

教程
http://bbs.levelup.cn/showtree.aspx?topicid=604025&postid=9742839

Answer 4

Sub a()

Dim curDoc As Document
Dim sCount As Double, i As Double

Set curDoc = ActiveDocument
sCount = curDoc.Content.Characters.Count
Beep

If transType = "全角转半角" Then
curDoc.Content.Characters(i) = StrConv(curDoc.Content.Characters(i), vbNarrow)
End If
Selection.WholeStory
Selection.Range.CharacterWidth = wdWidthHalfWidth

End Sub

Answer 5

就知到这个
http://www.codemasters-project.net/portal-english/apportal/request.php?24

Arcrypt 2.4b

教程
http://bbs.levelup.cn/showtree.aspx?topicid=604025&postid=9742839