您好,今天琪琪来为大家解答以上的问题。凯撒密码转换器相信很多小伙伴还不知道,现在让我们一起来看看吧！

1、Public Function KSPW(ByVal InStrs As String, ByVal Mk As Integer) '调用格式：KSPW 待加密字符串，偏移位数 '待加密字符串只能是26个字母 Dim k As Integer, n As Integer, InChrlen As Integer, i As Integer Dim tmpStr As String, OutStr As String, PWSL As String, tmpPWL As String Dim ChrAsc As Integer n = 26 OutStr = "" tmpPWL = "" InChrlen = Len(InStrs) If InChrlen = 0 Or Mk > 26 Then KSPW = "" Exit Function End If PWSL = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" For i = 1 To 26 '建立密码表 tmpStr = Mid(PWSL, i, 1) If i > n - Mk Then tmpPWL = tmpPWL & Chr(Asc(tmpStr) - (26 - Mk)) Else tmpPWL = tmpPWL & Chr(Asc(tmpStr) + Mk) End If Next i For i = 1 To InChrlen '加密输入的字符串 tmpStr = Mid(InStrs, i, 1) If Asc(tmpStr) > 90 Then '区分大小写 OutStr = OutStr & LCase(Mid(tmpPWL, InStr(1, PWSL, UCase(tmpStr)), 1)) Else OutStr = OutStr & Mid(tmpPWL, InStr(1, PWSL, tmpStr), 1) End If Next i KSPW = OutStr End Function 结果：偏移3位时PROGRAM对应的密文是SURJUDP 。

本文到这结束，希望上面文章对大家有所帮助。