📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 14850
ScaleWidth = 19080
StartUpPosition = 3 'Windows Default
Begin VB.TextBox Text4
Height = 1575
Left = 3600
TabIndex = 8
Top = 4800
Width = 5415
End
Begin VB.TextBox Text3
Height = 1215
Left = 3600
TabIndex = 7
Top = 3240
Width = 5415
End
Begin VB.TextBox Text2
Height = 1215
Left = 3720
TabIndex = 6
Top = 1680
Width = 5295
End
Begin VB.TextBox Text1
Height = 975
Left = 3840
TabIndex = 5
Top = 240
Width = 4935
End
Begin VB.CommandButton Command1
Caption = "strat"
Height = 495
Left = 840
TabIndex = 0
Top = 7560
Width = 1695
End
Begin VB.Label Label4
Caption = "密码："
Height = 495
Left = 1200
TabIndex = 4
Top = 4920
Width = 1575
End
Begin VB.Label Label3
Caption = "二进制："
Height = 495
Left = 1200
TabIndex = 3
Top = 3240
Width = 1575
End
Begin VB.Label Label2
Caption = "拼音："
Height = 495
Left = 1200
TabIndex = 2
Top = 1920
Width = 1575
End
Begin VB.Label Label1
Caption = "输入汉字："
Height = 495
Left = 1320
TabIndex = 1
Top = 360
Width = 1335
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Function Conv(str As String) As String
Dim Code As Variant
Code = Array("", "11111", "11110", "11100", "11000", "10000", "00000", "01111", "01110", "01100", "01000", "00111", "00110", "00100", "00011", "00010", "11101", "11011", "10111", "00001", "10101", "10011", "10110", "00101", "10001", "01010", "10100", , , , "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "", """", ",", ".", Chr(13), Chr(10), "'")
Dim output As String
output = ""
Dim output2 As String
output2 = ""
Dim Hanzi() As Variant
l = Len(str)
ReDim Hanzi(l) As Variant
For i = 1 To l
Hanzi(i) = Mid(str, i, 1)
Next
For i = 1 To l
newhanzi = Code(Match(Hanzi(i)))
If Text5.Text = "" Then
MsgBox "没有输入密码子"
Exit Function
Else
code2 = Match(Hanzi(i)) - ((Val(newhanzi) * (2 * Text5.Text + 5)) Mod 26) ' 在此进行加密运算。公式为其中的2 * Text5.Text + 5部分。
If code2 < 0 Then '在此进行新字母二进制编码的转换，跟据循环链表规则
code2 = 26 + code2
End If
hanzicode = Code(code2) '新编码产生
End If
output = output & newhanzi
output2 = output2 & hanzicode '新编码连接至输出用的字符串
Next
Text4.Text = output2 '输出字符串至文本框
Conv = output
End Function
Public Function gGetPinYin(ByVal strHanZi As String) As String
Dim objPinYinDic As Variant
Set objPinYinDic = CreateObject("Scripting.Dictionary")
objPinYinDic.Add "a", -20319
objPinYinDic.Add "ai", -20317
objPinYinDic.Add "an", -20304
objPinYinDic.Add "ang", -20295
objPinYinDic.Add "ao", -20292
objPinYinDic.Add "ba", -20283
objPinYinDic.Add "bai", -20265
objPinYinDic.Add "ban", -20257
objPinYinDic.Add "bang", -20242
objPinYinDic.Add "bao", -20230
objPinYinDic.Add "bei", -20051
objPinYinDic.Add "ben", -20036
objPinYinDic.Add "beng", -20032
objPinYinDic.Add "bi", -20026
objPinYinDic.Add "bian", -20002
objPinYinDic.Add "biao", -19990
objPinYinDic.Add "bie", -19986
objPinYinDic.Add "bin", -19982
objPinYinDic.Add "bing", -19976
objPinYinDic.Add "bo", -19805
objPinYinDic.Add "bu", -19784
objPinYinDic.Add "ca", -19775
objPinYinDic.Add "cai", -19774
objPinYinDic.Add "can", -19763
objPinYinDic.Add "cang", -19756
objPinYinDic.Add "cao", -19751
objPinYinDic.Add "ce", -19746
objPinYinDic.Add "ceng", -19741
objPinYinDic.Add "cha", -19739
objPinYinDic.Add "chai", -19728
objPinYinDic.Add "chan", -19725
objPinYinDic.Add "chang", -19715
objPinYinDic.Add "chao", -19540
objPinYinDic.Add "che", -19531
objPinYinDic.Add "chen", -19525
objPinYinDic.Add "cheng", -19515
objPinYinDic.Add "chi", -19500
objPinYinDic.Add "chong", -19484
objPinYinDic.Add "chou", -19479
objPinYinDic.Add "chu", -19467
objPinYinDic.Add "chuai", -19289
objPinYinDic.Add "chuan", -19288
objPinYinDic.Add "chuang", -19281
objPinYinDic.Add "chui", -19275
objPinYinDic.Add "chun", -19270
objPinYinDic.Add "chuo", -19263
objPinYinDic.Add "ci", -19261
objPinYinDic.Add "cong", -19249
objPinYinDic.Add "cou", -19243
objPinYinDic.Add "cu", -19242
objPinYinDic.Add "cuan", -19238
objPinYinDic.Add "cui", -19235
objPinYinDic.Add "cun", -19227
objPinYinDic.Add "cuo", -19224
objPinYinDic.Add "da", -19218
objPinYinDic.Add "dai", -19212
objPinYinDic.Add "dan", -19038
objPinYinDic.Add "dang", -19023
objPinYinDic.Add "dao", -19018
objPinYinDic.Add "de", -19006
objPinYinDic.Add "deng", -19003
objPinYinDic.Add "di", -18996
objPinYinDic.Add "dian", -18977
objPinYinDic.Add "diao", -18961
objPinYinDic.Add "die", -18952
objPinYinDic.Add "ding", -18783
objPinYinDic.Add "diu", -18774
objPinYinDic.Add "dong", -18773
objPinYinDic.Add "dou", -18763
objPinYinDic.Add "du", -18756
objPinYinDic.Add "duan", -18741
objPinYinDic.Add "dui", -18735
objPinYinDic.Add "dun", -18731
objPinYinDic.Add "duo", -18722
objPinYinDic.Add "e", -18710
objPinYinDic.Add "en", -18697
objPinYinDic.Add "er", -18696
objPinYinDic.Add "fa", -18526
objPinYinDic.Add "fan", -18518
objPinYinDic.Add "fang", -18501
objPinYinDic.Add "fei", -18490
objPinYinDic.Add "fen", -18478
objPinYinDic.Add "feng", -18463
objPinYinDic.Add "fo", -18448
objPinYinDic.Add "fou", -18447
objPinYinDic.Add "fu", -18446
objPinYinDic.Add "ga", -18239
objPinYinDic.Add "gai", -18237
objPinYinDic.Add "gan", -18231
objPinYinDic.Add "gang", -18220
objPinYinDic.Add "gao", -18211
objPinYinDic.Add "ge", -18201
objPinYinDic.Add "gei", -18184
objPinYinDic.Add "gen", -18183
objPinYinDic.Add "geng", -18181
objPinYinDic.Add "gong", -18012
objPinYinDic.Add "gou", -17997
objPinYinDic.Add "gu", -17988
objPinYinDic.Add "gua", -17970
objPinYinDic.Add "guai", -17964
objPinYinDic.Add "guan", -17961
objPinYinDic.Add "guang", -17950
objPinYinDic.Add "gui", -17947
objPinYinDic.Add "gun", -17931
objPinYinDic.Add "guo", -17928
objPinYinDic.Add "ha", -17922
objPinYinDic.Add "hai", -17759
objPinYinDic.Add "han", -17752
objPinYinDic.Add "hang", -17733
objPinYinDic.Add "hao", -17730
objPinYinDic.Add "he", -17721
objPinYinDic.Add "hei", -17703
objPinYinDic.Add "hen", -17701
objPinYinDic.Add "heng", -17697
objPinYinDic.Add "hong", -17692
objPinYinDic.Add "hou", -17683
objPinYinDic.Add "hu", -17676
objPinYinDic.Add "hua", -17496
objPinYinDic.Add "huai", -17487
objPinYinDic.Add "huan", -17482
objPinYinDic.Add "huang", -17468
objPinYinDic.Add "hui", -17454
objPinYinDic.Add "hun", -17433
objPinYinDic.Add "huo", -17427
objPinYinDic.Add "ji", -17417
objPinYinDic.Add "jia", -17202
objPinYinDic.Add "jian", -17185
objPinYinDic.Add "jiang", -16983
objPinYinDic.Add "jiao", -16970
objPinYinDic.Add "jie", -16942
objPinYinDic.Add "jin", -16915
objPinYinDic.Add "jing", -16733
objPinYinDic.Add "jiong", -16708
objPinYinDic.Add "jiu", -16706
objPinYinDic.Add "ju", -16689
objPinYinDic.Add "juan", -16664
objPinYinDic.Add "jue", -16657
objPinYinDic.Add "jun", -16647
objPinYinDic.Add "ka", -16474
objPinYinDic.Add "kai", -16470
objPinYinDic.Add "kan", -16465
objPinYinDic.Add "kang", -16459
objPinYinDic.Add "kao", -16452
objPinYinDic.Add "ke", -16448
objPinYinDic.Add "ken", -16433
objPinYinDic.Add "keng", -16429
objPinYinDic.Add "kong", -16427
objPinYinDic.Add "kou", -16423
objPinYinDic.Add "ku", -16419
objPinYinDic.Add "kua", -16412
objPinYinDic.Add "kuai", -16407
objPinYinDic.Add "kuan", -16403
objPinYinDic.Add "kuang", -16401
objPinYinDic.Add "kui", -16393
objPinYinDic.Add "kun", -16220
objPinYinDic.Add "kuo", -16216
objPinYinDic.Add "la", -16212
objPinYinDic.Add "lai", -16205
objPinYinDic.Add "lan", -16202
objPinYinDic.Add "lang", -16187
objPinYinDic.Add "lao", -16180
objPinYinDic.Add "le", -16171
objPinYinDic.Add "lei", -16169
objPinYinDic.Add "leng", -16158
objPinYinDic.Add "li", -16155
objPinYinDic.Add "lia", -15959
objPinYinDic.Add "lian", -15958
objPinYinDic.Add "liang", -15944
objPinYinDic.Add "liao", -15933
objPinYinDic.Add "lie", -15920
objPinYinDic.Add "lin", -15915
objPinYinDic.Add "ling", -15903
objPinYinDic.Add "liu", -15889
objPinYinDic.Add "long", -15878
objPinYinDic.Add "lou", -15707
objPinYinDic.Add "lu", -15701
objPinYinDic.Add "lv", -15681
objPinYinDic.Add "luan", -15667
objPinYinDic.Add "lue", -15661
objPinYinDic.Add "lun", -15659
objPinYinDic.Add "luo", -15652
objPinYinDic.Add "ma", -15640
objPinYinDic.Add "mai", -15631
objPinYinDic.Add "man", -15625
objPinYinDic.Add "mang", -15454
objPinYinDic.Add "mao", -15448
objPinYinDic.Add "me", -15436
objPinYinDic.Add "mei", -15435
objPinYinDic.Add "men", -15419
objPinYinDic.Add "meng", -15416
objPinYinDic.Add "mi", -15408
objPinYinDic.Add "mian", -15394
objPinYinDic.Add "miao", -15385
objPinYinDic.Add "mie", -15377
objPinYinDic.Add "min", -15375
objPinYinDic.Add "ming", -15369
objPinYinDic.Add "miu", -15363
objPinYinDic.Add "mo", -15362
objPinYinDic.Add "mou", -15183
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -