在你的应用程序里实现简单的加密

7此间的少年

7此间的少年

2016-02-19 14:21

人生本是一个不断学习的过程,在这个过程中,图老师就是你们的好帮手,下面分享的在你的应用程序里实现简单的加密懂设计的网友们快点来了解吧!
下面的函数通过使用新的字符来替换原始的每一个字符而对值进行了加密。它先将每个字符转换为其对应的ASCII值,再使用一个偏量,然后将(加入偏量的)ASCII值转换回字符。这个偏量可以是从1到255之间的任何数。
  
  PublicFunctionEncryptDecrypt(ByValValueAsString)AsString
  DimstrCharAsString
  DimintCountAsInteger
  DimintASCIIAsInteger
  DimstrEncryptedAsString
  DimintOffsetAsInteger
  
  intOffset=200
  strEncrypted=vbNullString
  
  ForintCount=1ToLen(Value)
  strChar=Mid$(Value,intCount,1)
  intASCII=Asc(strChar)XorintOffset
  strEncrypted=strEncrypted&Chr(intASCII)
  NextintCount
  
  EncryptDecrypt=strEncrypted
  EndFunction
  
  要使用这个函数,就要对你想要加密的值调用它。它会返回已经过加密的值。要解密一个值,将它传递给这个函数,它就会返回已解密的值。
  
  尽管这个函数对于简单的加密要求来说是很有用的,但是它不应该被用来保护商业上的关键信息。这种加密法的简单性就意味着它能够被很快的破解。->

分享
qqQQ
qzoneQQ空间
weibo微博

猜你喜欢

在你的应用程序里实现简单的加密

编程语言 网络编程
在你的应用程序里实现简单的加密

Delphi多层应用程序的实现

Delphi
Delphi多层应用程序的实现

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

oracle应用程序实现打包 的方法

编程语言 网络编程
oracle应用程序实现打包 的方法

Delphi 应用程序的应用

编程语言 网络编程
Delphi 应用程序的应用

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

VC++实现应用程序对插件的支持

编程语言 网络编程
VC++实现应用程序对插件的支持

android实现获取正在运行的应用程序

编程语言 网络编程
android实现获取正在运行的应用程序

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

js字符串转换成数字数字转换成字符串

js字符串转换成数字数字转换成字符串

教你认识VB的座标系统

教你认识VB的座标系统
下拉加载更多内容 ↓