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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm. E  Y& W) `: o

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
8 u' q: g* u) r' f/ R- |
============================================& Y- [1 \$ g% k# O+ X( f4 G' ^
上面是当时自己校内的心情。现在已经解破出来了，分享给大家7 H, v9 }' k, E& S- N
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP& n$ G8 I5 }, y- c0 E, }
===============================================' O5 _3 P+ B, M- w2 {7 ~8 ]; Y
<%
Class clsRSA ) M7 O% o/ K+ x0 V2 ^, B
Public PrivateKey
Public PublicKey + q( Y5 a" w2 }- l
Public Modulus - s2 w* t: \% H8 x/ j' ^" {, _
Public Function Crypt(pLngMessage, pLngKey) . z/ Z3 V" X. r  {; T% {" h+ @
On Error Resume Next
Dim lLngMod
Dim lLngResult
Dim lLngIndex
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2 8 i* q0 _7 }# O- G
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next / O7 _  a. S; D# o) D7 r4 X; F
Else 6 g4 [$ @  C# R- }7 M+ o
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next 3 C7 Z2 ~2 b/ E
' Mod may error on key generation ( M5 d; }# O( U; f6 T& X
lLngResult = (lLngMod * lLngResult) Mod Modulus 4 [( y  G& e; L! R* g
If Err Then Exit Function , b9 j2 }) S8 G% B+ `; g' ]
Next 5 o9 Y/ R2 ~/ u( I
End If , c+ [1 |" T" q; _
Crypt = lLngResult & r, R( d6 |: B) g
End Function3 s8 G. P" J7 l( i3 ?0 T% y

Public Function Encode(ByVal pStrMessage) ; A3 R/ M$ ^' G
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii 2 m$ U5 U% B3 T/ d5 x' a5 k! Q
Dim lLngEncrypted   Y: z3 R& V, B, e: [  k" q
lLngMaxIndex = Len(pStrMessage)
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
lLngEncrypted = Crypt(lBytAscii, PublicKey)
Encode = Encode & NumberToHex(lLngEncrypted, 4) # [4 F( S* D! J8 g
Next " k( `+ p/ a3 G$ V% r! K
End Function
Public Function Decode(ByVal pStrMessage) # W! C% b- T2 ]& x* ^0 H" s
Dim lBytAscii
Dim lLngIndex - N# r/ b9 {  ^  r* l
Dim lLngMaxIndex ; ]1 L( G# |& k% k$ |
Dim lLngEncryptedData
Decode = "" 2 `4 k, F% |4 w6 b4 c4 ^% B
lLngMaxIndex = Len(pStrMessage) , ~9 _! \  e# N0 C
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4)) . {/ d  w2 x" j7 d+ P" E, Z
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) 2 @1 I0 R/ n9 E) @* N
End Function * |7 V, a- j" E- M: B6 Y
Private Function HexToNumber(ByRef pStrHex) 1 l( z  l+ k- i- p" v6 V% h, U7 `
HexToNumber = CLng("&h" & pStrHex)
End Function * d& z0 b6 O( B8 l9 F
End Class
function Encryptstr(Message)
Dim LngKeyE - D$ R( a3 ]5 t
Dim LngKeyD 5 y( R6 Z9 Y8 N- }" U$ J  Q
Dim LngKeyN
Dim StrMessage
Dim ObjRSA 9 v3 s+ Z# R! f1 |& x
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" $ i5 @' m9 v+ g/ C% D# W' g4 n  M  ~
StrMessage = Message / E8 z3 s% \3 d
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE ' o2 I0 {# M, I6 H# ~! y
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ) V8 G( {# d6 c3 A$ n
Set ObjRSA = Nothing
end function
Function Decryptstr(Message) 4 P  D) U$ i! z4 y
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN
Dim StrMessage ; K! V" e8 N: T, [9 F9 T
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" 3 N! v" s. r1 i7 l+ R7 c. ?2 V
LngKeyN = "29893" 3 J$ ?. m+ H9 G" j% o
StrMessage = Message % m$ `; k) o7 n$ v
Set ObjRSA = New clsRSA 7 `; E" Y9 _3 a8 E
ObjRSA.PrivateKey =LngKeyD & k+ r: D! v) G1 {- g
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing * e' i/ L' F! G; w
end function : T, ?, R8 S8 [2 I! K0 h
%>
===============================================
% I5 Q' f( y- ?. J0 Y- r
还有一个用于测试这段代码的test.asp( w- r& E) r: ?: h; M4 t
有兴趣的自己搭建个IIS测试下8 ]# t8 K1 q0 K$ N. ]) X

<%* Q# ]. q( {& {, M# n  a: F
function Encryptstr(Message)
Dim LngKeyE 8 X" s8 S1 m5 P) ]
Dim LngKeyD 9 h0 i6 u# x- t( ^
Dim LngKeyN
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ! O: ^8 `+ Z- v) {; E# w/ F! i) f3 G
Set ObjRSA = New clsRSA : C* I, J* R7 c( |
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ' ]0 E6 h# j; {3 I
Set ObjRSA = Nothing
end function " Z# }2 B5 o) [) |7 j* p
function decryptstr(Message)
Dim LngKeyE
Dim LngKeyD # N; R6 b& D" V' c, A/ F/ `
Dim LngKeyN
Dim StrMessage % @# u# f$ E. n4 ^# _3 L) q; q1 w
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ; ]  M# Y1 P/ N0 i0 u5 B) V
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD & W. [3 B3 M$ p+ E- o; ^# I
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) ' D7 ?% \! d, _- t5 J% R! r
Set ObjRSA = Nothing 0 K! U. @, ?  I# f$ Z1 q& Q9 `( u
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) 8 L( m* a6 |2 D% u0 ~
%> ==============================================. Y. u# c1 ~% q. y
剩下的就是字符的对照表了
===================字符集================
1_____6EBB
2_____5C1F
3_____4D75
4_____26CC
5_____4F88
6_____3F4E5 k3 m5 R0 ^% v8 l
7_____0A9D& e3 E# H! H! u. W/ i1 {% g0 j
8_____1A1C/ K$ n. }; X3 ]1 _, e3 _; C
9_____6D209 y# V8 F+ n2 i2 F, B' D2 j
0_____1089- h/ ~8 t9 Y. k, m0 [0 W1 y
a_____0F3E
b_____3159# e* o7 a  l$ S6 B
c_____3517& }' }% D# x0 A) n) S6 p5 g/ w5 j
d_____419C
e_____615C
f_____556F
g_____2B7F& c; M  l/ @, L4 z5 J" h
h_____0F9C
i_____00FA7 W% [0 `: c! j7 p
j_____5A50
k_____2850) X! j) o3 D+ G' u2 u3 Y. B
l_____3E7B. W8 K+ a( j" p+ {4 @/ o
m_____71C5
n_____1FC8) N: S; n! ?0 g5 E% t9 f6 v
o_____74C1
p_____5FB8
q_____60859 b! O/ N9 x& k: y/ _4 z3 W# `
r_____3AC43 V. R- K+ x$ {$ j  s
s_____2F50
t_____36F8
u_____70105 n" l: n1 e$ H$ J! u3 w2 k
v_____0B429 g/ e; C# o1 `1 a5 R1 ]7 W, b
w_____1C7A
x_____16F8
y_____2EE7- K. p1 ^% F) D5 @* i5 I
z_____5CF32 x+ Q) S! M7 `" n: A8 E, b
!_____6233
@_____3A45
#_____2291
$_____5D5C
%_____09B98 ^0 ]* {; U4 ]
^_____43EA
&_____62B9' Q( ?) z  }/ S
*_____6301
(_____4659, L9 w$ e' ^$ E- u5 L1 O# i
)_____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 分享给朋友]