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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm8 }: H% {: Z& H! G1 P7 a/ M* V
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E

============================================" L' F2 U9 X, j" k% H7 S
上面是当时自己校内的心情。现在已经解破出来了，分享给大家% m7 ~, L$ W3 ^* l0 w
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法, O1 `. L+ G$ `. C8 P2 I
以下是RSA算法文件
+ Z0 K3 b0 _5 w! w+ M0 x. U: g
文件名RSA.ASP
===============================================4 Q; u7 g% B; Y, a: J4 \  r0 d& e
<%
Class clsRSA
Public PrivateKey ) U% |$ c, h. @: k/ G0 z1 L
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey) " b  k2 z* @+ b
On Error Resume Next
Dim lLngMod $ v7 ^$ Y4 ]0 m4 w
Dim lLngResult , W9 m  f% V" R# s" x1 T
Dim lLngIndex 9 P; V' [$ R& E$ R9 r- w
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 8 w, \) x) r; N  i; Q4 n3 y
' Mod may error on key generation 0 n2 x: e# `0 y: }& T6 X
lLngResult = (lLngMod * lLngResult) Mod Modulus + x3 t9 |- _2 \7 Q3 g9 s; s
If Err Then Exit Function   h+ {! c4 d, t. P. h0 |
Next + E- R. ^7 [1 m: ^" F
Else : J0 `* D( b; W. Q! R6 w7 `" _; r
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 1 S. i! x" m7 X, W+ U" p" b
lLngMod = (pLngMessage ^ 2) Mod Modulus 2 p/ _+ Q6 p7 w& h3 u( L
On Error Resume Next ) T# M" n7 D" W( f& t& Y2 \
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 0 r+ V* V' `, j! W" B
End If
Crypt = lLngResult
End Function$ r1 s' @9 `  ]) \. F* E

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
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) . A/ p4 n4 p2 ?/ X/ ~
Next , ?& @9 s. f7 a4 g4 B7 k" S
End Function : ~% j3 y  k' i" e
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii - A# [3 }. u6 {/ m8 Q' D
Dim lLngIndex 1 ?/ @1 \; s2 Y1 X
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = ""
lLngMaxIndex = Len(pStrMessage) 5 Z. e/ I9 S2 [& q2 a
For lLngIndex = 1 To lLngMaxIndex Step 4 2 `+ D2 n9 c/ V. M  m4 d; N% H+ Z
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) ! O  Y' X5 z! f+ h
HexToNumber = CLng("&h" & pStrHex)
End Function % [$ ^+ ?3 [' I$ z
End Class
function Encryptstr(Message) . e( U+ r- [5 }7 J; {; n
Dim LngKeyE 3 u% M" E4 Z+ T% M9 J. x+ y
Dim LngKeyD + x& F. ~' M/ Q  j
Dim LngKeyN 4 ]& c$ [4 z- ~* R
Dim StrMessage
Dim ObjRSA 0 x8 O' C, N, k# p! U
LngKeyE = "32823"
LngKeyD = "20643" , {- y% [! Z' \2 Z4 r: v
LngKeyN = "29893"
StrMessage = Message 1 W! X. a+ \! `2 h
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 3 p4 p- \. J0 j6 I2 a, E1 A
ObjRSA.Modulus = LngKeyN 3 x+ d. K9 w8 k7 J" x; v
Encryptstr = ObjRSA.Encode(StrMessage) & N4 W+ t- l9 i8 {- J! t
Set ObjRSA = Nothing
end function
Function Decryptstr(Message)
Dim LngKeyE + N( \$ U  u0 V/ _* _% L
Dim LngKeyD $ z6 w, ]5 U" b$ O
Dim LngKeyN ! [; N1 Q/ |+ ?5 l9 c( C' t$ r
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 7 l4 x) ~* ~& ?, S' ]
LngKeyD = "20643" 4 l" F9 T8 w( @1 d( ^% ?" Z+ U1 b
LngKeyN = "29893"
StrMessage = Message 0 z8 I' g( F+ `3 g/ Z) h0 [
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ' s. D9 w% R. u# S( K5 K
decryptstr=ObjRSA.Decode(StrMessage) / b5 q4 o8 H' c" h: O, C
Set ObjRSA = Nothing % |0 l, S, x+ u" n# g7 j# I- n
end function 7 x3 V2 a: F, ^
%># R! ^! i6 j$ l$ @
===============================================( [7 d: X' e  k$ X0 Z4 M" v

还有一个用于测试这段代码的test.asp# a4 [3 [+ a7 q% `- K  F( p2 F
有兴趣的自己搭建个IIS测试下
   E1 G; J* a- `  ~5 |0 F" z. v
<%2 b3 D/ U$ ?4 C' L) w: B
function Encryptstr(Message)
Dim LngKeyE ) h3 r7 s$ b$ b6 b% B, w, e
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 5 b( r2 s) O& Z) {4 r1 d! d
LngKeyE = "32823" 1 R" X9 c6 k! I0 o; z! l8 ?
LngKeyD = "20643" + S$ @; h! g" y6 ]4 s& H1 A
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 7 I) y* v5 J' g" ?& Z- D4 f, E
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN / W. b# _$ `' f6 {- s! K" j, ~8 ]) e
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function 1 l! p$ h2 a2 Y7 s" r/ Y. u
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 5 [$ w% ~& A9 L# |) z- g
Dim ObjRSA ; v' G$ F# R0 ]
LngKeyE = "32823" 9 N# y+ K" Q  j* L2 _
LngKeyD = "20643" 6 [4 U# S8 c2 Q
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA 6 Y- ]6 W5 j; n3 M9 u1 f% K9 L" i$ Z
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) 7 Y5 T) N$ W. d, K# Y) G6 A2 F
Set ObjRSA = Nothing
end function ' `$ W9 h9 g) C+ d
dim last,first 2 G/ o/ H. O) D2 c' o& T
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last * l3 J' |8 R8 z9 B$ f0 N
Response.Write "解密后为" &decryptstr(last) : t! Q& h# c8 ?/ k/ o
%> ==============================================
剩下的就是字符的对照表了
===================字符集================
1_____6EBB" L: ^5 k  k9 f. s2 D
2_____5C1F, F1 K1 c9 g& E8 v4 y' V4 \
3_____4D752 @* p1 `# i4 [! V+ r: _; t
4_____26CC% P2 u) O- N' w+ i4 w1 F
5_____4F88% u% X- j1 |7 ^% `4 U2 |# V
6_____3F4E( U0 I% k. m6 J* d. H
7_____0A9D
8_____1A1C
9_____6D207 k/ e0 z9 B* r0 ~
0_____1089
a_____0F3E
b_____3159
c_____35179 u& c, y2 g9 E: q
d_____419C: \% ~# @) w& B9 u+ M/ k
e_____615C
f_____556F4 B" q7 L5 [6 v5 b
g_____2B7F
h_____0F9C
i_____00FA
j_____5A50
k_____2850* k0 t+ E" W2 a
l_____3E7B9 `6 h* `& l4 R- [" n
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F501 t5 u3 f1 i4 p) v1 h& k' _
t_____36F8: m( C6 q' G$ c' Q+ s* h: v" b
u_____7010
v_____0B42+ Z4 R$ L9 y! t1 s! L
w_____1C7A
x_____16F87 u6 l% b5 k# W" k( g1 e( R
y_____2EE7/ K9 \4 h7 d) m" k
z_____5CF3
!_____6233
@_____3A45
#_____2291$ y9 X7 P! A- l* @
$_____5D5C6 Z  j9 W- @+ W/ n8 }8 g6 g
%_____09B9
^_____43EA
&_____62B9
*_____6301
(_____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 分享给朋友]