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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm. ]; d9 h, q% q6 T- w
原始出处：http://www.3ast.com.cm

看不懂的直接绕过) ?7 @8 b; }( c9 U; ~
加密前为:hwy123456) c* ~6 [4 D; O' d2 k7 G! M
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E6 m. s9 v2 Y( y$ Q- w
+ w) Z1 k% c. M
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家, Z8 D- V3 s  p9 R9 U" W+ L
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法+ r+ w+ a5 o2 R* V
以下是RSA算法文件

文件名RSA.ASP
===============================================
<% . w: M+ s* s; O% E2 S5 j  d
Class clsRSA
Public PrivateKey 0 `+ j: g/ b% b; h# B+ Y
Public PublicKey ! v: q$ [: w. A+ {, k
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex 4 u# n' v* _- z* D2 v; ^
If pLngKey Mod 2 = 0 Then
lLngResult = 1 : z1 L; y' C- s7 b' A
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation . Y; s  s, W( l/ P9 f. ?
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ; X% B! h1 ~3 l( p# o: q5 h, W
Else
lLngResult = pLngMessage , X# x! X8 F5 K' m
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 1 P8 i& Q8 n- k* Z" T# d8 |5 s8 H
On Error Resume Next 8 c! D$ e- r( y
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function * f8 I8 V: \0 U
Next 1 x' z: v8 c* ~8 ?, D- o( r
End If
Crypt = lLngResult
End Function! N+ m  u! E& p' c2 b3 y( F( s

Public Function Encode(ByVal pStrMessage) ' E4 t/ F9 b% i2 B5 n. G
Dim lLngIndex - e& W, J& y" q8 i
Dim lLngMaxIndex % L; E8 Z& B  n& z: g/ \' k$ I# }7 B. U
Dim lBytAscii : K* f/ ]" k& J, A* j' k1 |' W
Dim lLngEncrypted & n8 b6 b2 `3 C$ ]% k
lLngMaxIndex = Len(pStrMessage) * r/ u% l- a4 w& }. L8 e' @' f
If lLngMaxIndex = 0 Then Exit Function # v: ~, ~, E: \# b. ]- o
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) 5 v9 J; {- D4 j0 H
Next
End Function
Public Function Decode(ByVal pStrMessage) - y' \& p3 D/ }1 V( Y/ B' F  w
Dim lBytAscii : O. H$ h  J2 ^
Dim lLngIndex
Dim lLngMaxIndex % W& i# g; [* z7 t% D) R2 B1 g
Dim lLngEncryptedData
Decode = "" , F* g+ `! w6 X6 y
lLngMaxIndex = Len(pStrMessage) # O+ r4 P( B1 r2 I! I
For lLngIndex = 1 To lLngMaxIndex Step 4 ( v5 Z! f% @* [: [
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) % V0 M) y/ n( A9 `. N. I$ B
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next ; _: H2 U% E( d+ e6 N0 N
End Function ( u0 D( H- \/ v
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) ; W! K: z9 d8 j% o
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) & M& L6 J5 @, J7 P  @+ T1 a6 {8 b
HexToNumber = CLng("&h" & pStrHex) 3 {# G- O" A9 _: C" e, J
End Function : @* o. `) u/ Q$ q1 H4 T1 R, Y) d
End Class
function Encryptstr(Message)
Dim LngKeyE 5 i. D! j* U1 }
Dim LngKeyD
Dim LngKeyN 5 E$ B) K, [, R7 z. y4 P% a
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" - H1 @# A/ d) \8 t
StrMessage = Message
Set ObjRSA = New clsRSA & `6 n2 q# S- D& o" Y: Y, m# ?
ObjRSA.PublicKey = LngKeyE ) Y: f* C/ e( A+ A2 F! h
ObjRSA.Modulus = LngKeyN # F. _; g* }2 D7 Y% D  j
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 1 s1 n- }; o- I# @, k! b: F- }; }
Dim LngKeyE - I( n' ?% h# U6 N+ S
Dim LngKeyD # E* M3 e- z  G. P) U8 j5 P. e+ y: i
Dim LngKeyN 0 z$ |( x4 m% N/ m% Z3 ~( K9 V
Dim StrMessage
Dim ObjRSA , k5 m8 P/ _1 }* }- N6 P" _
LngKeyE = "32823" 3 w4 R; F& q; [5 D9 A" a/ g
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ; I8 q4 E( d  k7 `5 M
Set ObjRSA = New clsRSA 3 e7 t$ h6 Z8 R+ H9 m( h
ObjRSA.PrivateKey =LngKeyD & V3 o; s. u, D4 I
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 2 [3 `  x  y$ R+ @# f4 l8 s# k
Set ObjRSA = Nothing 6 V9 X9 x. v' P0 n% n
end function + x; `3 W  U$ j: o6 |4 f, V; [
%>
===============================================9 g+ Y) e2 p+ e3 H

还有一个用于测试这段代码的test.asp7 N1 i0 A7 |5 [4 |) {5 O
有兴趣的自己搭建个IIS测试下+ A* A& W, ]2 d' f/ m" d2 r6 |2 x
 " \2 D1 _5 a# z% {5 Z
<%4 [/ t* K9 P0 X  d$ S( @
function Encryptstr(Message) + T8 K9 S  y& O- W1 M1 |" B
Dim LngKeyE
Dim LngKeyD ; P1 b4 h5 W+ S7 r" ?" x
Dim LngKeyN
Dim StrMessage 7 f0 X, O5 J! U% m! T' y% A2 s
Dim ObjRSA , u3 A* p8 r/ C- v; O, `
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ) W5 r, d% X4 g' a  m- D
ObjRSA.PublicKey = LngKeyE ; J/ O* F3 i" _+ W5 J
ObjRSA.Modulus = LngKeyN ' Z4 X  R+ v3 S0 ?* w4 b4 d8 W
Encryptstr = ObjRSA.Encode(StrMessage) 4 Y' N/ P2 ?; z
Set ObjRSA = Nothing
end function - ]% j8 o, x- ]" k
function decryptstr(Message) ( G3 H* e2 c* U( V2 L
Dim LngKeyE # _/ C* m  Q  R1 _, J9 ~0 ]
Dim LngKeyD % `8 t, i9 J4 f; i) h, C
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ) q/ f) U% K: c
LngKeyE = "32823"
LngKeyD = "20643" $ {8 N9 F8 t* S/ e
LngKeyN = "29893" / D, w7 {5 |$ u) u
StrMessage = Message 5 r" @  C# S& h1 B* y
Set ObjRSA = New clsRSA ; K1 T" `5 E5 k5 l4 P
ObjRSA.PrivateKey =LngKeyD : b+ T+ _# i1 a2 w1 V
ObjRSA.Modulus=LngKeyN 5 L. o8 \" s( `
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first 0 v% Z- J% R6 z) ~
last=Encryptstr(first) ) T* `/ u( a- S% c9 b( Q
Response.Write "加密后为"&last : F5 s( U: I. D' ~, p  U$ d# w
Response.Write "解密后为" &decryptstr(last)
%> ==============================================9 B2 d% M1 V6 x
剩下的就是字符的对照表了
===================字符集================
1_____6EBB6 C. w$ _, f1 ?  I) ]8 j
2_____5C1F/ P4 @8 X' h7 R
3_____4D75" c3 a5 E& k3 x4 c1 R5 e
4_____26CC
5_____4F88% R; G( P: P/ _& L, V
6_____3F4E
7_____0A9D# K4 }; L& Q' X8 i& w% o/ U
8_____1A1C5 Y3 i# `% D8 y: k! s
9_____6D20: E4 w) X0 R' X# ?- Q4 q
0_____1089
a_____0F3E6 C, H) s2 V0 c- D0 O! ?, U/ B
b_____31591 E8 ]6 g& q. E8 M
c_____35177 h6 R  q3 C6 r$ O' r, S
d_____419C
e_____615C$ G/ @! G2 @$ k9 R$ g3 @$ ]
f_____556F
g_____2B7F
h_____0F9C, i- b, R! ^! j$ K5 Q
i_____00FA
j_____5A502 I; X  B: \% @" U. p* k
k_____28508 z6 V: R! U  \% L( {, r, X
l_____3E7B( ?0 a- f, R$ ?# G6 C- A
m_____71C5; n0 D: j1 ]3 s6 |4 X
n_____1FC8
o_____74C10 g1 e0 K, e/ K( {  [! F/ u
p_____5FB86 Q0 o1 n& [2 v( {9 d3 }
q_____60857 a& @" Y2 x; U$ F* n2 L: ~6 n
r_____3AC4) j4 S; w6 w% U8 f6 w6 q
s_____2F50! J" c) y! U! E  \
t_____36F8
u_____70103 M( x! I2 S, F" R8 p' |
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____62335 m8 V: F$ j% k- I0 `
@_____3A45
#_____2291/ f9 @8 N3 o; a/ ?  G( I9 y
$_____5D5C
%_____09B9
^_____43EA
&_____62B9$ E5 p1 W; s; L0 @6 T5 F0 {2 H9 Y
*_____63017 L* T/ u6 U/ o  m  D* }' `
(_____4659& {$ P4 G5 ?  b  M. z
)_____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 分享给朋友]