vb恺撒密码

解：

Private Sub cmdCode_Click()

Dim pt As String ' 明文

Dim ct As String ' 密文

Dim n As Integer ' 字母在字母表中的序号

Dim ch As String

Dim i As Integer

pt = txtPtText

ct = ""

For i = 1 To Len(pt)

ch = Mid(pt, i, 1)

Select Case ch

Case "A" To "Z"

n = Asc(ch) - Asc("A")

n = (n + 3) Mod 26

ch = Chr(n + 65)

Case "a" To "z"

n = asc(ch)-asc("A")

n = (n + 3) Mod 26

ch = Chr(n + 97)

End Select

ct = trim(ct & ch)

Next i

txtCtText = ct

End Sub

写的一般般，希望对LZ有所帮助

#include <stdioh>

#include <stringh>

int main()

{

char str[201];//存放字符

char tmp[11];//临时变量

int i;//循环变量

int len;//存放消息长度

scanf("%s",tmp);//这里输入START，开始

getchar();//接收回车

while(strcmp(tmp,"ENDOFINPUT"))

{

gets(str);//由于输入中有空格，所以用gets输入

getchar();//接收回车

len = strlen(str);

for(i=0;i<len;i++)

{

if(str[i]>='A'&&str[i]<='Z')

{

str[i] -= 5 ;

if(str[i] < 65)

{

str[i] +=26;

}

}

}

scanf("%s",tmp);//这里输入END,结束

printf("%s\n",str);//处理完就直接输出结果

scanf("%s",tmp);//输入START表示继续，输入ENDOFINPUT则表示最后一个数据集

getchar();//接收回车

}

return 0;

}

以上就是关于vb恺撒密码全部的内容，包括:vb恺撒密码、凯撒密码，要求C语言编写，求救！、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！