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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm& q4 s, O" |" z! q8 n
原始出处：http://www.3ast.com.cm% c0 B  f$ e3 W/ m9 S( x

看不懂的直接绕过
加密前为:hwy1234561 b/ e' I0 m+ |3 M9 q% v1 ]: z
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================5 ?' G- j* R! Z. ^9 E9 ^
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法, k  e4 k; Q5 ~9 Z" q
以下是RSA算法文件3 T# W& A) A- u2 |6 B9 x

文件名RSA.ASP5 d7 L9 S/ p+ a
===============================================# P0 f0 a6 k4 ^# r1 B
<%
Class clsRSA
Public PrivateKey % }7 h; |# C& f$ l  A/ a1 u, |
Public PublicKey 9 T$ Z( P9 N$ s
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) 4 A* h- g- Z5 O
On Error Resume Next * C. {% }2 U# V4 J+ t9 c6 R
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then . i( e; v8 ?; s& S! N. D7 \
lLngResult = 1 % P+ f4 b6 J4 W" r
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ; m- m+ [) S% j
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus 9 I. O3 ?. {6 j
If Err Then Exit Function   B8 u8 S) D  s+ Q8 H# ^' {3 i
Next
Else
lLngResult = pLngMessage : ~  v/ d+ f. d$ y6 b- f
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus   R% t6 u% T2 m. R* n% ?, `
On Error Resume Next
' Mod may error on key generation * |3 u. {" h7 S  @
lLngResult = (lLngMod * lLngResult) Mod Modulus 5 U4 m5 l3 b5 o' O5 h
If Err Then Exit Function
Next
End If $ H" N) `' b7 `1 c
Crypt = lLngResult
End Function% h/ \5 b. Y! U1 j2 J3 ?

Public Function Encode(ByVal pStrMessage) ' x( R4 [0 ]! q( _# I
Dim lLngIndex
Dim lLngMaxIndex . q3 M# Q+ [& z2 M
Dim lBytAscii   v* U0 V( x# [2 s
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 9 G: g4 n; U# e
For lLngIndex = 1 To lLngMaxIndex % [! x6 }5 R5 S  O( c# Q
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 6 _8 R- {# V; F. D; G
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex   q2 W2 c2 y) e3 v9 A. x
Dim lLngEncryptedData
Decode = "" 3 X% b- u' v1 V8 {, w2 Z1 Z/ |: g7 b
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ; w- [5 b4 W) A+ C* Y- @# x4 w8 O  J
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 8 ], B2 N9 \3 p8 h% h
Decode = Decode & Chr(lBytAscii) : e9 R# a9 e* _
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ! a1 W  }9 T! f# S+ u5 Y9 E
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ) M" D, N5 N0 C& L
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function # ~, f7 @1 z: a4 ~) ?
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ) c" y  X% |* G) k
Dim ObjRSA ) N1 U9 h' ~, f3 s
LngKeyE = "32823" + w7 m7 O: k7 Y8 G- z) u' j3 r. V
LngKeyD = "20643" 4 R3 x7 b6 `0 V( K/ k  n
LngKeyN = "29893" ! Q) s: z3 x& n* Q
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE * _! o% h& U, P
ObjRSA.Modulus = LngKeyN ; q! W  s9 V& s  L( T
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 6 B# }9 f. d+ J) c8 @
end function. m( o+ n; H! E4 E
Function Decryptstr(Message) 3 B  |* }" c9 e" V2 P
Dim LngKeyE
Dim LngKeyD ( s) Q( R9 I4 g" D. L7 N% s9 K& t
Dim LngKeyN
Dim StrMessage 5 _1 n- \7 _! ~2 ?
Dim ObjRSA " D  w/ H% Y7 T3 t# m/ N* d
LngKeyE = "32823" # |  }! K) a* N; w, A% K. z* N
LngKeyD = "20643" - V3 N" i/ A* ?; S( I. w" @
LngKeyN = "29893" + J6 E2 k  ?: _5 j+ r) T
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN : [/ p; b, J4 p0 [( z2 c7 {: H
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing & @8 D# W" R9 O& F# ^
end function
%>
===============================================' K! K# t  d( R& u; a/ N+ J" K8 v

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下/ ^% p2 M. k8 e0 u" ?

<%
function Encryptstr(Message)
Dim LngKeyE ( ^  T+ ]' L4 t
Dim LngKeyD 7 p3 l2 F- q1 \# G0 r5 b" G
Dim LngKeyN ! K$ [9 r& T6 ^$ ~3 |+ y: t: O
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 1 p6 ^" h+ A, E! C8 e3 \) m( ^
LngKeyD = "20643" 9 f3 @) x  `3 @" D3 Z* r1 k
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA * m) L* X9 [+ V! r6 W
ObjRSA.PublicKey = LngKeyE * H7 |5 r6 N# W1 X5 ]# d
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) + w6 \2 Q. s  O1 o% @+ x% ]
Set ObjRSA = Nothing
end function 6 v* g4 E' n; T& Q- s' y& V
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD % ^9 |' v9 b, t8 a$ w" G- x
Dim LngKeyN 8 c- V4 a1 z" S! W, d! q! R  @6 H
Dim StrMessage
Dim ObjRSA 4 z2 \$ H! M( A7 W9 ~4 x( v% X4 ^
LngKeyE = "32823" , m2 b  ^# g1 g" o/ n  Q
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message 1 R4 J, _  c; k1 V
Set ObjRSA = New clsRSA 7 `/ k) E! H# O1 S7 v  D% U1 G; m
ObjRSA.PrivateKey =LngKeyD ' r* t1 k! L' _7 ]- F3 C
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 4 H5 ]- B' C3 t3 ^& ?
Set ObjRSA = Nothing - Y! C6 m! A  O. H( h/ h) J3 Q
end function ! J6 V" W- {8 V+ l- A
dim last,first
first="!@#$%^&*()" * d4 X  x4 r5 L* L
Response.Write "加密前为:"&first # [* l0 z' u# Y; q# R2 }
last=Encryptstr(first) ; s1 m' x% T* e3 l. A5 B
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 3 A# E, i. ^. `" x
%> ==============================================, _- y( n0 R5 ?: O
剩下的就是字符的对照表了
===================字符集================, b- ?4 `* k0 `" m+ T
1_____6EBB. H* T% e; x! {* x' g* z
2_____5C1F
3_____4D75
4_____26CC9 X" A- L+ P& V* T/ f
5_____4F88, b$ p* c  |+ b- P; x
6_____3F4E
7_____0A9D3 f. \& @5 R3 i" d7 `2 j: d' l
8_____1A1C
9_____6D20' [. s7 Z" t/ H7 d3 ~
0_____1089
a_____0F3E+ C: J/ Y* [# g! s2 G% I
b_____3159
c_____35176 x0 U2 ?* J% N* v( {# F. B
d_____419C/ k8 b. F6 c  Q) l4 X  A$ B, {& S
e_____615C
f_____556F
g_____2B7F' g2 B6 n' o6 k4 s$ H% v" S
h_____0F9C
i_____00FA
j_____5A50" e4 X' t$ P% g$ ~1 J* E
k_____28500 j8 O) n0 }' \! f/ f
l_____3E7B
m_____71C5& E  B5 |) h/ D
n_____1FC8
o_____74C1/ x& S* o4 ?7 W9 z' E9 O
p_____5FB8
q_____60852 a- h1 G7 |3 Q4 s" D2 G! d+ _  b
r_____3AC4
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7, x+ Z- X; Y0 b% N1 G! o
z_____5CF3
!_____62330 F) P4 j$ {/ x. `
@_____3A451 x0 K$ I5 l- {! f- o2 F
#_____2291: s* o) T# m3 e' }* J
$_____5D5C
%_____09B9
^_____43EA
&_____62B9  ]- O2 U' e0 K$ r6 z: O
*_____63014 q; Y( Y" z2 E, J# S2 Z
(_____46599 u  C1 N+ v8 z5 E, o* B
)_____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 分享给朋友]