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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm! H$ j) Y6 n  D% v# F
原始出处：http://www.3ast.com.cm9 x( n# N4 p( `5 Q$ G2 E. A( i. G
2 r' ]; ]7 \$ r8 u, {$ M: K
看不懂的直接绕过8 J, k2 s7 q& `7 H5 \/ A
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E1 w! `) D  O" f8 C) [

============================================5 n- |4 I3 n- E3 ~  R
上面是当时自己校内的心情。现在已经解破出来了，分享给大家1 G9 Z2 G1 O$ b2 w2 s$ ~! F8 h
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法$ ?, Q, \7 u4 J0 s
以下是RSA算法文件1 v. G! m9 T- r  k0 L' A) O
7 a* a: h0 m3 ?
文件名RSA.ASP& _, G3 A: H9 S
===============================================
<% ( Q/ M9 P9 s; ^2 V" m
Class clsRSA ( i9 X2 G% b: c! o) W
Public PrivateKey
Public PublicKey % t/ i; ~9 i1 a; r! P
Public Modulus & D& q' N. t% w% c" h. t
Public Function Crypt(pLngMessage, pLngKey) $ X6 k9 B" y6 }3 Q6 m" t$ W2 p
On Error Resume Next
Dim lLngMod 1 x/ Y# v0 s9 `
Dim lLngResult # J' S& F, B8 A# |: c
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
lLngResult = (lLngMod * lLngResult) Mod Modulus $ j7 w. o: T! L! k5 C% g
If Err Then Exit Function
Next
Else
lLngResult = pLngMessage , }8 T/ g# r% `2 |) x
For lLngIndex = 1 To pLngKey / 2 7 g' q* v; }7 n* T
lLngMod = (pLngMessage ^ 2) Mod Modulus 0 h0 y" m1 U% Y! G; z2 [
On Error Resume Next
' Mod may error on key generation + ^7 T  O; Y  t' g# O) P% i( Q
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function ) ?. M0 q; r( B" d* b/ O" J
Next
End If
Crypt = lLngResult
End Function

Public Function Encode(ByVal pStrMessage) ; s4 P, N; t8 S4 I; b5 v
Dim lLngIndex ' J* ~! f+ Z! G: i4 t
Dim lLngMaxIndex 4 ]4 B/ [; |% y# u' f
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 3 U; {2 o$ _" n# w& M- D) p) d
If lLngMaxIndex = 0 Then Exit Function 7 _# J6 b0 K/ A7 }" m; z% T
For lLngIndex = 1 To lLngMaxIndex 7 P* Y# K7 O6 N; @; b+ A1 Q& B
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) " M  r0 e! O' b/ P% s) k
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next " u% v9 [9 n* c6 [
End Function 6 c1 `, w6 K2 A% R2 A" v/ [
Public Function Decode(ByVal pStrMessage) # S. N1 t) k: m
Dim lBytAscii
Dim lLngIndex $ X, F5 p: g3 G9 O' U  `  H, e) Y
Dim lLngMaxIndex 6 W1 S& V4 g4 p# L' Z
Dim lLngEncryptedData 6 z3 g1 P6 v. w2 V- V- w$ }+ w0 ?
Decode = "" * h7 V3 [2 i6 b' j" j  w8 J
lLngMaxIndex = Len(pStrMessage) . t! l  ~% A. f0 o4 T
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) 5 U* i: b$ O0 o7 W
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next $ _- N6 E! S6 k* |
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) 0 ~+ z/ U& A- Q; c+ Y/ J
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) . m/ t9 ?: E' m& \$ z* S; m
End Function 8 \, L" ~1 q6 y- T
Private Function HexToNumber(ByRef pStrHex) * u) o6 ]# \0 B) i7 ^  o$ }8 C' ~
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD ( ?) P2 Y7 X% B1 ?
Dim LngKeyN
Dim StrMessage + g3 x* u8 [: E  m4 z! i
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" , a! L6 ?5 R/ O6 P% H* o
LngKeyN = "29893" # e4 h5 X: w% k* S1 l9 i
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 6 Y2 h( Z# T1 l
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing , Z% \% P" h- |6 z/ z. |
end function9 {# o# }/ ~3 k4 L: d! `
Function Decryptstr(Message) 3 x8 }" u$ j7 k  `" s
Dim LngKeyE
Dim LngKeyD & Q8 j2 U" j' H& E+ U9 p  [; r/ ^
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ' b! ~  n' r/ d' h: M
LngKeyE = "32823" 2 a& ?2 T# Q: b) I
LngKeyD = "20643" , z" U! N5 w( ~1 }/ x. Z
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD 9 R% l/ f. S: n* P
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) + z( B& c6 N2 L" V5 n; ?
Set ObjRSA = Nothing
end function ( s2 [1 u7 Z3 \% J! z
%>5 ?4 v: s+ `' \* ]5 w& N) P
===============================================

还有一个用于测试这段代码的test.asp2 o) T1 t; ?; ^" `
有兴趣的自己搭建个IIS测试下

<%1 U5 u  i$ b7 v) a; i
function Encryptstr(Message) 9 \4 |0 _; k6 }4 Q  E: \
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 5 ]6 S7 z, {3 u& [( K
Dim ObjRSA 8 c! `, q. E4 J8 u$ D4 A
LngKeyE = "32823" * K, o1 O4 Z' {
LngKeyD = "20643"   |0 O5 F$ O! p
LngKeyN = "29893"
StrMessage = Message " {5 x9 X* T( ^& `) U
Set ObjRSA = New clsRSA 1 v6 `$ C7 m5 o0 _6 J" v
ObjRSA.PublicKey = LngKeyE 3 C' M5 j/ @$ @) ]
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 4 l0 P9 ]  i& H3 F) k) ]
Set ObjRSA = Nothing 9 Q6 [: i# E$ ~5 g: N
end function
function decryptstr(Message)
Dim LngKeyE 8 b! C* g. n$ C# d
Dim LngKeyD " A  p; @$ M. b) t7 H, K
Dim LngKeyN
Dim StrMessage
Dim ObjRSA " q6 G) p' w/ T+ f( P
LngKeyE = "32823"
LngKeyD = "20643" ) F% f" C9 c, L7 ?
LngKeyN = "29893" 0 F" F9 S( Q  l$ d! S  n  r  A2 K: X
StrMessage = Message
Set ObjRSA = New clsRSA 9 ~9 |3 F$ x% u% A+ w
ObjRSA.PrivateKey =LngKeyD " M& [8 c0 [1 z' b
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ) X. V; z2 F1 k0 K5 p
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()" 3 t' D2 L: y1 ^2 O6 s. G( \
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================1 E& y8 x& v+ m. s1 T* A
剩下的就是字符的对照表了
===================字符集================* F7 O: O* @" b0 g
1_____6EBB
2_____5C1F
3_____4D75# |- S% [  A! n' U# u
4_____26CC
5_____4F88
6_____3F4E, Z( S- E: q- s" g$ c) T
7_____0A9D8 v6 M2 }  z" n/ e* ~# S- j9 h
8_____1A1C, D5 t+ \- I" t* j
9_____6D207 {6 o8 O* N1 {0 E9 E* `& l
0_____1089- e# U# z3 o, @+ T3 D. m# K
a_____0F3E' N5 |) B" j" u  f
b_____3159
c_____3517# _0 y3 j+ V; K- h4 k/ h( ~% V
d_____419C
e_____615C
f_____556F
g_____2B7F
h_____0F9C, p- ]: b5 ^4 M1 w
i_____00FA) v% H7 g* Q. ?& l) x
j_____5A50& n/ G8 n" |9 x+ G
k_____28508 _2 n- {6 ^4 N' h6 d& E
l_____3E7B9 }; t' f+ y3 P& F
m_____71C5
n_____1FC8# [: T2 C/ }7 d1 x# W( S. @
o_____74C1
p_____5FB8. ~2 w, `: r: l- P% F& l2 }
q_____6085
r_____3AC4# h4 O1 T9 H4 l; J
s_____2F50( ^9 h' ]/ A  a. h: x; P
t_____36F8
u_____7010) B& c; h4 g9 Z/ }" l' Z
v_____0B42
w_____1C7A
x_____16F8! k& _+ u; G$ L
y_____2EE7
z_____5CF30 O7 l0 |8 W5 D; a. o; _, h
!_____6233
@_____3A45
#_____2291
$_____5D5C  t6 m. M4 I: a- W. m
%_____09B9
^_____43EA, v( F" i: n/ {8 ?0 u5 ~6 J: [: J
&_____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 分享给朋友]