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

算法, 大学, 研究

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

看不懂的直接绕过
加密前为:hwy123456' K, m! r  q2 m6 j7 ]/ {/ \, ?4 _+ k
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
( P( m2 Y4 q7 P  ]& s( G
============================================& o/ `* z  j8 G) k6 u$ s" n0 V# w
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法7 y( ^" P; k/ U  R6 A
以下是RSA算法文件3 s& d3 _  _3 B. H! ?) u' G+ }
5 u. P! v8 C3 a
文件名RSA.ASP+ G4 N) Q/ o) b: N/ _+ F$ q
===============================================& l% C1 O1 Z4 ~& [# ~4 j5 l
<% & D  K+ C- ^5 O+ s8 E/ t) |* C
Class clsRSA   D0 r! ]' v4 F. Y1 G1 m3 Q
Public PrivateKey . H0 o! d  e: z" ^$ Y' w$ X' ?
Public PublicKey * J: n! A# @  R* ~" W$ j
Public Modulus * l! d. C; {( Z
Public Function Crypt(pLngMessage, pLngKey) 4 }4 E8 s" Y% @# K4 w$ f
On Error Resume Next
Dim lLngMod
Dim lLngResult 8 F/ H1 _* H  G1 u% F" o' @
Dim lLngIndex + {/ Y- ]; _$ m
If pLngKey Mod 2 = 0 Then
lLngResult = 1 & S- i9 r, W8 h/ t) |
For lLngIndex = 1 To pLngKey / 2 5 I) y% L0 A. z1 e2 W) q1 p
lLngMod = (pLngMessage ^ 2) Mod Modulus $ `# K( w4 S/ o9 W3 ~0 U
' Mod may error on key generation 0 X# k/ {! ^( l% h2 |( o* S
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function % ]4 K% h0 d0 B$ k, m+ ?
Next
Else
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus + J5 r, s0 ~' A8 w
If Err Then Exit Function
Next
End If 8 h4 }7 i. n) |' }; M' E' a0 ^
Crypt = lLngResult 3 q; Y$ L: ?4 K+ g, _5 o; }
End Function( {4 w+ |, I+ g: N3 w8 m* {4 L, ^

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted   p5 `" Z: ]: T
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex , _6 E- F: o: E: p* U: n' m3 x
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 7 p; R7 @! ~* B$ L
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage) . n! X( ~% ?% O
Dim lBytAscii % f6 P& K& ?0 k* u( c1 w, @
Dim lLngIndex ( B# ?8 ?% _" Y* Q7 b7 f" @1 T
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" - B0 y1 u8 i* M& {& O* g% [
lLngMaxIndex = Len(pStrMessage) 5 e- B+ T$ M$ k* N. Z3 }
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) # G8 p/ ]. d6 R( `* W6 @5 S1 j( A
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next 1 _; {2 R/ S% q* N9 Y9 I0 F1 e
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 9 H7 ?4 y+ [% {$ Y& [9 U4 \- ?1 c& a
End Function , b4 \9 {: J1 x5 Y
Private Function HexToNumber(ByRef pStrHex) ( T2 S( s' K" ~: w: s
HexToNumber = CLng("&h" & pStrHex)
End Function 9 I4 ~$ t8 B0 \& J* u9 p
End Class ) S8 `6 Z. d  `, w
function Encryptstr(Message)
Dim LngKeyE - _# N; i( y2 l1 a
Dim LngKeyD
Dim LngKeyN 9 O! z# g1 m& K* {! q8 ^
Dim StrMessage 8 W; [$ e" Y$ b) o: \
Dim ObjRSA
LngKeyE = "32823" . i; b7 q* a7 ?0 Y$ F  ^1 K0 q; |
LngKeyD = "20643" + l" t/ ~6 Q( F( u! Y2 x8 M
LngKeyN = "29893" ) c- J3 T$ @+ t/ o
StrMessage = Message 6 Z. t" E  D( J( \2 q9 s
Set ObjRSA = New clsRSA : O9 p/ x; ^5 m8 y9 t' l
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN $ ^5 f! R& H/ I0 z
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 0 e6 C9 x" u, W+ \+ k3 n
end function3 E! K* f  G1 I
Function Decryptstr(Message) 9 \, z8 Y( P4 _! t2 b
Dim LngKeyE ) ^& P" A2 q9 D1 A1 S- x
Dim LngKeyD " T9 p& m/ D6 @8 ~
Dim LngKeyN
Dim StrMessage + x9 q- {1 T% t6 O7 T; ]* N' @* a- ?
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 3 b5 B2 f- l7 w8 e1 t+ Z* h
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA : V0 N9 ~0 a5 n4 _1 U) X4 Q
ObjRSA.PrivateKey =LngKeyD % b/ D5 ?5 K3 v' W% X( f
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing - W/ \+ @9 M% m6 q0 ~( o( @3 @, {- V( Y* A
end function 1 V! u- t  z$ g/ r6 k3 v) C5 A" K
%>
===============================================

还有一个用于测试这段代码的test.asp, Q. O" P' x+ X
有兴趣的自己搭建个IIS测试下
 6 `/ b7 ~* w+ ~% k6 f9 g
<%9 l$ w7 y. g0 G% |0 y
function Encryptstr(Message) ! M6 P, y& g' I2 C: N9 v
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA , J: q  _) C/ a1 F- D
ObjRSA.PublicKey = LngKeyE 8 c6 C8 I, Q7 K
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing " f% F4 I5 C& _1 {
end function / n5 z( j2 b9 x0 F5 I$ J
function decryptstr(Message) 5 X* Q1 H8 ]) q5 J, L/ k5 ~, g
Dim LngKeyE : y3 `3 t4 ?4 y
Dim LngKeyD * R/ R5 B; l) T: V! j/ o9 R
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" ' t: ^7 J- V/ D: ~+ C0 @8 s
StrMessage = Message 9 L6 j# E7 D7 O$ k2 C
Set ObjRSA = New clsRSA ! s. O- M" J( j+ X& Y9 e
ObjRSA.PrivateKey =LngKeyD   C3 z9 L" b8 l( }
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 0 i, T5 V* j/ A. j: U- H2 s' ?: L
end function 0 H  P3 S: e* n+ W' O) M
dim last,first
first="!@#$%^&*()" ( N/ N5 Z9 B; D, q0 e
Response.Write "加密前为:"&first - u# j# x. z2 v1 U
last=Encryptstr(first) $ y" n* j2 @! W& N9 E
Response.Write "加密后为"&last % F0 y3 d0 u% U: U/ r. H4 o* d2 k
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了
===================字符集================: Z9 f' m0 s  c3 [* S, D) |
1_____6EBB
2_____5C1F& W( ?! a' P. {2 i- M9 Y( H
3_____4D75
4_____26CC
5_____4F88
6_____3F4E5 O7 r0 z3 q& r7 j
7_____0A9D
8_____1A1C; M$ m5 @+ ~4 t" g6 f
9_____6D209 j" |7 I$ o9 c  W5 ?; x2 h( T$ p
0_____1089
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C) I- C- V# I2 y1 k- Z
f_____556F
g_____2B7F
h_____0F9C
i_____00FA+ ~$ U, r3 T; j
j_____5A50
k_____2850; _/ R+ n) |0 \. F5 h  D3 l6 Y% T1 E. i
l_____3E7B7 p3 F3 F3 B5 {" {! Y6 ~1 H* F
m_____71C5
n_____1FC8
o_____74C14 K# G: n! g2 Y' d- L
p_____5FB8" J; y! j" Q3 [; \" d
q_____6085
r_____3AC4
s_____2F50( S2 L# v. c9 j6 \5 v& p3 f
t_____36F8
u_____7010
v_____0B42
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF3
!_____62337 V9 w4 {) G: D" I$ f% d
@_____3A45! X: }- N. m' s! @4 o
#_____2291
$_____5D5C2 s0 G: i' ~, d8 C! Q; t8 q
%_____09B9
^_____43EA
&_____62B9& J3 @. f& f3 U+ y' T7 V% ?* e5 R: [6 i
*_____63016 C/ Q+ b6 H3 j' O( f! G
(_____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 分享给朋友]