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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过! D* n2 b2 x0 J5 O
加密前为:hwy123456; P- o" u( V- x+ Q$ ~, F. H
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================9 S% V) _4 z' m9 x0 v" m
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP4 V0 t5 K/ M0 u& Q
===============================================; v1 I& |6 c4 C) _4 a4 ^
<%
Class clsRSA - C7 O! V- i4 H" |/ `, x# s! U
Public PrivateKey * u/ _2 s9 R) f. n' j( Y
Public PublicKey
Public Modulus 8 A# u( X  z9 `4 H! X- r. E
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult 2 ~( H2 ?5 L) W! i
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 0 u9 [& i3 y- ]; @8 @
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next $ b7 ?4 `# v' z- R
Else * A5 G6 z  w6 }: j$ Z
lLngResult = pLngMessage ! }' v! m, \4 V& ?, N
For lLngIndex = 1 To pLngKey / 2 $ Y0 h1 X" t  [# k( b) M4 t
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 q4 i4 l6 p9 e- ]) f
On Error Resume Next 8 m8 l& W2 h( _7 P1 P& U& C
' Mod may error on key generation 9 U  K8 G& K5 e
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function + K7 [& W8 j- v+ ]
Next
End If * q% e2 A9 c9 J) ^# ^+ y
Crypt = lLngResult : R5 \6 l% i+ e/ X( B& s
End Function
" q; u. f. U& l) C9 N. A. N+ u, R
Public Function Encode(ByVal pStrMessage)   T: j( I$ o( u7 A
Dim lLngIndex
Dim lLngMaxIndex * D# s' X6 C6 {7 `5 Z
Dim lBytAscii 4 w# j+ ?! D$ u$ T# s" |$ g! a
Dim lLngEncrypted ; H  G4 `6 v. [; ~- o, {* u+ ~
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 3 z6 M! j" Q! e5 ?$ a% n$ t7 U
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))   P) e: R. \( \/ ^
lLngEncrypted = Crypt(lBytAscii, PublicKey) - P+ U( p, m/ B4 J; i1 R
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function , O1 l' E0 Q. p
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) ) _" X# J1 X% s" L" Y" q
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) , S3 O4 B' |7 e' g. p, S4 ~
Decode = Decode & Chr(lBytAscii)
Next
End Function , l0 Z6 `4 C7 G
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) $ T1 i8 f/ g6 N, o0 y& e
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) * A4 Q- w4 c% X; r2 c7 w
HexToNumber = CLng("&h" & pStrHex)
End Function ! N/ _9 n) U7 E  i  p; n
End Class
function Encryptstr(Message) . P% w3 c( n+ X
Dim LngKeyE
Dim LngKeyD " W' b* S: }# {
Dim LngKeyN
Dim StrMessage 4 N+ u; o+ p+ a3 }
Dim ObjRSA 8 S3 t5 r3 h3 R& b8 i' ]# x: a! _
LngKeyE = "32823"
LngKeyD = "20643" , Q- o& m& a- E) O' `( p( v# U
LngKeyN = "29893"
StrMessage = Message # Y0 w' @; J' u( x; L
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) : F( W. b% X" _( _' _  ~5 L
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE 5 x" L, l" J- I  [" M6 y
Dim LngKeyD
Dim LngKeyN * d7 f. B$ s' R# q  Z. n
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" / h4 i9 V& F0 v  Z5 k' m
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 7 s2 Y" W& y+ a  _3 P
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 1 q8 W' M  Q0 H1 z  y
end function
%>! K8 B/ e$ l8 m8 P
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 1 q! ~) m; A' _& Q1 W7 |3 }1 V
Dim StrMessage ! L5 G) d$ {. S) `1 T
Dim ObjRSA 7 q1 B: D1 Y+ l  i( Y$ s
LngKeyE = "32823"
LngKeyD = "20643" & |5 w' P) x* V6 o4 Z) A% z
LngKeyN = "29893" ! n' R( D2 U! I9 O. u
StrMessage = Message
Set ObjRSA = New clsRSA   {% a  y, r" s! G( Q( R
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ' q. f+ n: D* s4 d8 Q
Set ObjRSA = Nothing ; r" L$ E4 B; T9 i! o7 L+ x
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD # J* v* }& H- X& E& R! \& t
Dim LngKeyN
Dim StrMessage 3 n' u3 f6 s2 A3 W
Dim ObjRSA 9 ]' b+ R- `5 s3 r
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA ( E8 ^2 m& \0 |. W. u
ObjRSA.PrivateKey =LngKeyD 4 Q$ z, U. P" i
ObjRSA.Modulus=LngKeyN 2 n0 f, j& e* v* l% [" N0 i1 X
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" 8 ~) u; D" `. s4 Y$ x+ v. K
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) ) a# L7 M$ S. @
%> ==============================================
剩下的就是字符的对照表了
===================字符集================% F: X  a$ [7 f7 J% [
1_____6EBB5 P& k3 Z( X4 k6 s( g3 V) \/ B( A
2_____5C1F6 [: O2 X# K% u  a7 m- p  n! q
3_____4D75
4_____26CC* l! o  K: B3 B% Y7 w( d/ K, ?( h
5_____4F880 f2 v* x- b1 a6 ]
6_____3F4E8 l( z$ p8 n8 X% x8 H8 X2 I) t
7_____0A9D
8_____1A1C: `1 E; w* I2 F5 R5 h5 U% h! T
9_____6D20
0_____1089  r& t4 d" t8 [
a_____0F3E+ G9 w# ]% P1 a' r8 F
b_____3159" {: B" T- T% S; T% `
c_____3517
d_____419C; _1 w4 t6 I( U( [2 J% j7 Q
e_____615C  y" \; A' r1 n8 m/ |
f_____556F
g_____2B7F
h_____0F9C% f# T, I) ?* W4 f# E% |0 _  [
i_____00FA
j_____5A50' c- J' s$ l/ }  w/ w9 C  T6 G) |
k_____2850  }" v4 U: E/ J5 z
l_____3E7B
m_____71C5
n_____1FC8  H5 f! }5 F6 F5 z  p" q  y
o_____74C16 @7 l2 b/ N9 d( {; k
p_____5FB83 X3 ~/ b4 u) E# V1 p% \
q_____6085" L0 j6 v  C/ @/ K. l! Q3 ?
r_____3AC4, \" d# F+ c* A0 z& T
s_____2F50# b& X1 w, \8 Z7 F; J' q
t_____36F8
u_____7010  p- {$ p7 c( [- Z: q9 F5 |, O
v_____0B42/ S9 {6 }' A+ r7 i5 ^
w_____1C7A
x_____16F8& u/ U* M" w3 ?9 @& `
y_____2EE7
z_____5CF3
!_____6233
@_____3A452 _9 o% J$ P/ \6 Y% h- q5 |
#_____2291+ V) @( @( e0 q. x0 a
$_____5D5C
%_____09B9: ^) G" S) m2 Z4 J
^_____43EA
&_____62B9" b4 f; v0 h$ O" d" ^
*_____6301
(_____4659. R: H( P. u5 W2 a
)_____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 分享给朋友]