vb字符加密a变z

❶ 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

(3)vb字符加密a变z扩展阅读：

注意事项

编写加密程序，将用户输入的一个英文句子加密为加密字符串，然后输出加密字符串。假设句子长度不超过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);/*关闭密文文件*/
}