如何电话号码换成密文？

风雨相随3

如何把数字换成密文.rar (3.2 KB, 下载次数: 23)

2023-1-12 13:28 上传

点击文件名下载附件

，函数或VBA都行。

aman1516

用名称试试

ykcbf1100

我用VBA做一个。

tanglf188

1. <blockquote><blockquote>Rem 调用

复制代码

tanglf188

1. Rem 调用
   
2. Sub DisplayNumber()
   
3.     MsgBox encryption("13952838899")
   
4. End Sub
   
5. 
   
6. 
   
7. Rem 定义加密函数
   
8. Function encryption(telephone As String)
   
9.     mtlp = Mid(telephone, 4, 4)
   
10.     mtlp = Application.Substitute(mtlp, "0", "-")
    
11.     mtlp = Application.Substitute(mtlp, "1", "!")
    
12.     mtlp = Application.Substitute(mtlp, "2", "@")
    
13.     mtlp = Application.Substitute(mtlp, "3", "#")
    
14.     mtlp = Application.Substitute(mtlp, "4", "$")
    
15.     mtlp = Application.Substitute(mtlp, "5", "%")
    
16.     mtlp = Application.Substitute(mtlp, "6", "^")
    
17.     mtlp = Application.Substitute(mtlp, "7", "&")
    
18.     mtlp = Application.Substitute(mtlp, "8", "*")
    
19.     mtlp = Application.Substitute(mtlp, "9", "+")
    
20.     encryption = Left(telephone, 3) & mtlp & Right(telephone, 4)
    
21. End Function

复制代码

风雨相随3

ykcbf1100 发表于 2023-1-12 13:59
我用VBA做一个。

密文.zip (8.11 KB, 下载次数: 23)

2023-1-12 15:15 上传

点击文件名下载附件

如果已知密文求电话号码呢？

ykcbf1100

风雨相随3 发表于 2023-1-12 15:16
如果已知密文求电话号码呢？

加密、解密。

风雨相随3

ykcbf1100 发表于 2023-1-12 15:26
加密、解密。

如果秘文个数和位置 不确定，能做出不？

ykcbf1100

风雨相随3 发表于 2023-1-12 16:43
如果秘文个数和位置 不确定，能做出不？

你上个附件？

天地一相

ykcbf1100 发表于 2023-1-12 15:26
加密、解密。

加密时能设置加密几位（如9位），加密位置随机，会更好玩。