导航:首页 > 文档加密 > vb字符加密a变z

vb字符加密a变z

发布时间:2022-09-13 23:50:25

❶ 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);/*关闭密文文件*/
}

阅读全文

与vb字符加密a变z相关的资料

热点内容
安卓手机怎么玩天天麻将 浏览:218
程序员高血脂 浏览:265
基于单片机的盲人探路器 浏览:648
少女心贴图app哪个好 浏览:528
企业员工系统源码 浏览:755
java第三方jar 浏览:274
安卓为什么不能挂外服下游戏 浏览:249
怎么能把我的世界服务器弄卡 浏览:332
php网站技术架构图 浏览:601
java对象内存大小 浏览:514
stm8s单片机选型 浏览:46
pda在app里是什么意思 浏览:374
广州市的加密软件公司 浏览:662
住宾馆有什么app 浏览:305
服务器工作站中端有什么异同 浏览:213
linux命令的语法 浏览:737
mc梦想之国服务器地址 浏览:843
mac开机启动命令 浏览:229
jspoa源码下载 浏览:608
简单自动化命令 浏览:895