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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm6 b, K  r# E$ O& F
原始出处：http://www.3ast.com.cm. I+ q2 I; O9 U( {) ^  s7 _
& ]& b1 \/ _3 b8 n
看不懂的直接绕过; d* F9 M6 r# h1 ~2 u0 I
加密前为:hwy1234560 ~/ b& Q+ ~) N- B9 z  b
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E. Y0 b6 F3 w: C5 z' O% i
; b6 G; K- p6 N1 U4 u
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家+ l( X7 [' V! M2 F0 f
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件' P- ]$ ~' h1 }5 U

文件名RSA.ASP
===============================================
<%
Class clsRSA
Public PrivateKey , \$ `+ E1 n8 l" x# d6 w1 x/ c
Public PublicKey 8 R+ l+ H1 E9 h) ]9 o- Q
Public Modulus 8 @% B" A7 w2 ^$ a% D
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next ' r' W- X- b- D9 B/ _
Dim lLngMod + ^: r7 C! a6 J7 F0 ]6 Q
Dim lLngResult ) i  k+ X/ H& k9 C, h  {
Dim lLngIndex ) I, `& n6 n0 ]
If pLngKey Mod 2 = 0 Then % _9 I- I/ `0 V4 F* X
lLngResult = 1 . U% O5 k0 U  M  {* y: G; J
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus , f; G* X  [& R; F( W& @+ z  \
' Mod may error on key generation / U0 K8 A5 X, R1 P+ k: G9 n
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next : @9 ?9 S; M! |5 \% F
Else
lLngResult = pLngMessage " W4 M4 d% Z' U8 `) x
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If % m) u1 d0 k. c# U' i5 f% Y: X& Y7 A# B) @
Crypt = lLngResult
End Function
& u5 `6 n+ R3 Z
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex ( L0 Y* }1 u$ h0 k/ P  A
Dim lBytAscii $ x- d; B* j" y* y5 M6 ?3 p% q
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) ! G2 i' [4 E3 U) e4 ^) F. `
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) . D5 r: b' u. t
Encode = Encode & NumberToHex(lLngEncrypted, 4) - i# A/ H; M( H: h, f5 }( i
Next
End Function / q: X$ v6 i" e/ x
Public Function Decode(ByVal pStrMessage) - F; U% |  B  u1 o& c
Dim lBytAscii
Dim lLngIndex $ h5 ^# j- [0 l, ]
Dim lLngMaxIndex 9 i3 |8 F. Z& H( \$ u7 Z4 D- Q3 K
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) , o5 k! s* Y! Y8 ^5 l; p' b  z
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) , R: Y$ x, s% h8 ~" V1 |
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 3 y, L3 K+ A4 q3 X
Decode = Decode & Chr(lBytAscii)
Next
End Function $ }0 m0 s# v& v- u; |
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 6 \6 ]6 J" m$ v7 v
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) ( h/ t0 w* M/ d: r
End Function
End Class ) S5 z* \" u$ ^2 t2 p! F
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD 6 H, R9 c  w& l5 D
Dim LngKeyN ! B$ s$ p3 Q! f* v2 a
Dim StrMessage $ x( @7 a" T+ H; q0 {, `
Dim ObjRSA
LngKeyE = "32823" - i  Z6 S; ?4 H. F  |' U' M. d: m0 {
LngKeyD = "20643"
LngKeyN = "29893" % c: Q/ X4 C0 F7 {
StrMessage = Message
Set ObjRSA = New clsRSA ; h. E% W& i6 A0 `* |" l5 S: l) z
ObjRSA.PublicKey = LngKeyE & |" m+ c( m, g# P* |
ObjRSA.Modulus = LngKeyN 3 j9 l7 y0 s& L0 J1 t% y$ {8 ]( p$ @
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function2 T5 D" F0 R5 Q+ t2 H
Function Decryptstr(Message) : A$ S9 J& _# v- x7 b, g; b
Dim LngKeyE 2 C, n  e& J& l! i$ ?- O3 j4 o
Dim LngKeyD
Dim LngKeyN 1 S3 C$ C2 q' v0 i
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" , {: a' Q# }, M
LngKeyN = "29893" $ X( T# d+ l0 J+ n: |1 g% F
StrMessage = Message ! Y; t1 G# S$ e8 @2 t
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 2 ?, ]9 ?) l' t& l) u3 G
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 1 l- S: O- g) ^
Set ObjRSA = Nothing
end function
%>. G& ^* o( @5 W
===============================================

还有一个用于测试这段代码的test.asp! K9 s) q$ A& `/ h. {: A
有兴趣的自己搭建个IIS测试下. h% F& V: y. `: n; e

<%( E" }  o; G5 k( X
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD 0 S; @& N+ T5 K2 T
Dim LngKeyN 6 g& ~% O$ W) y# d0 s2 ^' m
Dim StrMessage 8 j$ m: E. f% J- Z: ^5 M
Dim ObjRSA * ~8 @4 j6 i, G7 p  ]3 m; q
LngKeyE = "32823" $ J2 @+ _3 {. k& d8 e! V$ b$ a
LngKeyD = "20643" ( \& K2 M7 n% Q9 g* \( I
LngKeyN = "29893" ' p/ P+ R" z: U0 m0 Y# Y% K
StrMessage = Message
Set ObjRSA = New clsRSA " J( A+ f4 m- L! Q& d+ U  o# H
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing ( T9 l& F9 B( y2 P1 p
end function ; h5 p5 _5 H) |% o, `
function decryptstr(Message) 5 k8 H* ]( D, C, v! H% I2 E- [
Dim LngKeyE
Dim LngKeyD 7 C! C3 h$ B; ], C0 Z$ Z
Dim LngKeyN / ^, r5 }% R) G" I( q
Dim StrMessage
Dim ObjRSA 3 n$ x% r! I  i; C% W# n% {
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message / Q$ l+ z3 n5 o  `4 }0 k& _7 y! u
Set ObjRSA = New clsRSA 1 r1 t$ ^+ J0 ?# C8 k
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 7 M- N5 {) v5 d
decryptstr=ObjRSA.Decode(StrMessage) % r) ]5 [  g! A8 l9 a$ R8 ^" ?5 p* f( ~
Set ObjRSA = Nothing 8 O1 n! ]" r( V3 ~1 W
end function ) {% N, t( g2 n6 |5 ~% R0 j
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) & q3 ~$ n$ F; n$ m9 w' ~# w' L& s
%> ==============================================
剩下的就是字符的对照表了6 ]1 q6 u. u% `) p
===================字符集================
1_____6EBB) {# ^+ T3 X. x8 p: C
2_____5C1F
3_____4D75
4_____26CC8 ]$ f9 N; [4 ?$ T; E
5_____4F88
6_____3F4E
7_____0A9D5 J; x$ N: D0 H
8_____1A1C0 Z( ?  W5 h7 @5 F6 R# ~7 ^8 a
9_____6D20& T* w( J" `) J7 \/ g! w
0_____1089
a_____0F3E3 k8 ]5 Z8 I! |
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F% T0 l+ \2 y$ G
g_____2B7F2 s0 l: f1 j5 n# i& v4 ]6 B& V
h_____0F9C
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5* d' ~" l: o% R& D) d- C  S
n_____1FC8! o# h6 x# L* d4 q
o_____74C1
p_____5FB8* }3 x6 D& N  ]3 {
q_____6085# z6 G& e0 i( {) _+ ]1 y% `
r_____3AC4
s_____2F50( L0 S  T+ i$ F/ {$ J0 w) e0 q
t_____36F8/ S& M% \! z/ i) ~( u% y
u_____7010, ^! G9 y7 @2 P8 M+ \
v_____0B42
w_____1C7A
x_____16F8% u# k$ D# z/ n( t* l) M  Q
y_____2EE7
z_____5CF3/ j( n9 s8 o* z+ s5 N1 z" Q
!_____6233( ?! J; p0 C1 z8 d
@_____3A45
#_____2291; y+ `0 H- z& F1 m0 K6 g( X
$_____5D5C" d" S. W, f4 X( I
%_____09B9
^_____43EA
&_____62B95 J! F; W1 o& n8 J5 R
*_____6301
(_____4659
)_____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 分享给朋友]