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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm/ P# O4 U$ d9 }. q/ K: i
原始出处：http://www.3ast.com.cm

看不懂的直接绕过2 c% k# I6 @( z4 |# W  {" d
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
/ E$ s& U8 w' N8 Z
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法! f2 B! P* ~6 n
以下是RSA算法文件
3 [% l1 a$ @- l' m
文件名RSA.ASP
===============================================
<%
Class clsRSA 0 X* b/ D3 X- i: K; Q
Public PrivateKey
Public PublicKey . ~- V- k$ _* G) a$ u' O4 M2 E
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod 3 p& T0 r0 _7 b: A
Dim lLngResult " w( g5 {/ h6 {9 s: s
Dim lLngIndex $ L6 ]+ N3 t2 \0 D* y( a
If pLngKey Mod 2 = 0 Then % {% N( u4 C5 s( D5 M0 v2 g
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
Else 1 S; ]9 U- j/ Q6 Z2 p; N
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 1 k0 w% Y  q% ^# B% z
' Mod may error on key generation ( o0 t# M* N, J+ `2 Q! _1 `7 e$ v
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function   _+ Q1 {, G: y& K% Z  N8 K7 x
Next & J! R/ v- P% w) i( d
End If
Crypt = lLngResult
End Function
' n! @! l5 v$ q/ i
Public Function Encode(ByVal pStrMessage) # c4 `* f3 q4 ]* R
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted 6 n8 M0 W' t$ {. f( t* Z
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function 4 o3 {! L/ G5 b6 |, i4 r
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) % V  }5 b( @* Q2 Z
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next 4 D$ m0 _. M5 S' _5 c7 E+ W
End Function 1 `) G) a1 k3 }. S6 \' a6 @
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex 6 z, ^  W' j: _7 Q/ Y- F, ^( Y
Dim lLngMaxIndex 0 B2 I) j" ~( D# I7 `7 Y0 B$ f
Dim lLngEncryptedData 1 M1 `3 u( v6 F3 s* A
Decode = ""
lLngMaxIndex = Len(pStrMessage) , I: T( o. d: h
For lLngIndex = 1 To lLngMaxIndex Step 4 0 X- }3 r# b7 [3 \$ ]$ T$ Y
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next / [0 W1 @# T' e5 E/ j' T
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength) $ C( O$ ^: d. J$ P1 {8 Q5 y1 H) C
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) ! v& \0 J! Y" K; H! L
End Function 7 T& f# w2 L+ N% `" Z+ N
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class ; q9 Q% _' B, B/ |4 [- d' q) B
function Encryptstr(Message) 1 V- A: h+ \; N: U/ t# Z7 M
Dim LngKeyE $ H) w: x$ w% l! O+ K: T  o
Dim LngKeyD . l& M: ]) }, A# l
Dim LngKeyN 9 w% A5 Q. r1 g7 v* C
Dim StrMessage
Dim ObjRSA " k3 j5 |/ O8 s7 o6 n& b) [2 Z
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA : x# i) k2 b: t( {& D; A
ObjRSA.PublicKey = LngKeyE 1 x- ?8 D. z+ P0 J7 E" L
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) " \* v2 K3 u7 c7 w
Set ObjRSA = Nothing . ^5 D" z8 C1 p+ m( R
end function
Function Decryptstr(Message) $ h0 k+ C) m5 S$ ~# \8 ~3 {
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN 7 t# S/ @4 Z6 H7 O1 S# R
Dim StrMessage
Dim ObjRSA 2 Q9 r- _1 ?1 p6 h
LngKeyE = "32823" * ]4 M$ s2 G, i! n; Q6 e
LngKeyD = "20643"
LngKeyN = "29893" . k6 b" K# w+ c+ y' S, u3 i) [
StrMessage = Message % {  N4 [3 r" e0 J
Set ObjRSA = New clsRSA 5 w: K$ ]3 s/ S, A
ObjRSA.PrivateKey =LngKeyD ( U7 P8 O! C" [' J
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing ! X( q: f2 `, l  C% r1 Q
end function ( z0 `- o& u) Q2 \+ A% h: t
%>
===============================================
. d+ S8 u" y$ ^' P1 l1 h0 _
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下4 E1 x) {# V! v& q
 % k2 l; B8 ~) ~: L( [
<%4 i1 b& D" L- u* R+ G( T# l
function Encryptstr(Message) " D4 W2 C0 u6 l7 V
Dim LngKeyE 0 v: W6 S% t9 ^: j$ U
Dim LngKeyD
Dim LngKeyN 7 M) e6 q' {0 f' O
Dim StrMessage # l1 h( r1 U) E) Z; _' ~# Y
Dim ObjRSA * [7 j- ?( B) \) x- e% z6 z# t
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" - F. c+ N' L% R; }/ z' s
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 3 N7 A1 S+ Q- K
Encryptstr = ObjRSA.Encode(StrMessage) * Y3 ^& e/ O: a2 l! x
Set ObjRSA = Nothing 7 _: B" ^& }; G$ H
end function
function decryptstr(Message) ( J( r8 i/ J6 m
Dim LngKeyE # t6 B6 |$ h; s& |# X' R5 g! Y' V
Dim LngKeyD / M, x6 [/ _3 q4 ?- C0 {
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 2 D; B: l1 z1 w
LngKeyN = "29893" / }7 j8 r0 S# R( ~% R1 s
StrMessage = Message ( R3 x, D$ z5 l4 [6 ?) k
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing & K9 a4 ^& N. M7 o
end function 7 @1 r; z5 u0 D2 c) X
dim last,first
first="!@#$%^&*()" 3 N, ?  i4 T5 R6 [3 ^8 ^1 A% L
Response.Write "加密前为:"&first ! m* N+ t$ J8 ]
last=Encryptstr(first) 9 T# y- K3 N& M+ s/ ]: f
Response.Write "加密后为"&last   n8 C' S0 e5 ?  r7 Z7 y7 X+ A
Response.Write "解密后为" &decryptstr(last) 9 ?! N5 `2 O' \* C* }. g
%> ==============================================( ?" z2 {. x4 _$ S6 v: U
剩下的就是字符的对照表了
===================字符集================* y) [3 E* H% d( ?6 K0 T9 S, f
1_____6EBB4 Z9 u' ]! ~: C6 K2 z) C; ^
2_____5C1F# d4 h- F6 q) p
3_____4D750 ~% a: M& X/ X# a# D9 Y
4_____26CC
5_____4F88
6_____3F4E# n7 U: C1 \! @4 S! z+ ~/ G* l
7_____0A9D* g# Y; p7 n; f  o. ]9 V& Y9 n( Q$ n
8_____1A1C, s6 E3 _# x5 V" A4 ^/ a
9_____6D20
0_____10898 L; g) h) F. I$ j# W. Q
a_____0F3E
b_____31593 B' C- _$ i) d
c_____35176 y, ]; j5 m+ r3 t
d_____419C
e_____615C1 m. B+ z8 r8 A8 j6 D, K* W
f_____556F: q( d8 F( j! n3 s7 @
g_____2B7F( |: y0 T* G; A) O
h_____0F9C
i_____00FA
j_____5A50
k_____28501 y( A% _/ J$ `
l_____3E7B
m_____71C51 e) B# y) P( j
n_____1FC8
o_____74C1
p_____5FB8
q_____6085
r_____3AC4
s_____2F50# l* a0 |- k7 I
t_____36F8) q4 O( K; E; W
u_____7010
v_____0B42
w_____1C7A$ T" T4 S$ t* N2 _& o4 U/ d
x_____16F8
y_____2EE7) J$ I3 Z. [; |% Z4 Y) A( @
z_____5CF3
!_____6233* v. q3 h; C! x8 d5 {
@_____3A45
#_____22918 Q! M# u2 s! `! d7 U0 l8 w$ q
$_____5D5C0 I/ \% g$ T* g3 Z  L2 r# s
%_____09B9$ ]0 b+ h3 f( n3 G! \* U; s* Y$ E
^_____43EA
&_____62B9
*_____6301
(_____4659- N, C' _* Z1 M* M* A/ r4 z# D1 t
)_____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 分享给朋友]