求助一个加密函数

fswxs

我想把客户名称字段加密，不要加密成乱码，而是加密成数字或者是数字与字母的组合，有可能吗？请高手赐教代码，不胜感谢！
解密不能出错哦

hi-wzj

将汉字转换成区位码再进行加工处理即可。

fswxs

看来是行得通的！
我很菜的，版主能不能抽出宝贵时间写段代码，再次感谢！

snowmoonzzb

:lol

linag516

fan0217

1. Public Function StringEnDeCodecn(ByVal strSource As String, ByVal enCode As Single) As String
   
2. 
   
3. '该函数只对中西文起到加密作用
   
4. 
   
5. '参数strSource为：需要加密的字符，参数enCode为：密钥
   
6. 
   
7. '加密：?StringEnDeCodecn("Access爱好者","123456")
   
8. 
   
9. ' JR.O\板簣征
   
10. 
    
11. '解密：?StringEnDeCodecn("JR.O\板簣征","123456")
    
12. 
    
13. ' Access爱好者
    
14. 
    
15. 
    
16. On Error GoTo ErrEnDeCode
    
17. Dim X As Single
    
18. Dim strNum As Long, rndInt As Integer
    
19. Dim sChar As String * 1
    
20. Dim strTmp As String
    
21. Dim i As Integer
    
22. 
    
23. If enCode = 0 Then enCode = 1
    
24. 
    
25. If enCode < 0 Then
    
26. enCode = enCode * (-1)
    
27. End If
    
28. 
    
29. X = Rnd(-enCode)
    
30. 
    
31. For i = 1 To Len(strSource) Step 1
    
32. sChar = Mid(strSource, i, 1)
    
33. strNum = Asc(sChar)
    
34. 
    
35. g:
    
36. rndInt = Int(127 * Rnd)
    
37. If rndInt < 30 Or rndInt > 100 Then GoTo g
    
38. strNum = strNum Xor rndInt
    
39. strTmp = strTmp & Chr(strNum)
    
40. Next i
    
41. 
    
42. StringEnDeCodecn = strTmp
    
43. 
    
44. Exit Function
    
45. 
    
46. 
    
47. ErrEnDeCode:
    
48. StringEnDeCodecn = ""
    
49. MsgBox Err.Number & "" & Err.Description
    
50. 
    
51. End Function
    

复制代码

fswxs

谢谢版主！我希望加密后不是乱码，而是数字或字母

today416

会出现错误，假如是数字的话