在csdn找了个加密解密的方法 ,但是不知道咋用啊 ,谁给教教?

jiery666 2015-05-27 09:36:59
http://bbs.csdn.net/topics/360136430
asp加密
<%
Dim ClearPassKey="" ‘512位的密匙"
Signature="aaaaaaa" ‘干扰码
Wise=False
'密码提取初始位置
Initial=14
'密码提取间隔值
Quantity=5

ClearKeyLength=512
'特征码补位,检测系统特征码长度,是否能够需要加密的字符串进行异或操作,要求长度相同
Function strFill(AccountPass)
Dim I
IF Len(AccountPass) > Len(Signature) Then
'FillLen = Len(AccountPass) - Len(Signature)
For I = 1 To Len(AccountPass) \ Len(Signature) + 1
Signature = Signature & Signature
Next
Signature = Mid(Signature,1,Len(AccountPass))
Else
Signature = Mid(Signature,1,Len(AccountPass))
End IF
strFill = Signature
End Function


'从密匙明文中提取密匙
Function Distill(Length,Wise,Quantity,Initial,KeyLength)
'Length 用户密码称度
'ClearPassKey 密码明文串
'Wise 提取方式 {True:Quantity固定间隔值 False:Quantity递增倍数}
'Initial 初始位置
'KeyLength 密码明文串长度
'strLength 根据用户密码长度及截取方式后共需要多少个字符,如果字符串长度超过密码明文长度就会出错
Dim strLength,I,chrDistill,strDistill,Degree,chrLenght
IF Wise = True Then
strLength = Initial+(Length-1)*(Quantity+1)
IF strLength <= KeyLength Then
For I = 1 To Length
IF I=1 Then
chrDistill = Mid(ClearPassKey,Initial,1)
'第一个字符提取 从密匙串是起始位置提取一个
Else
chrDistill = Mid(ClearPassKey,(Initial+(Quantity+1)*(I-1)),1)
'第二个字符提取 从密匙串的起始位置+间隔字符数+1的位置
End IF
strDistill = strDistill & chrDistill
Next
End IF
Else
For Degree = 1 To Length
IF Degree = 1 Then
strLength = Initial
Else
strLength = strLength+Quantity*(Degree-1)+1
End IF
Next
IF strLength <= KeyLength Then
For I = 1 To Length
IF I=1 Then
chrLenght = Initial
chrDistill = Mid(ClearPassKey,chrLenght,1)
'Response.Write chrLenght&"|"&chrDistill&"<br>"
Else
chrLenght = chrLenght+Quantity*(I-1)+1
chrDistill = Mid(ClearPassKey,chrLenght,1)
'Response.Write chrLenght&"|"&chrDistill&"<br>"
'第二个字符提取 从密匙串的起始位置+(间隔字符数+1的位置)*(循环次数-1)+1 {第一次循环不用递增,只要从起始位置开始取即可}
End IF
strDistill = strDistill & chrDistill
Next
End IF
End IF
Distill = strDistill
End Function



Function EnCrypt(DistillKey,Signature,AccountPass)
Dim I,chrDistillKey,chrAccountPass,chrEnCryptPass,strEnCryptPass,chrSignature,chrEnCrypt,strEnCrypt
For I = 1 to Len(AccountPass)
'for 循环,从用户输入的密码串中,第一个字符开始到字符串结束,每个字符都进行一次循环内部的操作
chrDistillKey = Asc(Mid(DistillKey,I,1))
'mid(g_Key,I,1) 从密匙文中从第I个字符开始,取出一个字符,Asc()获取这个字符的ASCII码值
chrAccountPass = Asc(Mid(AccountPass,I,1))
'mid(strCryptThis,I,1) 从系统密匙中的第I个字符开始,取第一个字符,Asc()获取这个字符的ASCII码值
chrEnCryptPass = chrDistillKey Xor chrAccountPass
strEnCryptPass = strEnCryptPass & Chr(chrEnCryptPass)
Next
For I = 1 to Len(Signature)
'for 循环,从用户输入的密码串中,第一个字符开始到字符串结束,每个字符都进行一次循环内部的操作
chrEnCryptPass = Asc(Mid(strEnCryptPass,I,1))
'mid(g_Key,I,1) 从密匙文中从第I个字符开始,取出一个字符,Asc()获取这个字符的ASCII码值
chrSignature = Asc(Mid(Signature,I,1))
'mid(strCryptThis,I,1) 从系统密匙中的第I个字符开始,取第一个字符,Asc()获取这个字符的ASCII码值
chrEnCrypt = chrEnCryptPass Xor chrSignature
strEnCrypt = strEnCrypt & Chr(chrEnCrypt)
Next
EnCrypt = strEnCrypt
End Function
%>


c#中解密
private readonly string Signature = "aaaaaaa" //必须与上面对应;

private const string ClearPassKey = @""; //512位密匙,必须与上面对应

/// <summary>
/// 取特征码长度要一至
/// </summary>
/// <param name="lenth"></param>
/// <returns></returns>
public char[] strFill(int lenth)
{
string signature=Signature;
if (lenth > signature.Length)
{
for (int i = 1; i <= (lenth / signature.Length + 1); i++)
{
signature += Signature;
}
signature += Signature;
}
signature = signature.Substring(0, lenth);
return signature.ToCharArray();
}
/// <summary>
/// 取密匙
/// </summary>
/// <param name="Length"></param>
/// <returns></returns>
public char[] Distill(int Length)
{
string chrDistill="", strDistill="";
for (int i = 0; i < Length; i++)
{
chrDistill = ClearPassKey.Substring(Length + i, 1);
strDistill = strDistill + chrDistill;
}
return strDistill.ToCharArray();
}
/// <summary>
/// 解密
/// </summary>
/// <param name="PassWord"></param>
/// <returns></returns>
public string DeCrypt(string PassWord)
{

int chrDistill = 0, chrSignature = 0, chrDeCryptPass = 0, chrPassWord = 0, chrAdd = 0, chrDeCrypt=0;


string strDeCryptPass="",strDeCrypt="";

string[] snum = Regex.Split(PassWord, "[A-Z]", RegexOptions.IgnoreCase);
string pat = @"[A-Z]";
string[] chr = new string[snum.Length];
Regex r = new Regex(pat, RegexOptions.IgnoreCase);
MatchCollection m = r.Matches(PassWord);
for (int i = 0; i < m.Count; i++)
{
chr[i + 1] = m[i].Value;
}
int len = chr.Length - 1;
char[] DistillKey = Distill(len);
char[] Signature = strFill(len);
for (int i = 0; i < Signature.Length; i++)
{
//chrDistill = Convert.ToInt32((char)DistillKey.Substring(i, 1));
//chrSignature = Convert.ToInt32((char)Signature.Substring(i, 1));
chrDistill = Convert.ToInt32(DistillKey[i]);
chrSignature = Convert.ToInt32(Signature[i]);
chrDeCryptPass=chrDistill^chrSignature;
strDeCryptPass = strDeCryptPass + Convert.ToChar(chrDeCryptPass);
}
for (int i = 1; i <= len; i++)
{
chrDeCryptPass = Convert.ToInt32(strDeCryptPass.ToCharArray()[i-1]);
chrPassWord = Convert.ToInt32(chr[i].ToCharArray()[0]);
chrAdd=0;
if (snum[i] != "")
chrAdd = Convert.ToInt32(snum[i]);
chrPassWord = chrPassWord - chrAdd;
chrDeCrypt = chrDeCryptPass ^ chrPassWord;
strDeCrypt = strDeCrypt + Convert.ToChar(chrDeCrypt);
}
return strDeCrypt;
}


但是对于以上两段方法 我不知道咋调用 ?
谁给举个例子?
...全文
296 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复
打开链接下载源码: https://pan.quark.cn/s/589796089f72 C++课程设计任务列表,涵盖以下内容:1、识别并显示10至99范围内,各位数乘积超过各位数和的数值,例如数字12不满足条件,因为1乘以2小于1加2,故不输出;而数字27满足条件,因为2乘以7大于2加7,因此需要输出该数。2、开发一个功能,用于从用户输入的任意数量实数中出最大值与最小值:首先要求用户输入一个正整数n,代表数值的个数,随后用户可输入任意n个实数,程序需出这n个数中的最大值和最小值并将它们展示出来。3、实现两个已排序数组的合并操作:设有数组A和B,且假设这两个数组的元素均已按照降序排列。编写程序将A和B合并成一个新的数组C,并确保C中的元素同样保持降序排列。int A[10]={123, 86,80, 49,33,15,7,0,-1,-3};int B[10]={100,64,51,50,27,19,15,12,5,2};4、设计一个函数,用于计算特定分数序列前n项的总和,该序列为1/2,1/3,1/4,1/5,1/6,1/7,...。要求在主程序中提示用户输入一个整数n,并验证输入的合法性(n需大于1方为有效),若输入合法,则调用求和函数并显示计算结果。5、编写一个程序,计算两个用户输入日期之间的天数差:用户需以year1,month1,day1和year2,month2,day2的格式输入两个日期,程序随后计算这两个日期之间的天数间隔,并将结果输出到屏幕上。要求编制具有如下原型的函数difs2Date:long GetDayDifference(int y1,int m1,int d1,int y2,int m2,int d2);并在主函数中调用此函数,将计...
代码下载地址: https://pan.quark.cn/s/ee8627e4e6d7 ABAP调试器是一种功能强大的工具,可用于在执行期间对ABAP代码进行检验。除了常规的核心功能(例如逐行运行代码以及检验变量、字段符号和引用的值)之外,它还提供了一些辅助性的特性,能够简化并压缩调试会话的时长。并非所有使用者都熟悉这些辅助特性。SAP ABAP调试器是处理和优化ABAP代码开发与维护工作的核心资源,它配备了多样的功能来协助开发人员在运行状态下进行检验和排除故障。此资源着重阐述了ABAP调试器的一些高级特性,涵盖了深入分析调用堆栈、系统级调试、更新会话调试以及提升调试效率的方法。 1. **深入分析调用堆栈**:除了常规的应用程序调试,开发人员有时需要对调用堆栈的内部层级进行深入调试,特别是在错误出现在异步执行的更新处理或系统级程序时。通过启用**系统级调试**,可以访问通常不公开的系统代码,但这也会导致调用堆栈的显著增加,因此需要审慎操作。 2. **系统级调试**:对于不含业务逻辑的系统级程序,开发人员通常无需进行调试。然而,在特定情形下,例如进行错误追踪时,可能需要进入系统代码。借助调试器的“系统调试启用/禁用”选项,可以赋予对系统程序的调试权限。 3. **更新会话调试**:在处理异步更新任务,例如持久化业务数据时,错误可能发生在更新任务内部。激活**更新会话调试**,在更新任务完成后,调试器将自动启动,展示执行路径。比如,在变更成本中心后,通过输入调试指令 "/h" 启动调试,保存后能够看到更新过程中的错误。 4. **分析调用堆栈**:在进行深入调试时,调用堆栈是至关重要的。通过分析调用堆栈,能够定位到引发问题的具体位置,如在VB_V2_NORMAL...
源码链接: https://pan.quark.cn/s/a4b39357ea24 小程序雷达 AI 驱动的小程序生态选型与风险评估工具,把微信小程序开发资源转化为可筛选、可评估、可对比的技术雷达。 线上地址 主站: Vercel: 适合谁 正在做微信小程序技术选型的产品、研发和架构团队。 需要判断 Taro、uni-app、原生小程序、组件库、云开发和 SDK 风险的团队。 需要把历史 awesome 列表转成可筛选、可对比、可验证技术雷达的维护者。 可以做什么 Radar:按推荐状态、风险等级、资源类型、分类和适用场景浏览小程序生态资源。 Quick Search:快速搜索资源并跳转常用页面。 Compare:对比 Taro、uni-app、原生小程序等核心方案。 Advisor:输入选型问题,获得推荐结论、适用/不适用条件、迁移成本、下一步和证据来源。 Doctor:粘贴小程序项目配置,识别框架依赖、过时方案和迁移风险。 Weekly:查看小程序生态周报和近期风险信号。 数据概览 当前数据集中包含 236 个小程序生态资源。 完整资源可在 Radar 页面和导出能力中查看。 核心样例 Taro ★30.6k+ - 使用 React 的方式开发小程序的框架,同时支持生成多端应用 uni-app ★36.1k+ - 使用 Vue 语法开发小程序、H5、App的统一框架 MPX ★2.1k+ - 增强型小程序框架,深度性能优化,支持跨小程序平台开发,完全兼容原生小程序组件 WePY ★21.7k+ - 支持组件化的小程序开发框架 vant-weapp ★12.3k+ - 高颜值、好用、易扩展的微信小程序 UI 库 tdesign-miniprogram ★1.3...

87,987

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧