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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm6 p5 V3 i" v8 O5 F  S( \
原始出处：http://www.3ast.com.cm

看不懂的直接绕过
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E0 @8 n, {$ e+ P9 V- l4 X' L
" G! Z' P. |) I2 C; \
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家$ [% g6 D) G) Y+ F3 N* e
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
以下是RSA算法文件

文件名RSA.ASP1 i% H$ J" F3 u: I, ~! ]2 ^8 W
===============================================  q; o' Z; D: w4 `$ h
<% 7 n2 ~" c0 C' p1 z1 y
Class clsRSA
Public PrivateKey
Public PublicKey
Public Modulus * o3 M2 O; n$ u9 v
Public Function Crypt(pLngMessage, pLngKey) 6 {  n; [! q1 u* [# [" G
On Error Resume Next
Dim lLngMod 5 v, D/ q1 W2 R! _
Dim lLngResult
Dim lLngIndex 8 ]3 q! [& ~9 _# W8 X( S: S; g/ z
If pLngKey Mod 2 = 0 Then
lLngResult = 1 . C' ]" x" h: \: L' i1 O
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus 3 u1 K; g* r: t; j9 W9 A
' Mod may error on key generation
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function - A: R& {. _2 d2 d  J
Next   n3 F7 b5 v' r  A" P) x/ m9 w
Else ; k: I; Q; g' s
lLngResult = pLngMessage ! i( m/ F7 T( ?% U! T" U1 x8 \8 T. J: Z
For lLngIndex = 1 To pLngKey / 2 1 Q  X% z# D7 V4 W6 \' J& C
lLngMod = (pLngMessage ^ 2) Mod Modulus 5 j1 `0 S3 r0 x+ e- L3 A8 h
On Error Resume Next $ V  x8 U' V3 Y; W
' Mod may error on key generation * z; v7 u5 t" }& o3 v0 p8 {- e: v
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next
End If 6 J! Z2 j- D+ k) b; u
Crypt = lLngResult
End Function- w/ o% {1 d0 U* F; ]; E( p" _

Public Function Encode(ByVal pStrMessage)
Dim lLngIndex , }4 K7 C) H% z
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted # ^- G; y1 E4 [0 p: x6 {8 ^2 L
lLngMaxIndex = Len(pStrMessage) " G# x1 f2 D. s; d* L$ y3 h1 W
If lLngMaxIndex = 0 Then Exit Function
For lLngIndex = 1 To lLngMaxIndex
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1)) ! k& i: A# ^: I; l5 s# S9 N, k+ y
lLngEncrypted = Crypt(lBytAscii, PublicKey) ' y$ f6 q3 X7 u0 I4 r+ G
Encode = Encode & NumberToHex(lLngEncrypted, 4) ; R. l/ F+ J: \' J
Next & J0 @$ v' w% O6 G9 `- r
End Function
Public Function Decode(ByVal pStrMessage)
Dim lBytAscii
Dim lLngIndex ; G: F3 k6 v; y2 O* [% Q1 }5 F" E
Dim lLngMaxIndex ! H0 a" X( C" j9 g
Dim lLngEncryptedData
Decode = "" 3 H& R! P$ ?* g" p" \' Y5 h, K
lLngMaxIndex = Len(pStrMessage)
For lLngIndex = 1 To lLngMaxIndex Step 4 ( i. U# T( q+ j: w0 \4 p; D) f5 Q
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next
End Function # A6 X  ]& M2 F) O& I
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex) 3 F/ G: b& }( ~! g
HexToNumber = CLng("&h" & pStrHex)
End Function
End Class 5 A6 }0 F2 \- N* Z6 k0 c1 w& C7 R0 N4 T
function Encryptstr(Message) 8 B5 _/ E" V3 ~- K1 a2 j) E- C. \
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN / J0 V# X& t3 _) i& C
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823"
LngKeyD = "20643" ' S3 r1 @: H2 n" s% o* q) Z% r3 Z
LngKeyN = "29893" : j& t) W/ n% _5 w$ ~! d9 u
StrMessage = Message , R6 s1 O+ N: w3 @# @9 E) @9 r
Set ObjRSA = New clsRSA 1 R% J- s" b2 t" E: T+ Y
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN & Q5 o- Z8 h5 \* y* N+ i' K' S5 F) r. a
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing 0 t7 @" v; ?$ C$ A+ h
end function
Function Decryptstr(Message)
Dim LngKeyE 2 l' x  @" l% y* _
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA   q2 I; M2 h8 |, e# ?
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message + _( j4 O" f% n8 {( C
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN , g! J8 I. c# }5 _" J
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing 5 \$ F6 r) v2 o' ~$ b! ?
end function
%>
===============================================' n+ B. q. e; f- l
  \9 \3 K" }( R' X- z
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下7 W* h: u6 l8 t

<%
function Encryptstr(Message)
Dim LngKeyE
Dim LngKeyD
Dim LngKeyN $ l- k1 e  u% f( \2 m7 c
Dim StrMessage - d  b; h5 b( F& w8 J
Dim ObjRSA ( R: Y7 Z0 T/ m+ ]
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ( y4 z5 u4 Z, i5 u
Set ObjRSA = New clsRSA . V6 E# @  E# N: K
ObjRSA.PublicKey = LngKeyE 8 J7 S: B- c9 q7 b1 M% D8 A
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage) ' I3 a$ ?" G* c4 R/ ^2 s
Set ObjRSA = Nothing : ~  W7 {& ?; T, l# D: f
end function
function decryptstr(Message) + a: @9 _, i5 x6 ~2 \/ o4 h
Dim LngKeyE 1 |+ V; i+ M  A
Dim LngKeyD 4 y( i; Z4 S& ~! \8 M# W
Dim LngKeyN + @+ g0 R( |9 Q1 y" V$ X
Dim StrMessage
Dim ObjRSA
LngKeyE = "32823" 6 ]" N# [# H) z' Y: c8 b7 t) F6 T2 R$ B/ B
LngKeyD = "20643" : d2 O1 J* }8 y4 Q2 v1 `( T! k8 w
LngKeyN = "29893" % ^3 Q4 p5 r5 U& j- m
StrMessage = Message - ]! n0 q8 u8 \3 f+ K) T/ Z, d
Set ObjRSA = New clsRSA
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing
end function 7 m, c( Q) U0 Q4 z& N3 m
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first 4 s, g. x& A! s/ b' y. J  y
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last)
%> ==============================================: P$ T" s7 }' U& S8 t
剩下的就是字符的对照表了
===================字符集================
1_____6EBB, b1 R& y9 d' b7 o! c
2_____5C1F
3_____4D759 A& `, O) z3 ]2 o0 R* T" l7 `+ [# {
4_____26CC0 ?; o. s% R, _4 o0 S  ?# T# ]
5_____4F88
6_____3F4E
7_____0A9D, K4 O1 F( v- h# U6 c
8_____1A1C3 v$ S+ |& U, ?4 k5 l- K+ L
9_____6D20$ ?+ Y2 F2 _+ j3 ?0 ?3 g% J
0_____10898 q( [) M- d4 k0 V" o
a_____0F3E0 f/ ~# Y2 |4 ~+ f$ r
b_____3159
c_____3517. e5 m* ^& _( S5 L' T3 N
d_____419C
e_____615C
f_____556F
g_____2B7F% d' N1 w+ }- J& p) \
h_____0F9C3 p( z# s+ [/ [, h5 g7 \
i_____00FA. E3 F9 ]. x6 ^4 v* r
j_____5A50
k_____2850
l_____3E7B
m_____71C57 X6 V% R8 ^& f6 V7 k
n_____1FC8
o_____74C1
p_____5FB8
q_____60850 Z6 Z1 u* e* M% S+ `3 [, {, g9 K+ [
r_____3AC4
s_____2F50- n+ C( f2 H1 b6 B
t_____36F8
u_____7010! y, J1 H$ ]7 r- m" g
v_____0B42- \; j0 @8 G  X7 M- N
w_____1C7A
x_____16F8
y_____2EE75 T4 |8 A/ g9 p0 j0 d! C4 w
z_____5CF3
!_____6233
@_____3A45
#_____2291- K! u8 Z5 d7 m, H& [. o1 O* F1 I  m
$_____5D5C
%_____09B9
^_____43EA
&_____62B9* d" ?. u3 q$ D* T4 E7 [
*_____6301! p) W% x  K2 t$ E# `6 Y) @) y+ w
(_____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 分享给朋友]