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);/*關閉密文文件*/
}