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

柔肠寸断

原创作者：柔肠寸断 [3.A.S.T]  http://www.3ast.com.cm- H2 p  M# H9 {$ O6 P. _% r
原始出处：http://www.3ast.com.cm
4 A4 Y7 w3 t+ k8 t
/ u  F9 y8 ]6 V8 Z3 P! Z  M/ U0 K看不懂的直接绕过
" \) T$ a- c+ Y" W2 o! [6 u8 `加密前为:hwy123456. |' T1 s5 ~2 w) `& j! T. h
加密后为0F9C1C7A2EE76EBB5C1F4D7526CC4F883F4E
7 ~2 W0 D% |. O1 p$ l# I' e8 E+ r- p' ~1 L& K5 @; g- n# Q" s7 W
============================================
4 @( U7 N. B* ~9 O2 p1 T2 a上面是当时自己校内的心情。现在已经解破出来了，分享给大家
$ c; J+ O8 x1 b0 e# L也就不隐瞒大家什么了，这个是国内某知名大学的后台加密算法
4 r9 Z5 `* ?0 E" C以下是RSA算法文件9 }3 i0 ?6 b  X; p# `) |' P2 B# c- n
9 W) J. o2 Q7 `6 O
文件名RSA.ASP* m1 N- B# V# e5 ?: {
===============================================  G" y8 M6 h7 S3 [( s: b  c( r5 v
<%
( A' F- H8 F3 m, q7 G* T# h$ K. BClass clsRSA $ u) |* N2 ^4 U  J& E- r  W
Public PrivateKey
5 [' h2 r& I7 n8 J  e* [0 m6 ZPublic PublicKey 1 O" B* p* S! x4 b$ U- t
Public Modulus
* f% e5 m- b( [5 z! t. tPublic Function Crypt(pLngMessage, pLngKey)
- Y. S+ S% t/ H) c# }, r+ L: oOn Error Resume Next 3 Q. B0 @+ |( A" {: m# c
Dim lLngMod
8 E, D  b! @0 j8 VDim lLngResult
5 ~4 u1 ~, {- O* `Dim lLngIndex / N9 V' d' L6 x# O9 k) o
If pLngKey Mod 2 = 0 Then
+ B% M8 h4 {  W% b% Y7 xlLngResult = 1 1 S" I* `) p' w1 c+ N" X
For lLngIndex = 1 To pLngKey / 2
6 S% g5 A) F1 ulLngMod = (pLngMessage ^ 2) Mod Modulus   @) ]' s8 K. m# V8 {
' Mod may error on key generation 2 o1 ]) A1 f) F/ Z/ P, P
lLngResult = (lLngMod * lLngResult) Mod Modulus
* ~0 f' X8 a0 b) UIf Err Then Exit Function , |/ Z8 d8 z4 h  U% O
Next
* V1 G6 ^9 ~4 c9 f8 ^Else
- v& @4 x/ B, j; S4 C! NlLngResult = pLngMessage
1 o0 I  w% P9 I8 W0 IFor lLngIndex = 1 To pLngKey / 2 ! y2 J; m) `: }+ k* I
lLngMod = (pLngMessage ^ 2) Mod Modulus & s& W8 p0 `+ a, G
On Error Resume Next % D) }9 o7 g- b. D; E+ c
' Mod may error on key generation
- J7 D( y- T; u% @- _$ llLngResult = (lLngMod * lLngResult) Mod Modulus
' @4 M" D2 r! `+ Y' hIf Err Then Exit Function * M: S, @  M7 h2 ^4 m
Next $ d2 m* s( L. y6 z0 _
End If
, J+ Z; w! r4 K- O9 MCrypt = lLngResult 4 s2 _# z- N! S0 u0 c8 s
End Function
. T# w+ k' p& z, Z4 o% q* X/ P7 q; z' P( L  o9 X: V$ J
Public Function Encode(ByVal pStrMessage) : b3 c9 s3 k( M0 d- a( q/ `: t
Dim lLngIndex 9 R1 Y7 U0 f* B, J) f
Dim lLngMaxIndex
# G" a0 U! o9 B" _3 ?$ f3 K: nDim lBytAscii
  |' {7 N7 z: L6 |Dim lLngEncrypted 7 @( V' o! _! `+ h
lLngMaxIndex = Len(pStrMessage)
) n! U, b2 d! OIf lLngMaxIndex = 0 Then Exit Function
- m. y& I3 z& E/ X" j7 i8 JFor lLngIndex = 1 To lLngMaxIndex   R3 U) }) x; J4 Y0 Z
lBytAscii = Asc(Mid(pStrMessage, lLngIndex, 1))
3 N. R7 ?2 r( b( UlLngEncrypted = Crypt(lBytAscii, PublicKey) 9 N  D, K7 I! }
Encode = Encode & NumberToHex(lLngEncrypted, 4) 8 @/ ^7 q+ U; Z; e! P0 n5 k/ u
Next
4 `, M' B1 u/ \; J: N6 JEnd Function 9 U/ L% h( e( F- e; ]1 t
Public Function Decode(ByVal pStrMessage) . c/ |6 J* q' @+ h3 Q7 Y. k
Dim lBytAscii
) A7 t" Q  C5 j& n5 W0 zDim lLngIndex
2 ^  W& l+ Q) oDim lLngMaxIndex 9 r+ F' ?, ?  n! m/ S' {: X3 t) ~- L
Dim lLngEncryptedData 9 L  {* x& M7 W5 d5 Z9 R& t# a
Decode = ""
2 ~5 X" O. q: a- F5 n% ZlLngMaxIndex = Len(pStrMessage) . _( z4 J  \$ W
For lLngIndex = 1 To lLngMaxIndex Step 4 ' k- k# N. B" T9 P2 Q  U" p5 o9 q
lLngEncryptedData = HexToNumber(Mid(pStrMessage, lLngIndex, 4))
* \* j) p* X! S2 R6 c( ClBytAscii = Crypt(lLngEncryptedData, PrivateKey)
; y" |/ Y: Z% uDecode = Decode & Chr(lBytAscii) - M' b1 m6 a" B5 L- f  g! [
Next ; H% B+ m4 @- }3 f7 y+ v
End Function
1 W& X: C# N7 y, z3 CPrivate Function NumberToHex(ByRef pLngNumber, ByRef pLngLength)
# B; O* ?, T8 m; j2 b4 J* DNumberToHex = Right(String(pLngLength, "0") & Hex(pLngNumber), pLngLength) # X' p$ I% F3 d* X0 s
End Function 1 l  {2 q/ x% f9 n5 u5 e
Private Function HexToNumber(ByRef pStrHex)
4 J" d0 o% ^" }; E4 z3 KHexToNumber = CLng("&h" & pStrHex)
9 e5 S' n( x; o6 DEnd Function . M5 [, ~  i! x5 H6 j# o
End Class ! w  S/ o4 n# X6 z& R% R' C
function Encryptstr(Message)
8 `& U# f9 P4 `2 q' lDim LngKeyE
% I- d: S: E: iDim LngKeyD
/ X; R3 m% b. t4 ~; `3 ZDim LngKeyN : i6 ~; L# a. v4 b
Dim StrMessage
6 U. r" k& @+ R" ~% {Dim ObjRSA 0 K' p+ y8 k5 g# @( r# D
LngKeyE = "32823" 6 X! w2 d5 \9 u
LngKeyD = "20643"
  M4 r$ j" u- u) P* r, g7 G3 rLngKeyN = "29893" ( [0 |% i" C# `% H) Y0 B$ a9 K" Z
StrMessage = Message : A: z8 _/ c; {0 L( A2 q
Set ObjRSA = New clsRSA
, ], w3 T- J$ Q1 a# Y# D# TObjRSA.PublicKey = LngKeyE % F; e9 W+ R! V, y9 p5 u: f0 [4 E
ObjRSA.Modulus = LngKeyN
1 Z1 [7 p+ B/ H( y" mEncryptstr = ObjRSA.Encode(StrMessage) & p7 z/ e, [# I7 V5 B( Z- T
Set ObjRSA = Nothing $ m* H, w" v2 v) A9 A( ~6 v
end function
$ Z3 x6 N6 i1 v' S" u1 b3 dFunction Decryptstr(Message)
' C) h3 a# f, t- b7 lDim LngKeyE , g+ `  N, d  r+ H1 X. B, R) t, r
Dim LngKeyD 6 {* T/ n( q, K
Dim LngKeyN   @) Y0 [+ l* p& H) j. \6 C* f
Dim StrMessage : v3 c4 ^1 V; M: [& R! G5 a* \3 a  e
Dim ObjRSA / H  j! E5 }$ M3 `; A
LngKeyE = "32823" 1 ?, n" V: h/ r1 b. L
LngKeyD = "20643" / V" Q5 _! {7 D6 y* J# t* J+ r
LngKeyN = "29893"
2 r# h2 [8 o- b7 B1 m4 @( yStrMessage = Message
' V& ]7 W2 j& e. R+ PSet ObjRSA = New clsRSA 5 Q0 z3 t; u9 Y# e+ O" x/ A
ObjRSA.PrivateKey =LngKeyD
/ [$ P5 C5 H" `, w% f7 _5 bObjRSA.Modulus=LngKeyN
+ T5 v& E: f# O# vdecryptstr=ObjRSA.Decode(StrMessage)
) p! s, c1 g+ k/ C+ H% }, SSet ObjRSA = Nothing
' j) e& O# e3 q5 U7 Vend function 0 W+ r% m7 B% M8 G& u
%>) s! \; t1 H4 P* g, G' x; M
===============================================4 S9 T1 _2 `. `& _- }& T3 O7 L
$ }' q4 I! Z/ K) S
还有一个用于测试这段代码的test.asp
, h! H! @7 g$ l4 Z有兴趣的自己搭建个IIS测试下% z( @2 g! _' {+ \% w
<!--#INCLUDE FILE="RSA.asp"-->
3 V( p  X  c) Z$ |6 v4 C( H<%7 v& e3 U! C' y$ K# Q/ ^" E( e
function Encryptstr(Message)
. [5 L) }# K; s! `9 sDim LngKeyE . F, Q; A( A: a
Dim LngKeyD $ y# M% |) ~8 ^: D3 n( ^" D
Dim LngKeyN
0 b1 r4 J0 B- ^Dim StrMessage
7 i; ]. F) C1 k" RDim ObjRSA # w; ~& @( Y. H$ b, P# f
LngKeyE = "32823"
& U* T/ I7 K9 q% `- _LngKeyD = "20643" 1 r6 y. v8 Q- l4 n0 x* Q
LngKeyN = "29893" & k4 ^7 s: m6 E2 z
StrMessage = Message
' v6 S1 _. ~4 w7 J8 mSet ObjRSA = New clsRSA
7 }9 {1 R* H4 L1 O: C% [ObjRSA.PublicKey = LngKeyE
! m, X- U$ U' T3 j4 c+ i! \* r7 m4 _5 BObjRSA.Modulus = LngKeyN / m0 D1 k0 u& U  a
Encryptstr = ObjRSA.Encode(StrMessage) 0 z8 \* Z4 R1 z: ?. u1 L
Set ObjRSA = Nothing
* y0 m. J3 B- Jend function
! K3 S7 P2 N3 B/ A; R/ l$ y6 Ffunction decryptstr(Message)
2 ^# ^  A9 p1 \7 e% z6 e2 fDim LngKeyE
7 B$ _( {) x8 D* |* BDim LngKeyD
9 g8 E$ @2 s) h6 G$ k* V+ rDim LngKeyN ; _  k/ d' h! e) S& n6 e
Dim StrMessage 6 T3 |& h' u' }) F/ }4 ~) z
Dim ObjRSA ) ?( E1 k6 g! P3 [1 L! G% |
LngKeyE = "32823"
" x- P( a; h, }9 X& KLngKeyD = "20643" , G/ W% y5 I  o% r: A8 n
LngKeyN = "29893"
) R( E+ L8 f  F5 yStrMessage = Message 7 S: ~, l0 ^* U( p; z
Set ObjRSA = New clsRSA
6 H6 M% _: O; O6 Q* G* i# rObjRSA.PrivateKey =LngKeyD - c# @% ?8 m0 L( a
ObjRSA.Modulus=LngKeyN
5 M8 {* J2 |& \decryptstr=ObjRSA.Decode(StrMessage)   Q- Q8 p& ~1 R0 j. Y
Set ObjRSA = Nothing ' Z$ K; ~2 j0 B3 Z
end function 3 G) d, e% G3 N; k  [9 D2 @
dim last,first ' f1 \$ \7 C9 S/ ^2 R
first="!@#$%^&*()"
! i( ?+ o( p' k; s8 ?- L; j" tResponse.Write "加密前为:"&first 9 Q! a6 A: ~- U7 M: l- ^) V
last=Encryptstr(first)
# p# x* \& Y6 X! v: s9 R. c  c1 cResponse.Write "加密后为"&last 4 T8 q9 @8 X+ \0 r$ c6 B9 m  u
Response.Write "解密后为" &decryptstr(last) + r8 s+ ~( ]7 A4 J  M7 z, H
%> ==============================================
" m5 A9 s3 L3 K3 x7 P( b& \剩下的就是字符的对照表了
: g) e0 Y! l) Z# k/ Y===================字符集================% ]* c8 ]- j% n; f
1_____6EBB
6 ?  t# {1 r4 L2_____5C1F
  _# U; i8 R2 o! F  o3_____4D751 z" k6 U6 R" d: x- l0 B) {
4_____26CC" G5 \4 v4 `9 K5 @8 B; T
5_____4F88
2 u$ x: _0 o" N- |& P" h- y' H6_____3F4E' W6 H8 d: q2 b0 B: \# W
7_____0A9D
! w: m$ w2 Z* A+ `( C% e# _' T: k8_____1A1C
0 I8 Q) V; o6 V( e/ m! z9_____6D20& `  _& _* j# C4 Y) p' l
0_____1089+ y0 e. s6 L0 X7 ?9 ~/ N
a_____0F3E) j- s3 A) s. u6 m  a
b_____31597 }1 F* K- D- ]0 C' ?
c_____3517
" s8 K! J$ O7 t% B& r0 nd_____419C
$ O$ T9 G' [8 {8 `e_____615C4 i3 K( p$ c6 l+ q( T6 V7 i
f_____556F) k6 Q2 m* p. F; k% O
g_____2B7F
2 T) P+ n1 u) F) e: n" I. ph_____0F9C
8 [/ J3 A5 R. _* Y: h8 Bi_____00FA
+ n' k- J4 T6 aj_____5A50+ J, [' `5 ^9 W' S% s! y+ c: d- S
k_____2850
" O' `# X2 ^+ T2 D, m# Ul_____3E7B- l% b9 B5 I% u2 j
m_____71C5
" |9 o5 d% i! V5 Jn_____1FC8
( b( z9 w/ i3 h" f4 Lo_____74C1
$ |- O* z/ }1 |+ Cp_____5FB81 }4 K5 ?& _% o, S3 |6 `) k4 @6 {' K
q_____6085
0 V$ |& `9 h/ d  ~* Lr_____3AC4
7 v2 C/ V9 a1 l# ]: R  Ms_____2F50! I; }1 T) [. W* [: R$ H
t_____36F8" l6 P+ ?, p( p7 [  ]# D
u_____7010
6 Y$ R; Z+ [2 }5 ^% dv_____0B42& m7 y/ P6 `: J7 S: i
w_____1C7A
1 r1 |4 A) l6 m1 d3 r$ zx_____16F8
  @: E6 o: i# s; j: xy_____2EE7
& B+ V! ^% ^  ]* \z_____5CF3
9 X, r1 f- C; Q( E0 j2 t!_____6233' J% ?3 s% X; F$ B; u
@_____3A45! l  ?7 X* w3 u; d# f1 c# p
#_____22915 I/ j4 X# }/ o+ s) Y6 f# a
$_____5D5C
7 J" P! g4 x* Z$ k%_____09B9/ h% o! d* _2 a- n4 u( B: F5 o, G
^_____43EA
7 {! o+ a' U" }& [# S# d&_____62B90 [" [4 O. v, t
*_____6301
3 I$ n) E- S2 [+ E3 K5 a2 z+ v(_____4659
9 W' e& k+ Y2 i1 d$ C+ ]1 [)_____5C82

鱼儿无心

收藏了。。。。。。。。