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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm3 Y! H8 G9 H# H+ V

看不懂的直接绕过; E7 X! T# I4 t% z
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E8 O6 W% B9 d+ l1 R' Z

============================================( ~5 m$ B* Z% X0 \' B
上面是当时自己校内的心情。现在已经解破出来了，分享给大家
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP3 Q2 ]3 N! n+ q6 ?2 f
===============================================) O4 D5 h8 s) @# p. Q
<%   Y. d' M7 c6 v
Class clsRSA 5 P" H. e+ U1 }
Public PrivateKey / I' M+ \' }  V8 p
Public PublicKey # K# q! Q0 c. D5 p
Public Modulus
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod ) D6 t0 b+ A" B$ l
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1 3 _( k  P9 j8 [9 }" i
For lLngIndex = 1 To pLngKey / 2 # S+ r: H1 C' a: Z5 R6 R
lLngMod = (pLngMessage ^ 2) Mod Modulus ! h1 s6 u! C: m8 q& P+ _( w
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 8 D) j# O1 W: L1 [5 G
Else ; F) |- [1 D  X5 w' r% m
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 ) C' L0 ^, _- e2 _
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next / N  ]- `% w; }8 H: F. w6 o7 ?3 X
' Mod may error on key generation ! A( g8 }# ~9 t' ~. [
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next 5 t1 d( p# s' R7 \! b0 x& A
End If 7 B3 \* j& \0 I; M. u* o8 h* S
Crypt = lLngResult
End Function' V& x: e6 e- @, f+ i& T

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex
Dim lLngMaxIndex 4 X7 |, x8 U. m: r, w
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function   B2 s+ T) l) R% g/ V7 e, E
For lLngIndex = 1 To lLngMaxIndex 6 e% Y3 {7 D9 v  I: |. i4 Y' ?
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey) 9 d9 h5 w8 G$ _) E
Encode = Encode & NumberToHex(lLngEncrypted, 4)
Next
End Function 1 y; `( A/ j5 Y
Public Function Decode(ByVal pStrMessage) / y& W5 x2 S: f1 m. @9 |- u  l5 ?
Dim lBytAscii . T* B" W  c1 h4 }4 p/ B
Dim lLngIndex
Dim lLngMaxIndex
Dim lLngEncryptedData
Decode = "" - b+ M8 G! i- y) M& m
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next 9 C# G$ d& |( s8 ]; h
End Function ' C$ Z% t+ p1 \: w: m
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 5 [$ L4 J$ L4 m* \
End Function ( g0 f2 J+ J8 X0 Z+ g, s( s
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class # E. X% ?# M" N% K6 C# {5 l
function Encryptstr(Message)
Dim LngKeyE & @3 L# {2 p) S
Dim LngKeyD   e2 ^$ P$ G6 ]7 ^
Dim LngKeyN ' v( F6 o0 O8 U
Dim StrMessage , q' E, O4 d% ~- \
Dim ObjRSA 9 H# e- _' C/ d3 R
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE " N/ h3 A& y3 G
ObjRSA.Modulus = LngKeyN 0 Z  _8 l/ j+ o2 C9 f; x
Encryptstr = ObjRSA.Encode(StrMessage) ) \! k4 |0 r! q* ?& Y* [
Set ObjRSA = Nothing
end function5 v* ?6 J5 j" }" K! R" R9 l
Function Decryptstr(Message) $ o3 ?5 t5 L0 P$ f" U9 {+ S- @
Dim LngKeyE ) J: y) {$ J* P6 T& B
Dim LngKeyD 9 ]$ D( S( t+ `! ^" q
Dim LngKeyN
Dim StrMessage / S1 U4 L0 O% N! L) i
Dim ObjRSA 9 L" ]$ `0 ?1 W
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" 9 ?; ~: q3 M& J  z2 s* f0 [  w
StrMessage = Message 2 m  l1 t& E' A7 \. V
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) % h7 H" Y6 ?7 _1 Q1 M
Set ObjRSA = Nothing
end function
%>
===============================================/ K0 O- F1 f3 u, l

还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下

<%) `* b: G/ Q- c# i8 f% W% D' E
function Encryptstr(Message) , T% {% x0 g+ R* S8 i
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage 7 m. I9 c! u/ e0 E5 j8 C1 m
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"   R( G& q, W) m
LngKeyN = "29893"
StrMessage = Message $ L: \2 [$ ?8 ]- C6 }  I
Set ObjRSA = New clsRSA ; d  O. R) ~" s" h
ObjRSA.PublicKey = LngKeyE ; X* j+ o4 i4 C1 O9 r2 N1 D
ObjRSA.Modulus = LngKeyN ' c' b' f1 z; N1 P
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 1 N  n+ c3 c# i' K3 C' C8 g+ |; M
end function
function decryptstr(Message) 9 u4 [8 P+ Q6 Y2 A$ n' x8 }
Dim LngKeyE 8 i: s) U# o5 I& F
Dim LngKeyD
Dim LngKeyN 3 m* Z" A- v' P) @: d) k  r6 d) r
Dim StrMessage 6 A* {- @* N' @, a4 _: D1 t
Dim ObjRSA . l- k6 v: j0 m8 }
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ; O: m8 X7 K0 ?3 G: }$ ]4 Z& S
Set ObjRSA = New clsRSA # j3 p7 g$ O9 I+ Y
ObjRSA.PrivateKey =LngKeyD . u. B' f# b; W, J7 l  F: Z
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) . R5 i, ]. }5 ~/ p' s1 K
Set ObjRSA = Nothing % t9 z3 _6 d: S: ~
end function # _1 ^, J  m& U$ I; \; r
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first) ( R: v1 ^0 n8 w, \- O! Y; r) k
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================& m# \8 {% S; d  T; e( L7 \- P
剩下的就是字符的对照表了
===================字符集================
1_____6EBB- T/ S# v1 T. s7 h. t4 k
2_____5C1F+ U8 W8 D3 _& \& H% |
3_____4D75( T" A! s5 `5 M! _2 x  }. M
4_____26CC
5_____4F88: m/ h7 t7 N8 M( j0 ^
6_____3F4E
7_____0A9D
8_____1A1C' E6 o/ `$ o. z+ u
9_____6D20
0_____1089
a_____0F3E
b_____3159) h7 ?& r7 D" b1 Z8 M5 @$ Z( f$ m' u
c_____3517. `% }1 e4 f! w  @; k
d_____419C
e_____615C/ J! F% e5 J/ T  J( {
f_____556F
g_____2B7F( {( A! m5 W; s/ d
h_____0F9C; L" h  _2 t  _; Y  ~0 l' L9 t
i_____00FA1 e9 c8 u) V/ \$ B6 m' ~
j_____5A50: S6 u( B; I0 l9 L. k# c/ p
k_____2850
l_____3E7B
m_____71C5) i5 p  M. e1 w/ H* M# E
n_____1FC8" r  q! r; ~0 \' W
o_____74C1' Y% \% k* _' W! S, g  I6 W9 r
p_____5FB8
q_____6085
r_____3AC4
s_____2F50
t_____36F8
u_____70109 ^. \& @) Y, y0 D9 @
v_____0B42$ _& k8 r- @+ H5 l+ T/ x
w_____1C7A
x_____16F8
y_____2EE7
z_____5CF37 A+ z, u' G; F% R. B% A9 h
!_____6233* z- H! X" W) @% o7 Y$ V
@_____3A45% m5 q6 d9 E; V
#_____2291
$_____5D5C
%_____09B9
^_____43EA" V9 r& A! `9 J/ @, k
&_____62B9& B- T; ?* f8 b8 \, z$ p1 L
*_____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 分享给朋友]