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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm3 W1 t, j8 U0 i% A4 Q: ~2 `1 Q+ j
原始出处：http://www.3ast.com.cm
' v9 Q8 Z! R6 Y% @
看不懂的直接绕过
加密前为:hwy123456* c4 u! W4 q$ u& y( S1 \# l, b
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
) j# f) b, X9 m  ]5 o
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法( c* e/ @- i9 n  }4 F# E4 V) z
以下是RSA算法文件; I$ m/ F- C- ~1 G

文件名RSA.ASP
===============================================
<% : {0 K* u# s4 Q7 D; N% L- g' ~
Class clsRSA # a( `3 {7 K& D7 \7 x) r
Public PrivateKey 2 a! Y% X2 w1 F$ j
Public PublicKey
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex 8 {# K" h) K) R
If pLngKey Mod 2 = 0 Then 2 E, o4 w5 Z; K8 n
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 * [% I& K4 e* I( E) [3 P
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation 6 P" v8 e# [, f2 u* }
lLngResult = (lLngMod * lLngResult) Mod Modulus 0 i; |' P3 F; N' ^, F7 w( y9 C7 s
If Err Then Exit Function   p( O  y+ u  s
Next
Else ! E6 U& t/ C( \$ H- C' Y
lLngResult = pLngMessage 0 p7 p# u6 d' W$ `" J, p" H
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus * k4 R. e" V# A$ H( U. F/ x+ O
On Error Resume Next
' Mod may error on key generation   t. A: |0 X+ l, z
lLngResult = (lLngMod * lLngResult) Mod Modulus $ I  a4 @! `% U+ z8 N$ ^, c
If Err Then Exit Function 2 g8 H# v$ N* ~; }/ r2 D  ~$ t$ L
Next
End If " O3 F# s( M/ z$ @
Crypt = lLngResult - D! ^6 K8 `6 W2 S% Q# B  s
End Function
. i5 d7 A/ q3 \- A- E& ~0 l
Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted 3 G' t% {& e- L
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function $ U1 I1 t4 \3 @8 N7 d
For lLngIndex = 1 To lLngMaxIndex " u: X% Z  _0 I
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 8 t- K2 ?% W! k3 W' W7 {/ R
Public Function Decode(ByVal pStrMessage) % V% ^# C% e! P% u3 N  Y  _: w
Dim lBytAscii
Dim lLngIndex ' |9 G+ D2 k% p; F+ o: w. \) v0 T
Dim lLngMaxIndex + J  h& {( J! ?; U" q7 U
Dim lLngEncryptedData # z9 Z  \1 O1 s9 `/ R- ]# h
Decode = ""
lLngMaxIndex = Len(pStrMessage) ; w& T  u7 `. ]3 ]
For lLngIndex = 1 To lLngMaxIndex Step 4 . c9 P; l' j, [2 K; R
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey) $ e5 U* J7 ]; I
Decode = Decode & Chr(lBytAscii) * Y6 c' O6 D9 D+ {( I5 E
Next
End Function ) N4 R- }( t( U' B
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)   q3 B& Y$ ]. _% e
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 7 j# U- B0 [1 I* C& D
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 4 @5 f. |% {0 c0 m8 w
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" . Q/ D' L& U) B# s8 l$ N
LngKeyD = "20643" " M, U1 R" p% C$ U4 o1 i
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA % M! v, x4 V/ C* L6 {1 Q+ D
ObjRSA.PublicKey = LngKeyE 3 I" _5 o" E/ U. G
ObjRSA.Modulus = LngKeyN 6 E9 R8 G) j( ^" g. S6 k; w
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 2 }& E& F3 h# A' T( f' T# `" z
end function! p# }8 d( t$ t" v/ T) }% p) ]6 P4 x2 v
Function Decryptstr(Message)
Dim LngKeyE
Dim LngKeyD 6 F( v% C* _) Q
Dim LngKeyN
Dim StrMessage / [% R. P; [& C
Dim ObjRSA 3 ?4 V& U8 \/ i  v% e0 g% p
LngKeyE = "32823"
LngKeyD = "20643" ; c8 a( g  P; l7 k, A; M3 u% |
LngKeyN = "29893"
StrMessage = Message $ Y0 q; B6 i8 C2 {* M
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN ! R) B7 L7 b3 _& m5 d+ ^3 R
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function - j+ Q8 y  q7 |; _9 {7 q. H2 J
%>
===============================================

还有一个用于测试这段代码的test.asp5 B! {2 N1 S2 }2 [4 b
有兴趣的自己搭建个IIS测试下2 l7 M; k. y- y  v9 Z1 `, W

<%! n& N, G2 W* q" O' _( p$ h+ E
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN ; T5 K9 o- `1 P( q4 n1 Y: A: [9 Z
Dim StrMessage ' L& u, \% P% x* |2 I( _
Dim ObjRSA 3 p/ K) \0 |1 o, S, P. M( G
LngKeyE = "32823" / |6 q. u8 o$ R# D& N: S5 p  A& e! v
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message - U7 R$ u2 O7 Y8 y1 d2 b  b5 B
Set ObjRSA = New clsRSA ' ?6 D+ w2 C$ v. q! L; T- W2 s7 b
ObjRSA.PublicKey = LngKeyE 6 k9 c5 k* W1 n( n& i
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) 9 o# x+ r1 \6 O% n: ~
Set ObjRSA = Nothing
end function " p3 c3 }6 }& _% |* ]/ R
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage - P% j+ ]* V8 b' E
Dim ObjRSA   u' N* I2 F# A; W3 l
LngKeyE = "32823"   Z% n& e7 P5 p  k% Q
LngKeyD = "20643" $ [) g+ M0 s: r0 D' l' e( v; y
LngKeyN = "29893" 2 L9 i) i- U( f' g% ~" D& Y7 D
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) : z4 e9 i6 _* b( ^1 u1 x& j: u) ~$ k* G$ B
Set ObjRSA = Nothing 9 @! ?( d8 r  p- D6 v
end function * G; _6 `" B# }* a+ a$ ^
dim last,first ' S. d+ G1 c8 [& c. L: ~$ L
first="!@#$%^&*()"
Response.Write "加密前为:"&first , J) z% K; S1 U# v
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================8 X9 E4 u: G+ {& K2 v  d
剩下的就是字符的对照表了
===================字符集================
1_____6EBB5 `6 J0 B9 L8 Y
2_____5C1F
3_____4D75' n" v0 e' a$ D" @1 H1 v/ p$ S: u0 J
4_____26CC
5_____4F88
6_____3F4E
7_____0A9D
8_____1A1C8 v1 l, J* g. t+ i8 E" v/ b; v
9_____6D20
0_____1089; Z' g/ s' d" \( J, Y
a_____0F3E
b_____3159
c_____3517
d_____419C
e_____615C
f_____556F9 u( T5 ^, q* ]8 u/ ~0 ^# N
g_____2B7F
h_____0F9C5 Q& |1 A- _3 y9 m- T1 E- O
i_____00FA
j_____5A500 L, ~- e6 p1 A, U( H' A. g
k_____2850
l_____3E7B3 _: T0 V  g! U" n( {) G
m_____71C54 g6 i( a# ]( f" t
n_____1FC8
o_____74C1
p_____5FB8! r; z9 y& B$ }8 Y) ~2 t
q_____6085  i9 T4 w- G- Q9 p# @8 G
r_____3AC44 Y+ v# V* v3 _2 Y3 z
s_____2F50
t_____36F8
u_____7010
v_____0B42
w_____1C7A% ~. X2 {+ I7 `- N* P( ]
x_____16F8
y_____2EE7, ?4 G# l- E+ i
z_____5CF3
!_____6233
@_____3A453 z, T- U. a. k+ S) L& }; ^6 r
#_____2291
$_____5D5C# Z3 b: o( o' p; e9 J9 ~
%_____09B9% E/ X1 I; X- X
^_____43EA
&_____62B9/ `/ r' P% @# V6 k6 J8 r
*_____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 分享给朋友]