Delphi加密算法大全下载_最火软件站
您的位置： >
> Delphi加密算法大全下载
Delphi加密算法大全
运行环境：Windows
更新时间： 12:46:55
论坛转帖：
有无插件：无插件，请您放心使用！
分&享&到：
Delphi加密算法大全是一款非常实用的加密算法工具，软件支持2DES，3DES，3DES3，AES，BASE64，BLOWFISH，CRC，DES，MD5，RSA，SHA等算法演示实例，软件操作简单，仅需输入一段字符，即可显示加密后的字符。需要的朋友来下载吧。
点击链接开始下载正方加密解密算法及获取密钥 - 为程序员服务
正方加密解密算法及获取密钥
这学期挂了2门，很是不爽
于是乎重操旧业，话说我已经很久没碰渗透测试这方面的东西了
各种坎坷…
具体细节以后再写
拿到系统管理员的密文后，百度他的算法资料
也不用反编译那个zjdx.dll了，网上资料一片一片的
Public Function jiam(ByVal PlainStr As String, ByVal key As String) As String
Dim strChar, KeyChar, NewStr As String
Dim Pos As Integer
Dim i, intLen As Integer
Dim Side1, Side2 As String
For i = 1 To Len(PlainStr)
strChar = Mid(PlainStr, i, 1)
KeyChar = Mid(key, Pos, 1)
If ((Asc(strChar) Xor Asc(KeyChar)) & 32) Or ((Asc(strChar) Xor Asc(KeyChar)) & 126) Or (Asc(strChar) & 0) Or (Asc(strChar) & 255) Then
NewStr = NewStr & strChar
NewStr = NewStr & Chr(Asc(strChar) Xor Asc(KeyChar))
If Pos = Len(key) Then Pos = 0
Pos = Pos + 1
If Len(NewStr) Mod 2 = 0 Then
Side1 = StrReverse(Left(NewStr, CInt((Len(NewStr) / 2))))
Side2 = StrReverse(Right(NewStr, CInt((Len(NewStr) / 2))))
NewStr = Side1 & Side2
jiam = NewStr
End Function
public string jiemi(string PlainStr, string key)
string text3;
int num2 = 1;
if ((Strings.Len(PlainStr) % 2) == 0)
string text4 = Strings.StrReverse(Strings.Left(PlainStr, (int) Math.Round(((double) Strings.Len(PlainStr)) / 2)));
string text5 = Strings.StrReverse(Strings.Right(PlainStr, (int) Math.Round(((double) Strings.Len(PlainStr)) / 2)));
PlainStr = text4 + text5;
int num3 = Strings.Len(PlainStr);
for (int num1 = 1; num1 &= num3; num1++)
string text6 = Strings.Mid(PlainStr, num1, 1);
string text2 = Strings.Mid(key, num2, 1);
if (((((Strings.Asc(text6) ^ Strings.Asc(text2)) & 0x20) | ((Strings.Asc(text6) ^ Strings.Asc(text2)) & 0x7e)) | (Strings.Asc(text6) & 0)) | (Strings.Asc(text6) & 0xff))
text3 = text3 + text6;
text3 = text3 + StringType.FromChar(Strings.Chr(Strings.Asc(text6) ^ Strings.Asc(text2)));
if (num2 == Strings.Len(key))
return text3;
奉上delphi版的方正加密解密算法(他的算法很渣，看看就好了)
//uses StrU
function RightCopy(S: Index, count: Integer):
Result := Copy(S,Length(S)-count+1-(Index-1),count);
function jiami(PlainStr, key: string):
StrChar, Keychar: C
StrLeft, StrRight: S
for i := 1 to Length(PlainStr) do
StrChar := copy(PlainStr, i, 1)[1];
KeyChar := copy(key, Pos, 1)[1];
if ((ord(StrChar) Xor ord(KeyChar)) & 32) Or
((ord(StrChar) Xor ord(KeyChar)) & 126) Or
(ord(StrChar) & 255) Then
//ord(StrChar) & 0 永远为false 去掉了
Result := Result + StrChar
Result := Result + Char(ord(StrChar) Xor ord(KeyChar));
if Pos = Length(key) then Pos := 0;
If Length(Result) Mod 2 = 0 Then
StrLeft := ReverseString(copy(Result, 0, Round(Length(Result) / 2)));
StrRight := ReverseString(RightCopy(Result, 1, Round(Length(Result) / 2)));
Result := StrLeft + StrR
function jiemi(PlainStr, key: string):
StrLeft, StrRight:
num2, i : I
StrChar, Keychar: C
num2 := 1;
if Length(PlainStr) mod 2 = 0 then
StrLeft := ReverseString(copy(PlainStr, 0, Round(Length(PlainStr) / 2)));
StrRight := ReverseString(RightCopy(PlainStr, 1,
Round(Length(PlainStr) / 2)));
PlainStr := StrLeft + StrR
for i := 1 to Length(PlainStr) do
StrChar := copy(PlainStr, i, 1)[1];
Keychar := copy(key, num2, 1)[1];
if (((((ord(StrChar) Xor ord(Keychar)) & 32) Or ((ord(StrChar) Xor ord(Keychar)) &
)) ) Or (ord(StrChar) & 255)) then
//ord(StrChar) & 0 永远为false 去掉了
Result := Result + StrChar
Result := Result + Char(ord(StrChar) xor ord(Keychar));
if num2 = Length(key) then num2 := 0;
Inc(num2);
然后问题出现了，我们学校的密钥并不是网上流传的Acxylf365jw
渣渣表示只能继续百度- -
发现核攻击写了一片关于这个的算法
根据他写的，改的delphi版的GetKey
function GetKey(PlainStr: S Pass: String): S
StrChar, Keychar: C
StrLeft, StrRight: S
If Length(PlainStr) Mod 2 = 0 Then
StrLeft := ReverseString(copy(PlainStr, 0, Round(Length(PlainStr) / 2)));
StrRight := ReverseString(RightCopy(PlainStr, 1, Round(Length(PlainStr) / 2)));
PlainStr := StrLeft + StrR
for i := 0 to Length(PlainStr) - 1 do
StrChar := Copy(PlainStr, i, 1)[1];
KeyChar := Copy(Pass, Pos, 1)[1];
If StrChar = KeyChar Then
Result := Result + '*'
Result := Result + Char(ord(StrChar) Xor ord(KeyChar));
Pos := Pos + 1;
从数据库里找了点数据出来(有些帐号密码就是帐号名)
成功拿到了密钥Encrypt01
关注网络安全 关注反病毒
原文地址：, 感谢原作者分享。
您可能感兴趣的代码Delphi加密算法大全下载_西西软件下载
西西软件园多重安全检测下载网站、值得信赖的软件下载站！
相关软件 /英文/ /英文/ /中文/ /英文/ /英文/ /英文/ /英文/ /英文/ /中文/ /中文/顶好评:50%踩坏评:50%请简要描述您遇到的错误，我们将尽快予以修正。轮坛转帖HTML方式轮坛转帖UBB方式
305.1M&&|&&中文&&|&&8.7
887KB/中文/1.1
Dephi加解密源码大全 2DES_3DES_3DES3_AES_BASE64_BLOWFISH_CRC_DES_MD5_RSA_SHA算法源码。的数据加密技术演示实例：文本加密解密源代码，随便在文本框中输入一段字符，可显示文本加密前的字符和文本加密后的字符，并输出解密后的文本。SHA：环境使用SHA算法加密文件和字符的实例，或许有些朋友对SHA不太熟悉，其实这种算法经常可看到，比如从网上下载的一些DLL文件中，你可点击右键查看DLL属性，在“验证”一栏中，往往可以看到MD5校验码、SHA码、CRC32码等不同的加密算法验证码，当然，不只是DLL文件中，其它的文件像EXE也可以存在这些信息的，所以说SHA加密文件已经普遍，有必要通过本源码学习一下SHA加密的原理和实现方法。RSA：Delphi环境下使用RSA算法加密字符串和文件的例子，代码文件较多，比较完整的例子，位数可设置为：128位、256位、512位、768位、1024位。相信通过这个RSA加密实例，你会学会如何运用Delphi语言进行RSA算法的加密技巧。MD5：Delphi采用MD5 加密的例子，关于MD5，我想不用多说了吧，使用最为广泛的简单加密方法了，遍及WEB开发，MD5不但可对字符串加密，也可对，如果您还对Delphi下的MD5加密不太熟悉的话，那么建议你参考本源码实例，学习一下加密的方法吧。DES：Delphi采用最基本的Des加密字符串的演示实例，典型的DES加密，解密技巧，如果需要二重(双重)加密或者三重加密请点击对应页面下载源码：Delphi双重加密、Delphi三重加密。CRC32-Static：运用Delphi实现的CRC32-Static静态加密实例，来自Delphi软件加密技术中的一个随书实例，代码内包括了一个基本的Crc32表，可取出指定字符串的CRC32校验值，也可取指定的文件的crc32校验值，加密操作步骤相当简单，看运行截图便知。CRC32-DymBlowfish：这是一个使用Blowfish算法进行加密、解密的一个实例，在Delphi中，Blowfish算法的应用你不能不知道。在你输入明文、密钥、密文后，就可实现简单的Blowfish加密过程，学习Delphi的初学者，Blowfish算法加密解密是个应该掌握的加密技术。BASE64：采用BASE64算法流加密，多个字节，可以编码奇数字节和基数字节，把编码好的块写到流中，当然也可进行BASE64算法流的解密，解密的数据输入到流中，还可进行BASE64算法字符串加密，字符串解密等，比较全的BASE64加密与解密实例，仅供参考。AES：Delphi下使用AES加密的方法演示，能用来加密字符串和文件，包括一个密钥三个明文，也可进行反加密，也就是解密的过程。AES字符串加密密钥可以是128位，密钥位192位，密钥为256位，AES算法字符串解密也支持上述位数。3DES33DES2DES：一个书中的实例，Delphi双重DES加密算法演示源程序，源码在D7下直接编译就行了，可以顺利运行。源码主要演示如何在Delphi环境下实现双重的DES加密，允许输入明文的情况下，可输入两个DES密钥，可输入密文后实现加密功能，双重DES 要比单一的DES加密更安全，不容易被破解。
安卓官方手机版
IOS官方手机版
，是平台下著名的快速应用程序开发工具，简称。它的前身，即是时代盛行一时的，最早的版本由美国宝兰公司于年开发。主创者为。功能特色真正的程序员用，聪明的程序员用，这句话是对最经典最实在的描述。被称为第四代
中文 / 5.0M专业反编译Delphi工具DeDeDark 3
英文 / 380.8M说明：这是针对 Delphi XE3（Del
英文 / 150.0MBorland Delphi V7.0 Build 8.1企
英文 / 399MEmbarcadero.Delphi.XE2.RTM.Inc
中文 / 1.3Mdcu2pas是一个反编译delphi的dcu
英文 / 224.2Mdelphi 5 Delphi是著名的Borland
Delphi加密算法大全
下载帮助西西破解版软件均来自互联网, 如有侵犯您的版权, 请与我们联系。查看: 6361|回复: 8
百度帐号的密码是用什么算法加密的
阅读权限30
结帖率： (2/3)
/v2/api/?login HTTP/1.1
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:35.0) Gecko/ Firefox/35.0
Accept: text/html,lication/xhtml+xml,application/q=0.9,*/*;q=0.8
Accept-Language: zh-cn,q=0.8,en-q=0.5,q=0.3
Accept-Encoding: gzip, deflate
Referer: /index.php?tn=_pg
Cookie: BAIDUID=53FDAE0A871773ABD367:FG=1; HOSUPPORT=1; UBI=fi_PncwhpxZ%7ETaKAQr9wCaQ5JTQ4yVMZHNJgYodmvckY7oKnsGIfONX8ehJMMv6YnW1E-H7OWZrmU9I3fWW
Connection: keep-alive
Content-Type: application/x-www-form-urlencoded
Content-Length: 709
staticpage=https%3A%2F%%2Fcache%2Fuser%2Fhtml%2Fv3Jump.html&charset=UTF-8&token=caca1ccb9d20c35ffb69f4&tpl=mn&subpro=&apiver=v3&tt=2&codestring=&safeflg=0&u=https%3A%2F%%2Findex.php%3Ftn%3D_pg&isPhone=&quick_user=0&logintype=dialogLogin&logLoginType=pc_loginDialog&idc=&loginmerge=true&splogin=rate&username=用户名&password=2mN2V5/GLajhCVENCjOiUvK37EHvJOBQpuNEQ6xinF3miOOcOvu4ZdSOy1VeYKlCt20uwSBRKWhyQvrutYnBbHrUPNsczMS7gM4HO/KW4VYg0KX/hEUjv2IwgLsD+5grW+ejtqNhFRGPfjfFZ/mOnvDTudMz5owyBe5pyk
%3D&verifycode=&mem_pass=on&rsakey=8d2IB2qcqmRvn3e7OHBpB9682ZsjQVf0&crypttype=12&ppui_logintime=13475&callback=parent.bd__pcbs__g4xdjw
回答提醒：如果本帖被关闭无法回复，您有更好的答案帮助楼主解决，请发表至
可获得加分喔。友情提醒：本版被采纳的主题可在
帖子申请荣誉值，获得 1点 荣誉值,荣誉值可兑换终身vip用户组哦。快捷通道： →
阅读权限228
签到天数: 5 天
这个家伙的是正确的！&
您可以选择打赏方式支持他
阅读权限120
结帖率： (1/1)
您可以选择打赏方式支持他
阅读权限30
结帖率： (2/3)
百度密码的加密方式 是JS？
& &我真的不懂...& &求详解
您可以选择打赏方式支持他
阅读权限50
结帖率： (19/19)
你需要学习JS
您可以选择打赏方式支持他
头像被屏蔽
结帖率： (2/5)
先学js你才能明白这些参数是怎么用的！
您可以选择打赏方式支持他
阅读权限30
结帖率： (2/3)
你需要学习JS
额 我是该学习了& &不懂的好多
您可以选择打赏方式支持他
阅读权限90
结帖率： (9/11)
百度加密算法都是开源的了
给个最佳吧
您可以选择打赏方式支持他
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论，本站内容均为会员发表，并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有，任何人以任何方式翻录、盗版、破解本站培训课程，我们必将通过法律途径解决！
公司简介：揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发，多年来为中小企业编写过许许多多各式软件，并把多年积累的开发经验逐步录制成视频课程供学员学习，让学员全面系统化学习易语言编程，少走弯路，减少对相关技术的研究与摸索时间，从而加快了学习进度！
防范网络诈骗，远离网络犯罪
违法和不良信息举报电话，企业QQ： ，邮箱：@
Powered by
粤公网安备 25Delphi鐗圧C4鍔犲瘑绠楁硶鐨勭浉鍏虫枃绔犳帹鑽