[原创文章] 关于国内某知名大学网站加密算法的研究

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm
* P) |$ [; c9 [- t6 G: ~! L
看不懂的直接绕过* o/ X) {1 p& Y. F
加密前为:hwy1234563 A0 K- ]& }' Y  v" w' Y- z2 \
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
! m9 x, ?' X8 m
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家2 E& `% k8 H& Y: y. c# m+ i  U
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP
===============================================
<% * ?" B" [9 r7 g$ j5 z7 U, v# ?: v
Class clsRSA
Public PrivateKey
Public PublicKey $ e0 W& a5 z2 Q6 n0 ~% i" }
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 7 u/ }. D$ P# H$ L% R
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then . V# c4 {/ ?7 N9 l
lLngResult = 1 8 C( ^% T  w1 @, s
For lLngIndex = 1 To pLngKey / 2 : h( b& q2 g5 y+ s  C: C& M
lLngMod = (pLngMessage ^ 2) Mod Modulus 7 e# g* w* \5 _; Z9 [) v. t8 q( H9 d3 f
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 9 n8 m6 q5 o6 G( L) x
If Err Then Exit Function ; w2 k, g$ B1 R0 k5 x* k4 ?  l; K1 g- G# v
Next 1 P5 v3 w6 S" Z: p, i- {
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 5 s; {! r7 Z3 C. a3 S5 C1 Q
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next & m7 @3 H3 _  @$ ^$ ]! e
' Mod may error on key generation ) c5 @/ R& @6 E/ n% C
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next . j" h$ x$ Z1 C& w
End If " D. j3 _% m* Z$ _9 H6 b
Crypt = lLngResult
End Function
' |3 W- s* e1 y3 t6 J' {1 u
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex * V3 v( D* d/ D# ^; E: d* a0 U9 x
Dim lLngMaxIndex 4 j. r1 ?7 z; I, R
Dim lBytAscii 3 C7 {! `0 o; ~
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 1 U2 u1 z+ v/ e# _: A0 C$ v
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ! P( ~" W, V( h6 }- f& T# y  e
lLngEncrypted = Crypt(lBytAscii, PublicKey) 0 Z+ i1 i& X# p% ?
Encode = Encode & NumberToHex(lLngEncrypted, 4) 4 [6 i& E) [+ u8 w& d$ z
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex ( X& ]. K& ~' c' L
Dim lLngMaxIndex + v/ R0 b8 t# G/ h
Dim lLngEncryptedData 9 `+ H, I' z) w/ t9 _) Q$ w
Decode = "" ; k- ?/ t8 S' A- s
lLngMaxIndex = Len(pStrMessage) 9 Z' [$ h3 G2 k, ?
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii) $ D4 ^' H* d# ~/ c( O
Next # n; N9 u1 j/ |/ J, B; _! V
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) , o& S+ k/ X' z5 ~/ n
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ( o  K; b. m8 D. G9 S$ Z# U
End Function 0 {/ h9 t+ \; `+ h7 m( ~
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) * M+ H" t) B5 h& v8 ?$ m; d
End Function . d* i9 F+ j6 `0 Z; ?, K! B
End Class : n8 x' ?% j7 A
function Encryptstr(Message) # ], X3 C: A/ _4 \5 H2 d# h. d
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 4 d2 j1 C9 N2 m% M
Dim ObjRSA
LngKeyE = "32823" , E( w* J' `. H0 e2 V, O" k  Z
LngKeyD = "20643"
LngKeyN = "29893" * p: x6 M1 w) ?
StrMessage = Message
Set ObjRSA = New clsRSA ( C' l8 N, g# T, ?- p
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ; r9 |: U$ R* D! S
end function
Function Decryptstr(Message) - ]( @" W: T) M, \3 p
Dim LngKeyE 1 k) A5 N% Y! U
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 7 W' s5 l8 }, H' C6 |
StrMessage = Message - G3 X# l3 `9 y0 j: M1 V& j  o4 X
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD % O3 O: p3 L. O: ]2 [
ObjRSA.Modulus=LngKeyN ; B# w' m. Q; c2 I9 F: e
decryptstr=ObjRSA.Decode(StrMessage)   S) W  l# [$ P8 i0 Y
Set ObjRSA = Nothing
end function
%>
===============================================5 f9 F1 f8 J# c. r- @0 w* |

还有一个用于测试这段代码的test.asp5 a8 r5 r1 i9 E7 K
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE $ ?9 G4 F5 q, \
Dim LngKeyD 1 `7 n- O: p$ U. ]3 `) p
Dim LngKeyN
Dim StrMessage
Dim ObjRSA   L8 [" S! ~- B) z3 |0 w
LngKeyE = "32823"
LngKeyD = "20643" 0 V9 ]0 M0 H7 N8 X+ [8 U/ O
LngKeyN = "29893" 0 w! E8 ?! G6 b9 g) I( O' t  U7 k
StrMessage = Message / ^' p+ M) e2 z* E) Z, f% G( u
Set ObjRSA = New clsRSA ) p- O' U$ ]1 u9 S4 L, L
ObjRSA.PublicKey = LngKeyE 3 w% u$ i& ~- S5 W1 t
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 3 b9 H- y! ^; y- ?! ]; C( d
end function
function decryptstr(Message) * y: A; A8 r1 S6 r3 ?1 G
Dim LngKeyE
Dim LngKeyD * D5 |6 K3 `7 x9 @
Dim LngKeyN
Dim StrMessage
Dim ObjRSA   V2 j, F, W$ M+ j
LngKeyE = "32823"
LngKeyD = "20643" 9 M% q0 j: J6 e3 I5 U
LngKeyN = "29893" 0 `7 a- Z- n0 Z0 c5 z: t
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first * w+ ^8 r& ?+ }) S( Z8 r
first="!@#$%^&*()"
Response.Write "加密前为:"&first + h- D% \3 s$ B! X- f3 e2 }
last=Encryptstr(first) 1 L3 ?  v# G- z- e
Response.Write "加密后为"&last $ }  A* b% v, ?& L* N
Response.Write "解密后为" &decryptstr(last) - }- R6 Q/ q) j, V0 Z0 U* l$ A
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F- |1 c! Q# l. f; @7 X) q1 C! \
3_____4D75
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C' N9 {3 ]3 c# j3 r4 ~& P
9_____6D20
0_____1089
a_____0F3E
b_____3159
c_____3517& }0 M) R7 {- r/ y! @7 l+ V$ h
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C
i_____00FA6 b% B$ M: _4 e
j_____5A50! s7 b/ F4 i- h, }( {* Z
k_____2850
l_____3E7B9 I+ I8 N8 l3 p# a! `; S
m_____71C5* I% l' c* Q# K" Y0 Z) I
n_____1FC8
o_____74C1/ T' @# @' s/ J8 F8 g" z, B
p_____5FB8- T* ?- Z& a" A0 B0 P) {  |; i3 S
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____7010. m" D. D/ T+ h$ ~
v_____0B42
w_____1C7A# l4 i9 M5 b( p% R% f
x_____16F82 {" z7 B% {9 M
y_____2EE7  q, ]+ f4 O0 R3 }6 J2 r- j
z_____5CF3* ?  k" K& y3 n: @, h& s9 M
!_____6233( t2 V/ H8 F7 U# C# n% e! O
@_____3A451 \( @& p$ M) ?4 x
#_____2291& v8 R9 P/ M5 F$ ?
$_____5D5C' D$ B% c# ]) R9 ]& V- s' B: D. f
%_____09B9* X; {) k, k& G% t
^_____43EA
&_____62B9# H  @) ]0 E0 ~& h; Z) @+ o
*_____6301* q7 a/ P# r) v& Q7 u
(_____46591 t# j1 `9 n7 p$ ~; O6 g) K
)_____5C82

希望做站长本人的学生请点击
http://www.3ast.com/viewthread.php?tid=13841
QQ790653916只负责SEO以及收费教学等方面联系，他人勿扰
于智者同行，你会不同凡响；与高人为伍，你会登上巅峰

鱼儿无心

3.A.S.T士兵

Rank: 1

帖子: 22
积分: 22
威望: 22
金钱: 5
在线时间: 0 小时

2楼

发表于 2011-12-4 17:17 | 只看该作者

收藏了。。。。。。。。

TOP

返回列表

[原创文章] 关于国内某知名大学网站加密算法的研究

[收藏此主题] [关注此主题的新回复]

[通过 QQ、MSN 分享给朋友]