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

算法, 大学, 研究

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm
原始出处：http://www.3ast.com.cm

看不懂的直接绕过& E% ?; x3 \  }: x/ Z
加密前为:hwy123456
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
# Q# V% ?7 n# I. ^& Y
============================================
上面是当时自己校内的心情。现在已经解破出来了，分享给大家& e2 [' s% U; {- J4 A: }; Y8 ^' r
也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法* y" D0 }- e$ S1 E
以下是RSA算法文件" y  n% r8 V* K3 _1 z6 V3 Q! h

文件名RSA.ASP7 h. A, O( _, @" X1 E
===============================================9 j/ w# ]! ]2 Y+ W- R: x3 {- x# I
<%
Class clsRSA
Public PrivateKey
Public PublicKey # s3 d% X/ S7 t6 r# K8 @1 K8 E
Public Modulus ; ?9 |! s0 }/ |0 X9 e: w, a4 K
Public Function Crypt(pLngMessage, pLngKey)
On Error Resume Next
Dim lLngMod ( k% q1 S: v& P8 ^
Dim lLngResult 9 I' d' O# p. r/ U' o6 e, Z9 [. {
Dim lLngIndex 4 p- P' t4 a8 {5 R  f& w4 S( D- M
If pLngKey Mod 2 = 0 Then
lLngResult = 1
For lLngIndex = 1 To pLngKey / 2
lLngMod = (pLngMessage ^ 2) Mod Modulus
' Mod may error on key generation ( ^$ o9 J: C  C) s2 E, |# j
lLngResult = (lLngMod * lLngResult) Mod Modulus
If Err Then Exit Function
Next ! x/ y  Z3 H  j
Else / Q2 B; Z! k0 U
lLngResult = pLngMessage
For lLngIndex = 1 To pLngKey / 2 8 S8 e5 U) [, W, V* a- V: T# Z# g
lLngMod = (pLngMessage ^ 2) Mod Modulus
On Error Resume Next
' Mod may error on key generation 3 e" s5 B/ |& N1 i8 h
lLngResult = (lLngMod * lLngResult) Mod Modulus % W5 d& ]* V! O8 e7 _
If Err Then Exit Function 0 K6 b" z- G. @3 v
Next 0 ]/ v' ]8 w5 {/ F3 k
End If + \& M1 Q) Q4 h0 D, a  x
Crypt = lLngResult ) c- Q+ e' x1 U* k2 Y% s
End Function
3 G' W1 G8 u4 o% O: `5 d' u
Public Function Encode(ByVal pStrMessage) & n( X0 n5 p# }# R$ ~4 |2 x# z
Dim lLngIndex
Dim lLngMaxIndex
Dim lBytAscii
Dim lLngEncrypted
lLngMaxIndex = Len(pStrMessage) 4 k( G" I1 b1 O  d
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) # Q8 d2 C- n6 d" u8 L
Next 3 e: K, D4 N6 T7 H3 f
End Function , p9 A5 O* n" g
Public Function Decode(ByVal pStrMessage) % }9 Z* T9 h3 U, ]  t9 p
Dim lBytAscii # q" V  Q# l4 o' j+ T, k4 {
Dim lLngIndex
Dim lLngMaxIndex # N7 w5 D2 N; f+ C2 {
Dim lLngEncryptedData * b" ~) t6 N3 ?# h$ ~) X  F/ n
Decode = ""
lLngMaxIndex = Len(pStrMessage) $ }4 l* R5 f, w" r
For lLngIndex = 1 To lLngMaxIndex Step 4
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
lBytAscii = Crypt(lLngEncryptedData, PrivateKey)
Decode = Decode & Chr(lBytAscii)
Next % K, h: Z6 ^: \, H
End Function $ y: A% u/ A2 `/ y3 H+ l. f
Private Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
NumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength)
End Function
Private Function HexToNumber(ByRef pStrHex)
HexToNumber = CLng("&h" & pStrHex) 0 @0 ~# y& ]; P9 D# T5 I
End Function
End Class : |: e' w4 p! V1 k. A/ x
function Encryptstr(Message)
Dim LngKeyE % [/ n2 e; \+ `- o5 j
Dim LngKeyD - c+ ^4 Y/ s) P3 C1 {
Dim LngKeyN 1 B4 h$ L8 v. Z- U4 x
Dim StrMessage + e; q! E8 t+ h0 k* d& \  h* v
Dim ObjRSA 0 R8 c9 d, q; o7 a6 K
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893" - |  L, f8 F" t! e" u+ J' L
StrMessage = Message
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE * Z  m$ q7 t2 A. f3 W1 T& w1 r1 o
ObjRSA.Modulus = LngKeyN
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function  l+ l! t8 D6 h# C6 s
Function Decryptstr(Message)
Dim LngKeyE 8 H! \, J, O3 e* |( E" }- V
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA ; s* M3 f2 w# Y% i9 y5 L& g
LngKeyE = "32823"
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message   `/ s4 [$ h! ?2 Q& e
Set ObjRSA = New clsRSA " j& f5 a8 ]- A0 ^8 N4 f+ `
ObjRSA.PrivateKey =LngKeyD
ObjRSA.Modulus=LngKeyN 9 Q# M! q4 j! }: D
decryptstr=ObjRSA.Decode(StrMessage)
Set ObjRSA = Nothing * ~9 v) j/ V- v, X
end function
%>+ b9 t% x2 V; t1 p) h( r4 g
===============================================
0 K! Q1 m% u  k
还有一个用于测试这段代码的test.asp
有兴趣的自己搭建个IIS测试下$ ?( i! s: m) X+ c; \$ b
 3 L- e1 W* ]3 }( |" J) d
<%# ~9 C6 k: ^; c7 Q8 M; j
function Encryptstr(Message)
Dim LngKeyE ! b# F( f6 g1 p  h) C* ?" q1 L
Dim LngKeyD
Dim LngKeyN
Dim StrMessage
Dim ObjRSA + p, f8 [( G' A# n% C! b
LngKeyE = "32823" : ?1 i7 u; D+ Y: \) i
LngKeyD = "20643"
LngKeyN = "29893" : z# [  r! k9 L1 z& q( V
StrMessage = Message 3 U) K5 t4 |! A) X# @, v1 j
Set ObjRSA = New clsRSA
ObjRSA.PublicKey = LngKeyE
ObjRSA.Modulus = LngKeyN 5 K) I* V3 o; w6 E6 R
Encryptstr = ObjRSA.Encode(StrMessage)
Set ObjRSA = Nothing
end function " ]  v* ^) m3 I+ |; L# Y
function decryptstr(Message) / a( [. J: l- h) T" B
Dim LngKeyE " q- @4 p1 e+ H( V8 G
Dim LngKeyD ; f  l, w, \8 U: A5 ]$ ~: b. s
Dim LngKeyN
Dim StrMessage $ N  |0 Q( T  {# l! k) a* A. |* {
Dim ObjRSA 6 R0 a# P4 c" q
LngKeyE = "32823" 7 @' k. x- @: f& x
LngKeyD = "20643"
LngKeyN = "29893"
StrMessage = Message ! l5 C4 X, s2 ?+ D3 A
Set ObjRSA = New clsRSA % V! x" H+ P  e0 c) w
ObjRSA.PrivateKey =LngKeyD , J) }, }; v0 Z- l* r1 [
ObjRSA.Modulus=LngKeyN
decryptstr=ObjRSA.Decode(StrMessage) $ b. u& g9 @- c* {/ |* U4 m5 v) o
Set ObjRSA = Nothing
end function
dim last,first
first="!@#$%^&*()"
Response.Write "加密前为:"&first
last=Encryptstr(first)
Response.Write "加密后为"&last
Response.Write "解密后为" &decryptstr(last) * u  p4 C: g2 j" s
%> ==============================================
剩下的就是字符的对照表了
===================字符集================* W8 I- X5 |9 A6 |/ w3 T" V
1_____6EBB
2_____5C1F
3_____4D758 |& N: Z9 C( w+ _1 t( B
4_____26CC
5_____4F884 y+ U/ k+ P7 [  H5 \+ B  Z
6_____3F4E
7_____0A9D
8_____1A1C5 |; e) g+ n; J
9_____6D20/ [/ }% n& B& b% `0 D# P* b8 o# N0 d
0_____1089" r$ s1 ?; [+ j8 U( E: o" r( C; G
a_____0F3E
b_____3159
c_____35175 h( n6 I6 ?: g. ^0 ]7 l
d_____419C3 v" b! Q. R- k2 }
e_____615C
f_____556F! F8 ~5 J* V8 A( |+ d# L- n9 R
g_____2B7F
h_____0F9C! z! s7 E4 M0 n1 p9 s' o1 g, d
i_____00FA
j_____5A50
k_____2850
l_____3E7B
m_____71C5% e1 Q# l1 m- R
n_____1FC8! s% R  {4 f( D
o_____74C1+ T. G9 b# F( \  ~% M5 T
p_____5FB8
q_____6085
r_____3AC4
s_____2F50! g! F( _, _7 z9 Y8 O4 y7 x) O
t_____36F8
u_____70107 C) `  U3 ^2 y  a, i' E5 ~8 k
v_____0B42
w_____1C7A# D( q" _# @& J; l$ ?$ J, T* p% I
x_____16F81 t( k8 T0 Y7 u' k
y_____2EE7# p/ N3 Z* k7 u
z_____5CF3, M  p' ^  v; C7 R! u
!_____6233  F5 A% ^# S" N( E* [
@_____3A45* @3 N$ b7 a7 _$ ~0 V( i
#_____2291
$_____5D5C
%_____09B9: O" @. x4 x. f/ x! M1 E) t3 @
^_____43EA* k0 [0 r+ P9 z
&_____62B9% {/ L! l8 @0 C1 q2 H7 B
*_____63015 x. z! ?1 }( A1 ^( T
(_____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 分享给朋友]