字符加密解密程序的简单介绍
字符加密解密程序的简单介绍
C语言代码和运行结果如下：
输出符合示例，加解密均正确，望采纳~
附源码链接：字符串加解密
加密：
Private Function JiaMi(ByVal varPass As String) As String '参数varPass是需要加密的文本内容
Dim varJiaMi As String * 20
Dim varTmp As Double
Dim strJiaMi As String
Dim I
For I = 1 To Len(varPass)
varTmp = AscW(Mid$(varPass, I, 1))
varJiaMi = Str$(((((varTmp * 1.5) / 5.6) * 2.7) * I))
strJiaMi = strJiaMi varJiaMi
Next I
JiaMi = strJiaMi
End Function
解密函数：
Private Function JieMi(ByVal varPass As String) As String '参数varPass是需要解密的密文内容
Dim varReturn As String * 20
Dim varConvert As Double
Dim varFinalPass As String
Dim varKey As Integer
Dim varPasslenth As Long
varPasslenth = Len(varPass)
For I = 1 To varPasslenth / 20
varReturn = Mid(varPass, (I - 1) * 20 + 1, 20)
varConvert = Val(Trim(varReturn))
varConvert = ((((varConvert / 1.5) * 5.6) / 2.7) / I)
varFinalPass = varFinalPass ChrW(Val(varConvert))
Next I
JieMi = varFinalPass
End Function
扩展资料：
注意事项
编写加密程序，将用户输入的一个英文句子加密为加密字符串，然后输出加密字符串。假设句子长度不超过100个字符。
根据给定的句子加密函数原型SentenceEncoding，编写函数SentenceEncoding调用给定的字符加密函数CharEncoding完成句子加密。
然后，编写主程序提示用户输入英文句子，然后调用函数SentenceEncoding对句子加密，最后输出加密后的句子。
字符加密规则为大写字母和小写字母均加密为其补码, 我们定义ASCII码值相加为’A’+’Z’即155的两个大写字母互为补码，ASCII码值相加为’a’+’z’即219的两个小写字母互为补码。
空格用@代替,句号以#代替,其它字符用句点代替。
函数原型：
void SentenceEncoding(char *soure,char *code);
功能：对待加密字符串source加密后保存加密字符串到code.
参数：char *soure，指向待加密句子的字符串指针；
char *code 指向加密字符串的字符串指针；
字符加密函数代码。
用在线工具对文字加密解密，步骤如下：
1、打开在线工具官方网站。
2、点击菜单栏的“文字加密解密”。
3、最后我们在这里就可以使用在线工具的文字加密解密了。
加密技术是最常用的安全保密手段，利用技术手段把重要的数据变为乱码（加密）传送，到达目的地后再用相同或不同的手段还原（解密）。
C语言设计一个简单的加密解密程序如下：
加密程序代码：
#includestdio.h
main()
{
char c,filename[20];
FILE *fp1,*fp2;
printf("请输入待加密的文件名:\n");
scanf("%s",filename);
fp1=fopen(filename,"r");
fp2=fopen("miwen.txt","w");
do
{
c=fgetc(fp1);
if(c=32c=126)
{
c=c-32;
c=126-c;
}
if(c!=-1)
fprintf(fp2,"%c",c);
}
while(c!=-1);
}
解密程序代码：
#includestdio.h
#includestring.h
main()
{
char c,filename[20];
char yanzhengma[20];
FILE *fp1,*fp2;
printf("请输入待解密文件名:\n");
scanf("%s",filename);
printf("请输入验证码:\n");
scanf("%s",yanzhengma);
if(strcmp(yanzhengma,"shan")==0)
{
fp1=fopen(filename,"r");
fp2=fopen("yuanwen.txt","w");
do
{
c=fgetc(fp1);
if(c=32c=126)
{
c=126-c;
c=32+c;
}
if(c!=-1)
fprintf(fp2,"%c",c);
}
while(c!=-1);
}
else
{
printf("验证码错误！请重新输入:\n");
scanf("%s",filename);
}
}
Dim a() As String, b() As Integer, n As Integer
Text2 = ""
n = Len(Text1)
ReDim a(n)
ReDim b(n + 3)
For i = 1 To n
a(i) = Mid(Text1, i, 1)
If (Asc(a(i)) = 65 And Asc(a(i)) = 90) Or (Asc(a(i)) = 97 And Asc(a(i)) = 122) Then
b(i) = Asc(a(i)) + 3
If b(i) Asc("Z") And b(i) Asc("a") Then b(i) = Asc("A") + b(i) - Asc("Z") - 1
If b(i) Asc("z") Then b(i) = Asc("a") + b(i) - Asc("z") - 1
Else
b(i) = Asc(a(i))
End If
a(i) = Chr(b(i))
Text2 = Text2 a(i)
Next
Text3 = Text2
End Sub
Private Sub Command2_Click()
Dim a() As String, b() As Integer, n As Integer
Text4 = ""
n = Len(Text3)
ReDim a(n)
ReDim b(n + 3)
For i = 1 To n
a(i) = Mid(Text3, i, 1)
If (Asc(a(i)) = 65 And Asc(a(i)) = 90) Or (Asc(a(i)) = 97 And Asc(a(i)) = 122) Then
b(i) = Asc(a(i)) - 3
If b(i) = 62 And b(i) Asc("A") Then b(i) = Asc("Z") - (Asc("A") + b(i)) + 1
If b(i) = 94 And b(i) Asc("a") Then b(i) = Asc("z") - Asc("a") + b(i) + 1
Else
b(i) = Asc(a(i))
End If
a(i) = Chr(b(i))
Text4 = Text4 a(i)
Next
End Sub
为便于调试对照，其中将加密后的文件直接放在了TEXT3中。调试完可去掉
通常加密解密都是采用异或运算.
例如:
char c = 'A';
c ^= (char)7; // 加密, 此时c的值是'F'
c ^= (char)7; // 解密, 此时c的值是'A'
这个只是一个简单的例子, 密钥是7, 你可以进行多次异或运算来提高算法难度.
