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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm: Q1 w* r& c1 q9 L5 l: F- {. S  w
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E  Y' q8 @, B6 u/ N# M' i( H1 f5 Q

============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件; g1 X9 y' e# B6 d$ t2 o/ r. Y: ~

文件名RSA.ASP2 T% F0 C! a6 ]5 U# M& N3 D
===============================================0 p. f9 ^& L/ a
<% 1 D5 ^! M+ V: s# i' W
Class clsRSA 7 h% o: S1 [' d( T, `
Public PrivateKey
Public PublicKey
Public Modulus 3 i  V5 z3 W1 v; r+ d
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next 1 M1 M2 g! l* D% k
Dim lLngMod
Dim lLngResult
Dim lLngIndex $ Y6 o. P( b8 W9 s! l" f" {
If pLngKey Mod 2 = 0 Then # C6 }' c$ M# G
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus / W+ n' `: S! Z" i& F+ Z
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function # J/ O) W$ Y+ ^. X5 c; S6 A
Next : K2 W* u' v4 _" [7 K) y- _
Else
lLngResult = pLngMessage - M9 ]% _7 a8 y  v* }, h- s
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation * ^3 i8 t! O7 j9 I
lLngResult = (lLngMod * lLngResult) Mod Modulus & t1 o2 b# ?2 Y7 D" k$ Y
If Err Then Exit Function # q4 _: U' o/ m; z: S4 J4 Z
Next
End If
Crypt = lLngResult
End Function
1 n* |6 S5 K! P
Public Function Encode(ByVal pStrMessage) + \$ c- I- J" _0 {1 c
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted ! ^! a6 D9 O. s
lLngMaxIndex = Len(pStrMessage) 8 p' S7 V2 b) l2 Z' m8 R7 s$ P7 P
If lLngMaxIndex = 0 Then Exit Function 4 @# Y* c  `& D: }7 ^; D4 h
For lLngIndex = 1 To lLngMaxIndex 3 v8 x) x. K5 @3 a4 P7 ?- Z8 |# W9 z! R7 B
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) & k7 r' R$ H8 M
lLngEncrypted = Crypt(lBytAscii, PublicKey) 5 v, K* g* v3 u: T0 }- f5 x5 M
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex & v# W9 U! D8 I- p' u0 Y
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" $ R9 {0 j! S! X8 q7 D2 C1 M
lLngMaxIndex = Len(pStrMessage) 1 F0 l$ m& w1 m2 p, l% V+ N# a4 ]
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) / x% n% ]# E  [5 J3 a
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function * b7 }- F# J% m3 ^
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) % w4 a! X& Y) r* C$ h0 w- o
End Function 2 _8 m9 T: L8 l4 D
Private Function HexToNumber(ByRef pStrHex) 4 }; W( [8 X% X2 Q: V6 {0 m
HexToNumber = CLng("&h" & pStrHex) $ N! j5 ]1 g# S9 X) y+ H
End Function
End Class , `' a. D0 u( y& D! H
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ) C+ g2 K% H! g
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" / y$ p: J2 r2 K+ c: O# Q7 W) j
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA * M# l' r  j3 K  [! U5 B2 ~
ObjRSA.PublicKey = LngKeyE 9 `2 F- O" B; _* {. @/ L
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 4 g; ^  n2 F2 [7 ?7 c4 c' v
Set ObjRSA = Nothing
end function# B$ s8 v- i/ X
Function Decryptstr(Message)
Dim LngKeyE / i1 ~4 j0 {: V1 X1 U
Dim LngKeyD . h/ d: R3 Q7 l- r5 i
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 3 N) p8 f# h% s6 R, ?9 y3 }! Z
LngKeyD = "20643" & s, i1 D. V  T" l# l
LngKeyN = "29893" ) }* f8 g" ]# t0 G8 Q6 u
StrMessage = Message
Set ObjRSA = New clsRSA ( ]: |+ G3 g+ ~: o3 R, C
ObjRSA.PrivateKey =LngKeyD 3 J7 r+ i" i# e6 s
ObjRSA.Modulus=LngKeyN ' S; X: o8 g% c1 y2 E
decryptstr=ObjRSA.Decode(StrMessage) 0 d# u* q: m, ]
Set ObjRSA = Nothing 1 H) S" l5 a: `; i' d2 r0 T! @
end function
%>" M- y! N" a' F* F! g, a& ], ]
===============================================

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下
 9 H  z) }: K7 a: i+ W
<%
function Encryptstr(Message)
Dim LngKeyE / n! Z& X; }# j1 r: T6 Z
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA - M. u! H, Q6 Y% K! ]4 J0 ?
LngKeyE = "32823"
LngKeyD = "20643" ' }2 }0 _! w: r2 j" J  G  E
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE 4 D; \9 j' V4 a. I3 D  V
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 6 H+ C# F' h4 U8 x' _- W) n: G
end function
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ( o$ g. r) ?; D0 V  h7 o" m; J
Dim StrMessage * D* p; l' ]' ?5 `% \& u6 B1 \) s& C
Dim ObjRSA
LngKeyE = "32823" 2 f$ D7 U3 g- o
LngKeyD = "20643" 6 x! K  s7 y2 v0 q( e6 J
LngKeyN = "29893"
StrMessage = Message : w6 U3 ~9 D5 }  H% `; J' o4 O- L
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ' @" X) r1 m& ~5 h: t0 M  W% {
decryptstr=ObjRSA.Decode(StrMessage) + l0 a$ T( ]7 V' A
Set ObjRSA = Nothing " W1 E  M! `  H
end function 4 S4 ?- q6 X$ A4 Z0 }: M$ v
dim last,first . m3 x# D" K# O; I
first="!@#$%^&*()" ' d0 U2 U  A& n# g3 N$ T! ~* z
Response.Write "加密前为:"&first
last=Encryptstr(first) 9 `' I# v  c4 c+ g7 E! n8 I
Response.Write "加密后为"&last + {+ B% {/ u7 N
Response.Write "解密后为" &decryptstr(last)
%> ==============================================
剩下的就是字符的对照表了- Q1 C. T9 i7 n. a$ |( z  c
===================字符集================
1_____6EBB3 Q, q  E6 K' m" W3 A% Q8 G
2_____5C1F6 I  h% L. l, S5 k) c( g
3_____4D75
4_____26CC
5_____4F885 b) ^" T$ }% K& s8 [) N
6_____3F4E
7_____0A9D$ _* s3 ~3 p6 ?& j' c& w. w  t
8_____1A1C1 d+ n( {8 w5 `2 @8 R0 Y  R, K  m
9_____6D207 E$ g( V6 Q- ~$ `* N
0_____1089
a_____0F3E) v$ L: g9 x9 G& S$ k7 {& X; j/ F% Z
b_____3159
c_____3517
d_____419C
e_____615C- B) j) |4 l2 t0 [
f_____556F
g_____2B7F
h_____0F9C
i_____00FA& U5 a( O( L; O# G) K* R* e
j_____5A50* j% u1 v% q3 }6 R" ~  _$ v/ D
k_____28507 `/ r' ?- w4 c3 @' l% `
l_____3E7B
m_____71C5
n_____1FC8
o_____74C1
p_____5FB8
q_____6085( k, h' b0 f' q0 J# E9 i
r_____3AC4+ I, L) I+ x# ?& S% z
s_____2F50
t_____36F8' S! L! I( h. I  ~3 H1 J% R
u_____7010
v_____0B42
w_____1C7A3 L' f$ G) o: S6 z1 [1 o  I& ]
x_____16F8
y_____2EE7
z_____5CF3
!_____6233& H8 l' S/ H; ~5 @# Z! P! X
@_____3A45
#_____2291
$_____5D5C' u4 K& ]& C# b/ x* [$ ~
%_____09B9
^_____43EA; j% s' i  O2 F% s
&_____62B9
*_____63013 ]% Y! m6 J' z( d1 y$ E
(_____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 分享给朋友]