VB采用换位密码加密方法测试代码，根据明文生成密钥、密文，对应英文字母表，逐个填写密钥字母的顺序，为生成密文输出作准备，按密钥字母的顺序，转置明文，生成密文，最后一行上的数据未满，用a,b,……填充。部分代码定义： Char As String '//元素值 Num As Integer '//对照字母，产生顺序号 End Type Private Sub CmdPassword_Click() Dim max As Integer '//密钥长度 Dim p(26) As MiYaoData '//密钥数据 Dim t(26) As Integer
