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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm( j1 F, G7 A' \- J) S
原始出处：http://www.3ast.com.cm

看不懂的直接绕过2 }1 r/ @; q$ x. P9 \# b
加密前为:hwy123456- b" Q, ~. v- t
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E1 p7 X% X( H$ t& E" u
) ~( X- z6 h+ i/ {6 L
============================================4 Q( b* h, d0 l' a  B
上面是当时自己校内的心情。现在已经解破出来了，分享给大家8 d- L# F* I! V, |6 d. G
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法8 s+ g7 B4 ^) x3 t1 z0 X
以下是RSA算法文件
9 B% N2 K: Y% K+ v2 B
文件名RSA.ASP( d. R0 n! d- I4 `# f
===============================================5 J2 q& H* a1 c: s1 z+ u
<% / I0 U' \" W5 }. e7 k& ?
Class clsRSA
Public PrivateKey
Public PublicKey 5 ?+ S# Y! e8 O; H/ s( q% E
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult 8 V* P* j0 _; \6 }4 D4 W+ C
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 8 z5 L  M' g! K4 Q9 F
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function " V, P, \2 y# q/ X5 q; g+ u
Next , F. p4 u8 h1 L: ~3 u
Else
lLngResult = pLngMessage # L- k3 C7 T) T6 f
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus ) q" m2 o" r# A5 Z3 f
On Error Resume Next
' Mod may error on key generation ! e4 P" L' v# n- m
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function - _% B, @- t) e, D: o( A
Next # X; B8 s7 D2 k0 U7 b4 P3 |4 \
End If . C7 I" `% Z. X3 p; z
Crypt = lLngResult - S  B9 S: ^7 H' H; F& I
End Function& J+ J; T  C9 j. Q$ {$ ^+ b

Public Function Encode(ByVal pStrMessage) ' `; E" R4 ?3 a( P2 {
Dim lLngIndex
Dim lLngMaxIndex : ?4 ~- l# g& _5 f- [# F
Dim lBytAscii   F' G$ c+ F, H, x  i5 s
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 0 S/ [) K8 O" m3 F; E2 M, Q
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next / R" R, [  g, I( n( l; h! E
End Function " q# R4 f; S. z4 E. }9 c# X+ x
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) " q- Q$ v, I2 ?% f1 o
For lLngIndex = 1 To lLngMaxIndex Step 4 8 ?% a3 k9 L, Z& O& M0 b
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) & t1 O8 G! j  Y# x. E, c
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) ' U7 a5 l, L% r' I
Decode = Decode & Chr(lBytAscii) * ], F3 o, L4 }; H7 |: M- n5 X8 d1 k
Next
End Function 7 W0 B0 o) e4 }9 F# t# }& g
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ' m. |4 j/ T5 `3 l) L2 A4 e; f
End Function - t; L/ F; s& u) _3 N/ M5 Q
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) 8 [- k% f# V9 S& l% P; \
End Function
End Class   k0 d. _) g* g" V* |4 [
function Encryptstr(Message) ' c% a7 \# `1 O+ ~' V: Z
Dim LngKeyE 2 i5 k* U/ C2 k6 L# T( _7 S! A" O& K
Dim LngKeyD 0 v0 b4 {! [7 P0 y4 B  L
Dim LngKeyN & ?6 K2 n: _  M7 y) k7 _
Dim StrMessage
Dim ObjRSA $ B; H' i1 {/ u/ v( s" W
LngKeyE = "32823"
LngKeyD = "20643" $ M5 C1 W6 A8 f, j7 h: l
LngKeyN = "29893" & S% w6 S# p( @* a/ f1 Z
StrMessage = Message 5 w* ]) K. U2 ]" c4 d
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE + _$ C9 M5 L! `9 y4 d* ]3 Q
ObjRSA.Modulus = LngKeyN , H3 P0 S' p; k+ O1 s, ?4 d: _* H7 D
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 3 _5 c7 m/ T! K, D, r
end function
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" : g5 @/ a! T9 v! k0 o
LngKeyN = "29893"
StrMessage = Message - T) x6 k4 C, ]
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 1 o( A. K' {: y
ObjRSA.Modulus=LngKeyN + Z8 z" t) M; Z8 m% t- C$ {  k/ w& j
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
%>& J& C3 _! Y  s  s& H
===============================================6 U# T( J6 W& a/ s  O  h: X  c
/ S& N- u3 Z2 N$ W
还有一个用于测试这段代码的test.asp2 X/ n* f- b$ w" Y# R1 M7 B
有兴趣的自己搭建个IIS测试下2 F3 L* Z1 n* s. ]. K6 Y
 0 @2 V' m0 ]5 ?4 a; d
<%( |$ W8 z0 ^, O: w
function Encryptstr(Message)
Dim LngKeyE , ]5 F/ m9 _/ S) d( m& e& ]/ [+ m3 |
Dim LngKeyD 4 ~" S0 W) Q6 B& D" t- F
Dim LngKeyN
Dim StrMessage 6 U6 k2 i9 Y1 D$ |9 V- Q8 O, B
Dim ObjRSA + W( J) ]8 @( C  n, b1 L
LngKeyE = "32823" * a) c: ?% W- w: A
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 7 R( i& a- P9 r1 h2 }2 O  y1 _5 q
Set ObjRSA = Nothing
end function * k* @% h$ C( I& x5 M7 G: i$ K
function decryptstr(Message) - w. }9 C' b: Z; i* k
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" & e& L) {2 z5 T
LngKeyD = "20643"
LngKeyN = "29893" ; T5 f- [4 I* n0 R
StrMessage = Message ' _( q( R5 ^# O' d
Set ObjRSA = New clsRSA 0 Q4 \. M( C) L
ObjRSA.PrivateKey =LngKeyD   g5 J3 J2 }$ j( I5 g4 ^  O
ObjRSA.Modulus=LngKeyN ! I, l- v. o/ u! f
decryptstr=ObjRSA.Decode(StrMessage) & ?4 y' d3 P$ B; p9 c
Set ObjRSA = Nothing , k5 `7 j: Q$ Y- b
end function
dim last,first * m! \: Q% h  Z; R' T
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) 0 x( d( e* _- K0 I! D* H( n7 \
Response.Write "加密后为"&last ' G' _- v4 e9 x4 Z, h$ |. r( F
Response.Write "解密后为" &decryptstr(last)
%> ==============================================' i7 M7 J% U- H8 {
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88. S& p' V. M; I; ?  ]% P5 o. q
6_____3F4E
7_____0A9D' H7 l  }/ \' c4 Y  p6 |+ ^
8_____1A1C" c9 @& F6 j) ?- e% G/ L" ~
9_____6D20
0_____1089) e) A* J: K9 O5 {/ p2 ?; {
a_____0F3E% p7 t3 z: g' ~8 u& a9 e2 \
b_____3159  Z; H. p! W- y1 `  G+ ~% v
c_____35179 f, t2 f' E+ ~- E) y( {  V5 b
d_____419C
e_____615C1 P3 Z$ g/ v4 r4 s, g, t
f_____556F
g_____2B7F0 T* v1 L5 c1 ~' K
h_____0F9C
i_____00FA) i# W, e3 ~  `, J. M6 Q! Q1 _0 h
j_____5A50" ?- \, D# J$ c; m3 B9 d4 D
k_____2850, i: x5 }* ?5 {( c9 h
l_____3E7B, \) d6 z  ~- @) A. O5 v
m_____71C52 F& d; L) y3 i+ r+ L1 b
n_____1FC8
o_____74C1' N8 R1 |5 P$ M( h; G! d' K
p_____5FB8
q_____6085) u5 d, X2 H6 I: t7 m- {; ?" u: m$ m
r_____3AC4. z8 _- o( V, p+ t! R! f
s_____2F50' g+ ?" t6 G6 l7 H: a  P
t_____36F8' U& w( n2 [9 `: |
u_____7010
v_____0B42
w_____1C7A* r+ L# k8 h! C! X4 P+ @  ?( J
x_____16F85 o: ?& P0 V; K" D5 c, }$ n7 S
y_____2EE7
z_____5CF3' X# h0 g' i& r  A4 `5 P
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B91 k6 J9 M7 Q# S/ q! S+ r: _0 w
^_____43EA: V1 z; T5 ]& O* Q" C
&_____62B9
*_____63010 A$ \1 S9 ]6 Z5 T3 V* f
(_____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 分享给朋友]