❶ vb问题!将字母A变成字母E,a变成e,即变成其后的第4个字母,W变成A,X变成B,Y变成C,Z变成D
Private Sub Form_Click()
Dim i As Integer, c As Integer, k As Integer
k = 4
Label1.Caption = ""
For i = 1 To Len(Text1.Text)
c = Asc(Mid(Text1.Text, i, 1)) + k
If c > Asc("z") Or c > Asc("Z") And c < Asc("a") + k Then c = c - 26
Label1.Caption = Label1.Caption & Chr(c)
Next
End Sub
以上代码用Text1放需要加密的字符串,Label1放加密后的字符串。点击窗体执行。
❷ 字符加密,规则:a变为z,b变为y,c变为x,···,x变为c,y变为b,z变为a
单个字母转化:
#include<stdio.h>
int main()
{
char a;
while((a=getchar())!=EOF)
{
getchar();
if('A'<=a&&a<='Z')
a='Z'-a+'A';
putchar(a);
putchar('\n');
}
return 0;
}
字符串转化:
#include<stdio.h>
int main()
{
int i;
char a[1000];
while(gets(a))
{
for(i=0;a[i]!='\0';i++)
if('A'<=a[i]&&a[i]<='Z')
a[i]='Z'-a[i]+'A';
puts(a);
}
return 0;
}
❸ VB 加密与解密的程序代码
加密:
PrivateFunction 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
NextI
JiaMi = strJiaMi
EndFunction
解密函数:
PrivateFunction 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))
NextI
JieMi = varFinalPass
EndFunction
注意事项
编写加密程序,将用户输入的一个英文句子加密为加密字符串,然后输出加密字符串。假设句子长度不超过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 指向加密字符串的字符串指针;
字符加密函数代码。
❹ vb编程,设计一个文本加密程序。输入一个字符串,按照以下规律加密“
是不是弄错了,应该是wxyz转换为abcd吧?
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim ckey As Integer
If KeyAscii >= Asc("a") And KeyAscii <= Asc("z") Then
ckey = KeyAscii + 4
If ckey > Asc("z") Then ckey = ckey - Asc("z") + Asc("a") - 1
KeyAscii = ckey
End If
If KeyAscii >= Asc("A") And KeyAscii <= Asc("Z") Then
ckey = KeyAscii + 4
If ckey > Asc("Z") Then ckey = ckey - Asc("Z") + Asc("A") - 1
KeyAscii = ckey
End If
End Sub
❺ 在vb中如何将text1中的一串字符中的小写英文字母加密,其他字符不变。加密规则:a变z,b变y,...z变a.
Private Sub Command1_Click()
Dim a As String
Dim s() As String
a = Text1.Text
ReDim s(1 To Len(a)) '重新定义动态数组的大小
For i = 1 To Len(a) '将文本框中的字符串分别存储的数组中
s(i) = Mid(a, i, 1)
Next i
For i = 1 To Len(a)
If s(i) >= "a" And s(i) <= "z" Then
s(i) = Chr(219 - Asc(s(i))) '加密修改
End If
Next i
Text1.Text = ""
For i = 1 To Len(a) '重新输出
Text1.Text = Text1.Text & s(i)
Next i
End Sub
❻ vb 加密字符串的方法
PrivateSubCommand1_Click()'加密
Dimb()AsByte,iAsLong
Open"d:1.txt"ForBinaryAs#1
b=InputB(LOF(1),#1)
Close#1
Randomize
Fori=0ToUBound(b)-1
b(i)=b(i)Xorb(i+1)
Next
b(i)=b(i)Xor93
Open"d:2.txt"ForBinaryAs#1
Put#1,,b
Close#1
MsgBox"1.txt已加密为2.txt"
EndSub
PrivateSubCommand2_Click()'解密
Dimb()AsByte,iAsLong
Open"d:2.txt"ForBinaryAs#1
b=InputB(LOF(1),#1)
Close#1
Randomize
b(UBound(b))=b(UBound(b))Xor93
Fori=UBound(b)-1To0Step-1
b(i)=b(i)Xorb(i+1)
Next
Open"d:3.txt"ForBinaryAs#1
Put#1,,b
Close#1
MsgBox"2.txt已解密为3.txt"
EndSub
1.txt加密后存为2.txt
2.txt解密后存为3.txt
请注意,这个程序是可以加密解密任何文件的(包括exe可执行文件),不单单是文本文件。
❼ vb作业 加密 a变z 数字不变
dim istr as string,i as integer
istr="abaa12345"
for i=1 to len(istr)
if mid(istr,i,1)="a" then
mid(istr,i,1)="z"
endif
next
msgbox istr
❽ VB字符加密。很简单的。大侠帮帮忙~!
Private Sub Command1_Click()
Dim X As Integer, Str1 As String, K As Integer
Text1.Text = LCase(Text1.Text)
X = Len(Text1.Text)
Str1 = Text1.Text
For i = 1 To X
K = Asc(Mid(Str1, i, 1))
K = K + 1
If K > 122 Then K = 97
K = K + 1
If K > 122 Then K = 97
Mid(Str1, i, 1) = Chr(K)
Next i
Text1.Text = Str1
End Sub
❾ vb 字母 加密字符串
PrivateSubCommand1_Click()'加密
DimpAsString,sAsString,tAsString
DimiAsInteger,kAsInteger
p=""
s=Text1.Text
Fori=1ToLen(s)
k=InStr(p,Mid(s,i,1))
Ifk=0Then
MsgBox"数据有误"
ExitSub
Else
t=t&Mid(p,((k+4)Mod52)+1,1)
EndIf
Next
Text2.Text=t
Text1.Text=""
EndSub
PrivateSubCommand2_Click()'解密
DimpAsString,sAsString,tAsString
DimiAsInteger,kAsInteger
p=""
s=Text2.Text
Fori=1ToLen(s)
k=InStr(p,Mid(s,i,1))
Ifk=0Then
MsgBox"数据有误"
ExitSub
Else
t=t&Mid(p,((k+46)Mod52)+1,1)
EndIf
Next
Text1.Text=t
Text2.Text=""
EndSub
以上代码用到四个控件:Text1放加密前的数据,Text2放加密后的数据,Command1点击加密,Command2点击解密
❿ 一个加密方法是:将英文字符,改换成与字母表顺序相对应的另一字符如A换成Z反之亦然,小写字符同样处理。
#include<stdio.h>
#include<stdlib.h>
voidmain(){
charch,encrypter;/*这两个变量分别代表原文中的字符和密文中的字符*/
FILE*in,*out;/*这两个文件指针分别指向原文和密文*/
in=fopen("original.txt","rt");/*以只读方式打开原文*/
out=fopen("encrypted.txt","wt");/*以只写方式打开原文*/
if(in==NULL)/*判断能否正确打开原文文件*/
{
printf("can'topenfileoldfile.txt,");
printf("strikeanykeytoexit! ");
getchar();
exit(0);
}
if(out==NULL)/*判断能否正确打开密文文件*/
{
printf("can'topenfilenewfile.txt,");
printf("strikeanykeytoexit! ");
getchar();
exit(0);
}
ch=fgetc(in);/*取出原文字符ch*/
printf(" Theoriginaltextis: ");
while(!feof(in))/*如果原文还没到文件末尾*/
{
encrypter=ch;
putchar(ch);/*在屏幕上输出原文字符*/
if(ch>='a'&&ch<='z')/*如果原文字符是小写字母*/
{
encrypter='z'-ch+'a';/*原文字符ch转换为密文字符encrpter*/
fputc(encrypter,out);/*将密文字符encrpter写入密文文件*/
}
else
if(ch>='A'&&ch<='Z')/*如果原文字符是大写字母*/
{
encrypter='Z'-ch+'A';/*原文字符ch转换为密文字符encrpter*/
fputc(encrypter,out);/*将密文字符encrpter写入密文文件*/
}
else
fputc(encrypter,out);/**/
ch=fgetc(in);/*取原文字符ch*/
}
fclose(in);
fclose(out);
printf(" Theencryptedfileis: ");
out=fopen("newfile.txt","rt");/*以只读方式打开密文文件*/
if(out==NULL)
{
printf("can'topenfilenewfile.txt,");
printf("strikeanykeytoexit! ");
getchar();
exit(0);
}
encrypter=fgetc(out);/*取密文字符encrypter*/
while(!feof(out))/*判断是否到了密文文件的末尾*/
{
putchar(encrypter);/*在屏幕上输出密文字符encrypter*/
encrypter=fgetc(out);/*取密文字符encrypter*/
}
printf(" ");
fclose(out);/*关闭密文文件*/
}