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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm% h- M) p" I! z& j
原始出处：http://www.3ast.com.cm

看不懂的直接绕过6 z$ \# V, X, F' {3 ^( p
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
: Q" T& |0 ?9 F" a* K
============================================3 a- u0 C$ |* q
上面是当时自己校内的心情。现在已经解破出来了，分享给大家$ i" n! _2 T+ J: W& V
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件8 c& ~' e1 e' w! ~+ Q$ }7 w; f. o* t
' ^8 |1 F( _: _. ~
文件名RSA.ASP
===============================================
<%
Class clsRSA . V: f1 \- b) `- e& A
Public PrivateKey
Public PublicKey + V' L8 A9 z* t" o6 i
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) " f$ F; k. {: n- i3 K+ Q7 u5 P6 P  v
On Error Resume Next   k/ r% w5 L; J8 P! j4 m; c/ {( e
Dim lLngMod ' X9 |( q" N5 L) l9 P. a7 k3 P7 |! F
Dim lLngResult
Dim lLngIndex * M' `1 H: Q0 |4 L2 E1 {
If pLngKey Mod 2 = 0 Then
lLngResult = 1 ) I( d& F. `8 x. b. Z
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus - Q% L# w  ~$ t* P2 z2 `( ^
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ; `! t. m! y5 O
Next
Else . ?! [1 j$ `+ {. m; R
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 , A3 ]& D1 G. B
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation ! k  ^. z# }. J9 ?1 ~4 H% @
lLngResult = (lLngMod * lLngResult) Mod Modulus   P0 c+ q9 j  u5 M+ y
If Err Then Exit Function + M. N6 N" U+ l
Next
End If
Crypt = lLngResult 4 n$ v9 @5 ~6 @! }
End Function. L' R* W4 J0 ~' s" p
9 s  d* N/ v( K3 d, H
Public Function Encode(ByVal pStrMessage) ; J( \; X+ e# F, |1 a3 c
Dim lLngIndex $ o* H5 \: p' I
Dim lLngMaxIndex 1 W. Q$ N5 |% f8 C' p' n
Dim lBytAscii 4 z5 \8 B7 ]& h5 s, {8 B
Dim lLngEncrypted # I" v/ s, A- N& e( I" e: |
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex 4 |5 {1 W( t# F1 X+ I
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) ! e1 @, R- `, Y  P5 u
Next 8 d5 z: b& Q* d& f' C. Z
End Function & M) S+ o9 l) ~4 s( ~  }& \
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 % Q* e+ \' `! u* \& o/ l
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 1 D' l0 U. o0 D. D# x
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) 3 g( G" X* Q  N$ p  u7 K5 p
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) $ O! {! A9 Z* \' ]5 A3 I/ ^+ I& j9 L  ?- i
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ( l  w# J3 w# L) E! z. ]
End Function ' \' _$ d7 M, Z+ A1 ~
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function 7 C2 W5 K5 M" V5 n; z. z. l
End Class # a5 A" x/ X/ `  w3 Q$ G0 e
function Encryptstr(Message) ; l4 l& ^8 B# m7 L  s. i% O9 |/ q
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 4 W% [6 S* X) U
Dim StrMessage * Y# M8 n( d% u* |( y
Dim ObjRSA - g; F- u3 d2 ?8 r! D
LngKeyE = "32823" ! S( g: n4 z* b/ l
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 9 Y7 _, n) e. c4 I# k
ObjRSA.PublicKey = LngKeyE , D, c' n) v4 H9 |9 I
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) / S4 ^0 j: R1 G. i
Set ObjRSA = Nothing
end function* _% D+ X, a* u0 ~
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN + y& I3 L1 z6 Y
Dim StrMessage ' c4 i: w! A- _$ e& k# c2 [$ o$ r+ k
Dim ObjRSA
LngKeyE = "32823" / X# q- L# G. i+ b/ v" t! o' }
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN " t9 R0 T1 U# H
decryptstr=ObjRSA.Decode(StrMessage) % x3 @7 C4 F9 @! @5 [
Set ObjRSA = Nothing
end function
%>
===============================================
3 O- X5 Z; M2 W, z) |
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message) 4 q- v/ ^- q5 o" p$ u$ ]! \
Dim LngKeyE
Dim LngKeyD ( P3 Q; d+ q5 q( o: v
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" . X2 U& n4 A: n! w
LngKeyN = "29893" & m) e' G; q- p) v
StrMessage = Message " x0 k& s  {* x3 N% V
Set ObjRSA = New clsRSA + U  x, ^4 U; J4 q! |( m: ]
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 7 P( @0 a. B, e2 A
Set ObjRSA = Nothing
end function
function decryptstr(Message)
Dim LngKeyE / }" R' i9 F% M. \
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 7 h5 t! H* g, A& C% M
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA , w! c, \& r- P5 n* Z3 U" l) U
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing : T. X( K- Z& w: ~5 M+ K
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) % x1 p5 ]1 K  Q# G" r" M
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了% Z( T6 A+ l: n: i( M$ J
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75+ U0 v2 _, \: e  i6 b9 `
4_____26CC
5_____4F88: n2 S  V- D% h- S& Q
6_____3F4E# k1 A, x6 z# X6 `0 o0 x0 I
7_____0A9D3 a+ q) ^' ]- \9 h" Z5 \
8_____1A1C
9_____6D20* O4 Z! d" l  g& Z7 a/ h8 B/ T
0_____1089! {+ [" f: U) b( \
a_____0F3E" q6 _' _8 _) Z' c4 G4 ?
b_____31594 t* C/ b9 ^) R5 K; U
c_____3517
d_____419C0 q7 h& V/ e1 p) G/ ^! {1 u* p, G8 n
e_____615C
f_____556F
g_____2B7F7 h2 k" j' D1 ~4 e) i* B/ _
h_____0F9C- n% U* G8 _- G! x; m% L
i_____00FA
j_____5A50; F3 }/ K4 F( p, r+ `0 p
k_____2850
l_____3E7B
m_____71C5
n_____1FC8- P3 T, i% C; _5 U
o_____74C1
p_____5FB8- g7 O* B0 C: E+ \/ n
q_____6085
r_____3AC40 j$ T$ x  D  j' v
s_____2F50
t_____36F8. c3 Q8 y1 L( g0 o1 l
u_____70100 i# j) ~4 \# _! f# b
v_____0B42
w_____1C7A$ M2 V1 F& D" z) }6 A
x_____16F8, A/ O5 J4 y8 x& A+ h
y_____2EE7
z_____5CF34 s& a$ O5 y- e* e: ^* j; [
!_____62338 |7 V# |( d" L3 c3 W. z* |
@_____3A452 s* M0 ~" i% O+ Q0 D. ^
#_____2291
$_____5D5C
%_____09B94 F" n6 q7 ^6 C' l2 U* L2 m7 Q; J
^_____43EA
&_____62B9" o' h5 I3 t6 d1 X6 p; @% ^3 j
*_____6301' A. m: V7 c# f; k; j0 H, w
(_____4659" d9 U9 I" o. h& ^9 v2 o: T: q
)_____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 分享给朋友]