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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm" A$ G) M3 n- p- X% B
/ q: z9 ^( X, r, P) H8 L
看不懂的直接绕过
加密前为:hwy123456% b8 b# W' l; Z# F& M& [
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E& `* h+ `0 ]& d. U
7 c2 D9 I  p$ C7 N' r  \) }
============================================* C7 a, a/ r  g& w2 Z
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法6 {; t5 Y# S# F, w+ D
以下是RSA算法文件
% q7 J- c4 p3 U" m: ^- S
文件名RSA.ASP8 n# O" s6 i/ L: C3 G% X( z: ]8 ], r
===============================================
<% : t( S0 z9 J1 c8 b8 q  r  M1 l$ h
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus 7 B  Q1 }* n& i+ x) N& s' D
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 4 h) i& a5 i* r$ L* P/ u4 ^0 {
Dim lLngMod 8 W7 ?% l/ @, [4 T( F) q  h. o
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 * j. W9 l' m! G8 r7 f
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ! ~/ v, Y, G+ l. W- M6 i
lLngResult = (lLngMod * lLngResult) Mod Modulus $ ]8 }, R1 D# P' e: b3 w7 e, p
If Err Then Exit Function 1 Z( I) X5 O7 l
Next 0 ?0 B, \* z5 z
Else
lLngResult = pLngMessage
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 & N( a& m( h" _" L
If Err Then Exit Function
Next $ \& F% l/ D2 n/ I; c
End If
Crypt = lLngResult
End Function
; M- F. ?4 o# S# |
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex 8 Y6 L; m' O" s/ f% Z7 q, o) G
Dim lLngMaxIndex + d$ d; A" L) G) _4 v0 D2 H
Dim lBytAscii " K6 G; B; o+ {! j
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 8 p0 p" a' E" u7 w2 Q4 ]
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) 2 I# Y5 g. X1 Z2 P! Y2 Y
lLngEncrypted = Crypt(lBytAscii, PublicKey) 0 w  V2 E3 N4 t5 O. v6 H  m
Encode = Encode & NumberToHex(lLngEncrypted, 4) $ V' _/ n! h! s4 D4 b. w: N5 _& j' M
Next
End Function
Public Function Decode(ByVal pStrMessage) 8 n9 i' S. R. |% z, s& b
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 6 X2 B+ b% b0 u7 s4 G& A
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function . X3 `0 X# g1 B
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ! z1 k3 D/ b+ z" _3 l. a, l8 Y
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ) }5 \* S2 J" A& u6 A
End Function
Private Function HexToNumber(ByRef pStrHex) # C3 ?: n5 w& z& f' ?
HexToNumber = CLng("&h" & pStrHex) 2 ^! y% m! W: J
End Function
End Class % q& X) }" t, g3 w/ R
function Encryptstr(Message)
Dim LngKeyE % K5 L3 G3 w5 f2 {! V. `
Dim LngKeyD 9 G$ q& {. K7 @, h
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 2 Z& b) G! z- H) G+ q0 L6 r" ^
LngKeyE = "32823" & I5 B# c+ B, G$ ]1 z. a
LngKeyD = "20643" ! Z2 s- ]& o& f& ]! k  r
LngKeyN = "29893" / p; w% T, B% O! |# ^
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN - X) {/ H$ t: B) `4 J
Encryptstr = ObjRSA.Encode(StrMessage) ( u$ G( [" V* @- b
Set ObjRSA = Nothing # U% N9 U$ C3 `6 w# @' E, P1 D
end function* Y+ I& D8 O; l8 r
Function Decryptstr(Message) 8 |$ }* ~7 C3 x$ _- e, m
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage , B7 v' X9 ?: D, O( D
Dim ObjRSA 6 r8 k- M: ]  C- B( N0 A3 p
LngKeyE = "32823"
LngKeyD = "20643" 4 o/ f/ l) ?2 R3 A  L
LngKeyN = "29893" 6 B; d0 j( ~" k1 \1 T
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 9 y, X  z1 A" s- S
ObjRSA.Modulus=LngKeyN 4 y9 ~# @6 q0 N# j
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>
===============================================8 J1 m$ b- K+ \) ?' J4 [9 |

还有一个用于测试这段代码的test.asp$ K- u/ j! d: K. @
有兴趣的自己搭建个IIS测试下+ b# D) }3 s1 y+ K+ K4 E

<%" q- X( u: u2 B! l* |2 v$ |
function Encryptstr(Message)
Dim LngKeyE " t3 e' {4 u, F/ E" K
Dim LngKeyD ) P% s' W) {; p& @2 |( U2 H- L" Q7 |
Dim LngKeyN
Dim StrMessage $ f# s  X* {0 k+ a# E
Dim ObjRSA
LngKeyE = "32823" 7 v- ]7 \4 ~% z3 ~( r% s8 s: ~
LngKeyD = "20643" ) W+ t4 d" k/ u2 k* h4 l5 ~
LngKeyN = "29893" 1 I1 {/ S: R; E0 K
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 4 C. }( y) d$ \2 F5 ^+ K
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
function decryptstr(Message) # P" n4 Q0 q. T" @- m  s2 U
Dim LngKeyE " s( t1 B) E( ]" k7 t* j3 H4 e
Dim LngKeyD
Dim LngKeyN * A2 K7 q5 ]: M; S6 q" d6 }
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"   Y4 O0 k( Q& g$ y
LngKeyN = "29893" + L% ?% U& s* \1 `3 D: R
StrMessage = Message   T$ Q4 ]/ d% Y( j1 F; w% I& @
Set ObjRSA = New clsRSA 8 q- r9 y, ^. s" Z% U7 L1 }+ E
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) # i. z: X3 Y2 M/ P7 x! a6 o4 M% a
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first % u) u, f. R1 [4 [! w
last=Encryptstr(first) $ y- x5 w) B+ b
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 4 s4 m1 {$ ?% j& I' g9 E
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB  v. u1 C7 V0 b
2_____5C1F5 s) r8 \- f! L8 k- {  u
3_____4D75
4_____26CC
5_____4F88
6_____3F4E8 o' H9 k7 j( u& p' K
7_____0A9D% ]) Z( z, K* N4 E' G1 {! F7 M
8_____1A1C2 R. X- x3 q- T- _6 M6 A
9_____6D20
0_____1089/ R9 s' M: O6 L6 h# {1 _
a_____0F3E
b_____3159. Y5 g- X3 ?5 g1 _) v" z
c_____3517
d_____419C
e_____615C% e& p5 L) u1 q3 J, v) ^3 d4 D
f_____556F' K/ B3 b$ V1 q% ~8 P
g_____2B7F
h_____0F9C1 t6 C- j9 c1 I0 o
i_____00FA: E* K( g- B* }, Y4 M- h: E5 H( o
j_____5A504 f' ]5 O2 ^& i) H4 m9 h. d. |
k_____28506 F: M$ L" M( b
l_____3E7B- ~. t3 d: v) X) j
m_____71C5
n_____1FC82 q1 I- `$ s  w* `' [" s
o_____74C1( z8 R2 y* t2 c, W& O* H. X
p_____5FB8& I  n( n# l6 }' c
q_____6085
r_____3AC4* ?7 p: Q+ U* Y$ Z5 R# y! h- ]
s_____2F50; p$ D7 M4 W6 y% `( W, i
t_____36F85 Z) ?- o$ b. Z" P! e% [
u_____7010
v_____0B428 q  B* d4 [$ Z# ?
w_____1C7A( O2 Y: l! _1 A; u. d0 F
x_____16F8
y_____2EE7
z_____5CF3$ e$ Y2 _1 [" W& f' S* [% o7 u
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B9: [; |, a# G' v7 }
^_____43EA
&_____62B9
*_____63011 F6 F+ C/ G. C& Z0 S2 L! }
(_____4659& X" S3 p4 }- H1 l) C- c$ m7 C8 m# ?
)_____5C82

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

返回列表

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

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

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