套套进来，吼吼

_liege · 发表于 2007 年 4 月 1 日 02:58:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？注册

×

套套牌电影台：
www.156.net.ru
在套套的基础上增加：
支持登录论坛采集，绝大部分ubb代码转换，修正相对目录图片显示，增加访客访问过的内容保存为html（这算不算是一种缓存呢？）

[ 本帖最后由 _liege 于 2007-4-1 03:46 编辑 ]

善良的狼 · 发表于 2007 年 4 月 1 日 03:16:52

套套牌不错,安全可靠

_liege · 发表于 2007 年 4 月 1 日 04:10:44

更新以下代码：
主要改进：网页分类依然存在，具体子栏目的帖子列表改为动态，只有具体帖子为静态

1 R c' v8 l$ f; g% X- F0 r: U
<?php
3 A4 P- R& V* b9 L u! C- {1 |
* c6 }+ A5 S, I+ N n
+ S/ ?( E! g' @& V% U/ c% ^
error_reporting(E_ALL);
5 k; ^1 j1 `) b
/************** Z* }8 {- t l" b7 B1 y/ ^* @
* 网站地址
: S/ @3 j' I, e5 y
**************/. F q0 K6 |% f8 x
$site = 'localhost';
. g- Y# K+ x, N' v( a
" L1 v1 z& Y/ g) T( a1 _
// 目标地址
" s0 x# X& v2 C: R" N. S. m8 C4 J
, n* v0 S% d% @: h' K# e' Q3 R9 I
$target = 'bbs.cnxp.com';
9 ^4 h0 R4 A% I; c+ f9 F! G
( U( o0 G+ \3 m2 a: I
- A2 |# v. G ]; }- T' q
// 目标端口
6 S0 l( c/ b6 c9 O5 p
5 c- V) Z. `( S m T' q w
$port = 80;3 i; Q5 Z' m) ]4 @" j
5 d: ~9 i/ C) l) l7 {0 [
* ^0 q" ~9 Q6 p/ k
//* 目标目录1 m8 m1 H$ O# g
; v: d0 T' X2 r0 }! x, w# L
$dir = '/archiver/';" \6 |- e( m4 x" K; b! [
& `4 C# F6 J5 E$ K: ?, U4 r) H
/**********************: {% R# @) p3 e& k# Q. H0 J
* 是否装换ubb代码，非0既真
r$ H4 w9 W2 w0 f" O; H
************************/
% v+ A! p) e6 K% j, E* d' O f
$ubbb=1;/ V( o- J! A7 j6 c, ]8 j: G
5 X) m5 q% J& ^
/***
4 _- M3 V5 A& g8 b+ E
COOKIE验证. @/ r& y0 v: _- n
****/
" g" s; e$ `6 {, w6 D2 F/ U: l$ b0 U) q
$loginurl='';//登录URL，含登录各种信息，如帐号密码，不要带主域名，格式为 xxx.php?.......3 [1 g0 t; ~% e$ N
$cookie='';//保存login()的cookie信息
9 x- Y' r* N* M. {
$logonoff=0; //标识，非0即登录3 a9 _" h$ \( ~2 R4 e7 I
( P* U, O- j [- A% s9 a' S4 o
6 B% \) U1 l" ~4 y" o; s
9 x8 p, z7 a6 y4 _9 A, |
* n7 c6 y- [+ ^) U( b6 e
$query_str = '';
# v( g8 I( [8 }& m, b
foreach ($_GET as $key => $val) {
) U8 G4 u3 n0 P6 I% O' g2 ~% Y
$query_str .= $key . $val;
& v" D% [$ ]' ?$ Z) ] s
}, D F& G7 c( k! N6 ]" v
2 h* @7 I% z7 | c- f4 e
/**
8 i( V+ q% Y! @
* 读取远程文件- [4 }: G2 b- T, \: Z2 ^
*/
. V( Y J2 o z$ C( A, n
if (empty($query_str)) {
0 |! A, S! |0 c! Q7 J! V
7 z, {0 k; j, e0 x( g
6 c# }2 \( [! X
$fp = fsockopen($target, $port, $errno, $error, 30);
" ~7 V: q7 e4 U: E
if (!$fp) {
3 t- e. n; J" ?# u
echo "[$errno]$error<br />\n";
1 _; H$ t3 c# V" Z8 l: s
} else {
. y9 d& n4 l/ b P& O; x8 }
fwrite($fp, "GET $dir HTTP/1.1\r\n");9 u. i% n, q, V
fwrite($fp, "Host: $target\r\n"); ( O8 O3 Q# m8 O1 k! ]" x" V
if($logonoff)
% o9 ]. Z) a) k" a" f8 P
fwrite($fp,"Cookie:$cookie\r\n");1 a) M; v3 |5 Q2 D
fwrite($fp, "Connection: Close\r\n\r\n");8 R5 S6 T( d! M6 l% s& C) @$ O! E
$content = '';
! {2 ?/ p g$ a) ?( c
while (!feof($fp)) {
7 i8 L7 G0 s5 W8 v* ^) O; a
$content .= fgets($fp, 128);% V1 }( u, F5 Q
}
2 i& K& |; l5 o
fclose($fp);8 ]& i9 W! r1 B9 W; H" o
}
, `6 x( L* E6 F- B1 C! r
' H0 \ P% r' B6 a5 W
} else {
) T2 W0 z+ `) O
if(file_exists("$query_str.htm")){
5 m; _. ~" B; d3 ^7 i' Z
header("Location: $query_str.htm");, p" E; k8 Q3 H0 M6 M$ {) B% O
}else{
7 i* H- r& U& X, p7 ~9 w7 ^
$ G N' W& @4 Z/ V' K z+ O
, s8 Y- q% a$ t$ C/ J, p0 a/ ^& E
$fp = fsockopen($target, $port, $errno, $error, 30);
2 \! Q+ n0 T# i& Q9 \
if (!$fp) {
G: X# D4 g, `' V
echo "[$errno]$error<br />\n";
$ ~. \ r. g% r! {+ Y; {6 `7 ?9 c6 W
} else {/ T h: t5 \* c
fwrite($fp, "GET $dir?$query_str HTTP/1.1\r\n");
; K& ^. m t! ] j: Q# @+ `2 \/ I
fwrite($fp, "Host: $target\r\n");6 k9 ]' B7 O0 V5 I2 }/ @* J
if($logonoff)
1 }* Y1 V8 a- L6 A8 P
fwrite($fp,"Cookie:$cookie\r\n");
# p2 t; M( g! l! i7 z
fwrite($fp, "Connection: Close\r\n\r\n");$ Q1 e7 R- C2 I7 ?
$content = '';2 x4 E( l# b: u- ]) E' k
while (!feof($fp)) { c9 w% y* J, b" b
$content .= fgets($fp, 128);+ X1 f9 [" P& L* x4 L. W2 Y7 g$ T
}# U9 H+ h- s! g, O
fclose($fp);7 e" m" g" q ^
}5 E- c E3 \# N r# ~2 ?
}0 k* p' `8 S- s* ^% |- i
}8 X$ e" U9 h% R
- k1 h/ h9 V+ z$ T
/**; I; I' Y. J4 |+ O6 z+ A) C @8 ]2 P
* 相关替换
) ~3 J* t7 `2 N& }/ T
*/1 _& ?+ j" m- y+ S" U9 U
$content = preg_replace("~.+(<html>.+<\/html>).+~is", "\\1", $content);
! J+ _! q4 f& J3 O; T
$content = str_replace($target, $site, $content);" d0 }* I6 a d+ P( C8 C
$content = str_replace("archiver/", "", $content);
( m, d* ?+ [- a1 U) |
$content = preg_replace("~<font.+?查看完整版本.+?<\/a>~", "", $content); 1 o5 ^+ ]6 T5 F7 H) r7 C. R
$content = str_replace('影视帝国', '套套牌电影', $content);
7 M2 o6 D* T( U! B4 u9 {: e) v/ z
5 V! m1 }4 U8 o
, _/ b; V+ v5 ~+ e
/**
; S; k W' b% }" ^6 H, K) q
* CSS 文件下载- F$ B l& O" V1 c! f7 _$ W1 Y' V
*/4 d& |' c* K4 a: d6 {& k
preg_match_all("~href="(.+?)"~is", "<link rel="stylesheet" type="text/css" href="forumdata/cache/style_7.css">", * q& P7 O. T+ y* x
) u+ O ~/ Z9 @8 c5 a0 ^
$match); ) @& v/ Z2 J* G2 V N C; Z+ u
; |% @; e5 B# X; f: X# I
$css_file = 'http://' . $target . '/' . $match[1][0];
9 h; X; C6 b9 w6 y* k! o
$local_css = explode('/', $match[1][0]);
0 l& j6 U4 g' x2 M
$local_css = $local_css[2];4 p& o8 y7 p! J8 D8 D$ G) h8 q
if (!file_exists($local_css)) {0 ?; o6 S& ] r2 o" J
$css = file_get_contents($css_file); 6 C3 p, ]( h* v. p
$fp = fopen($local_css, 'w');
7 k% d$ O+ @, r9 X
fwrite($fp, $css);6 p8 Z* G D# u
fclose($fp);( Y) X# F" ^) h8 K e% H$ ]: v. \
chmod($local_css, 0777);0 {0 [9 o0 o4 i' L+ `- ?
}3 N) B. T' T2 |& L$ }
$content = preg_replace("~forumdata\/cache\/(.+?).css~", " \\1.css", $content);$ ], B7 m2 f3 \5 w- K2 W' C! B
# |1 n* S C3 R4 q: `
9 X ^9 ?6 r* Q% ~8 f
/**; ^7 [ @) e- |5 F% L) s3 c3 x U
* 统计
" n+ o. K+ B/ l% ]
*/
% s: X- D( L1 E/ i( M# \
$content .= "<script src='http://s67.cnzz.com/stat.php?id=445168&web_id=445168&online=1&show=line ' language='JavaScript'
2 t% u/ d0 I9 K& }$ `0 ^
charset='gb2312'></script>";8 a- C4 y# v7 @2 i7 T C8 d3 Z* } {
1 S/ T& j# g+ a0 O
if($ubbb)
* a5 X: p; }0 g4 U/ c0 ^8 q3 [: ~, D
$content=ubb($content);
# A; Z( l4 o/ P' W+ X- E
( x( k$ C. d6 {; q, j6 ]
if(empty($query_str)){
6 |0 J# ]1 L9 [$ y
echo $content;
2 G$ @1 |: O" l! e# G& T6 J4 ]: M
}else{. D9 } Q+ Q" {% e! N
if(!strstr($query_str,'tid')){
5 Q' x( M& G: u7 a# N. l+ f
echo $content;; Q. C$ P0 c& F
}else{, x- i7 q+ S8 b- U5 q5 ^9 E% ]
$s=$query_str.'.htm';# d) c3 z2 h u# J
$fp=fopen("$s","w");5 j4 H7 d1 v: ]4 W
if(!$fp){9 z: b$ X- I C O
echo $query_str;
/ D, x M# y7 B+ x5 R% B1 S, m
echo "无法创建并打开文件";
2 n/ [7 e; Z4 ~) _ N7 n& H
}else{
% L8 h# H1 ]% O+ r" G2 J8 g! a, `
fwrite($fp, $content)?header("Location: $s"): print("无法缓存文件，请检查目录写入权限是否为777");+ M' A5 ]- M- v8 I4 e8 P
fclose($fp);0 W( r: s9 C- P- C' m
}6 F- g3 O: d) @) @% A! V h! m1 `
}. w$ H8 B! V8 e; J" V8 A5 N% X- r
/ s0 ] U( H q# a& D) m! w
# ^; p: B2 J/ T" ]9 J. |
1 G/ a3 a& ]. K: O1 y- S3 e6 S
% ~: L1 d8 T3 X/ ]5 c, t( o
" e8 B1 [; Y) `1 D: K. l
}
+ E+ B: Q/ Q! o- f2 Z
6 {6 h8 k1 `/ b" b! g+ Y
& ^8 l' {' {+ o- e" i, o9 c
/*************************************************6 P' L" u" d3 Q% }' U
UBB代码
9 ?" @" S2 [8 {( u8 G- U
*************************************************/( J& F' B( l& G6 v
( T. @* q* w3 ]- ]# h& Q# @) [
function ubb($Text) 3 b$ `& z9 w4 |; ]
{
; ~# H* Z' y0 w
global $site,$target;
; |, X% s% ~6 h9 N
$Text=stripslashes($Text);
, P# T& x; y( D6 h1 L3 T
$Text=ereg_replace("\r\n","<br/>",$Text); 8 U) x2 K$ p: e) I" `
$Text=ereg_replace("\r","<br/>",$Text); 8 b# _, [5 X- b* l/ y# m
$Text=nl2br($Text); 1 u) n4 p3 n, _) t: {- J+ f
$Text=preg_replace("/\\t/is"," ",$Text); % S( a2 p+ A) t
$Text=ereg_replace(" ","  ; ; ; ;",$Text); $ o1 q6 a" F: K0 [& F
7 H% G- n: w, n2 |' [! y1 F
$Text=preg_replace("/\[h1\](.+?)\[\/h1\]/is","<h1>\\1</h1>",$Text); * z" ]2 j- u6 i0 r
$Text=preg_replace("/\[h2\](.+?)\[\/h2\]/is","<h2>\\1</h2>",$Text); # X/ M$ X% G5 P% b1 f5 C
$Text=preg_replace("/\[h3\](.+?)\[\/h3\]/is","<h3>\\1</h3>",$Text); 6 l( W7 c1 _4 E: C2 p/ t& T3 K1 m
$Text=preg_replace("/\[h4\](.+?)\[\/h4\]/is","<h4>\\1</h4>",$Text); * b1 b. T0 t7 k. e
$Text=preg_replace("/\[h5\](.+?)\[\/h5\]/is","<h5>\\1</h5>",$Text); 8 T& d6 E; N0 v' Y( b" A2 a( ^
$Text=preg_replace("/\[h6\](.+?)\[\/h6\]/is","<h6>\\1</h6>",$Text); / w" Q. W6 f7 L) R
$Text=preg_replace("/\[center\](.+?)\[\/center\]/is","<center>\\1</center>",$Text);
" @, b3 ^% V9 Q6 n5 w1 I' n
$Text=preg_replace("/\[big\](.+?)\[\/big\]/is","<big>\\1</big>",$Text); - W' I6 q+ ]8 L1 F' |6 H
$Text=preg_replace("/\[small\](.+?)\[\/small\]/is","<small>\\1</small>",$Text); 0 H7 z/ p5 Z; O' \1 ~0 g
! {$ H: _& i' a3 {' E) ~
/ N; B4 ~% k2 }: T+ I
- I% S9 |' q) `6 y8 w7 V
$Text=preg_replace("/\[url\](http:\/\/.+?)\[\/url\]/is","<a href=\\1>\\1</a>",$Text); ( j4 G% P4 Q) D" U- f
$Text=preg_replace("/\[url\](.+?)\[\/url\]/is","<a href=\'http://\\1\'>http://\\1</a>",$Text);
4 J, s( |6 t( \% D! M* R
$Text=preg_replace("/\[url=(http:\/\/.+?)\](.*)\[\/url\]/is","<a href=\\1>\\2</a>",$Text); ( G b/ ^. Z3 M# I1 J
$Text=preg_replace("/\[url=(.+?)\](.*)\[\/url\]/is","<a href=http://\\1>\\2</a>",$Text);
C! R# o9 G) h0 }
# `# J! }& N; X- }& ]* Y
$Text=preg_replace("/\[img\](http:\/\/.+?)\[\/img\]/is","<img src=\\1 border=0>",$Text);
& Y, N2 Y$ o( q) w4 v" V8 J
# P1 X7 M2 m% H
//替换相对目录的图片地址为绝对地址。受目标网站是否防盗链影响
0 P- N9 u% B' g, H5 v% \
$Text=str_replace("http://image.$site","http://image.$target",$Text);
. z! h! p/ c9 C! l0 v
+ k1 [3 y$ |6 | y
$Text=preg_replace("/\[color=(.+?)\](.+?)\[\/color\]/is","<font color=\\1>\\2</font>",$Text);
4 O6 L' U; o. [0 Z# A) s5 `" r
$Text=preg_replace("/\[size=(.+?)\](.+?)\[\/size\]/is","<font size=\\1>\\2</font>",$Text);
1 x- F1 z9 O: Z- d/ \, j
$Text=preg_replace("/\[sup\](.+?)\[\/sup\]/is","<sup>\\1</sup>",$Text);
1 L& k9 Q+ i) W" ^0 ~
$Text=preg_replace("/\[sub\](.+?)\[\/sub\]/is","<sub>\\1</sub>",$Text); ( F4 W8 @9 C/ ]: S
$Text=preg_replace("/\[pre\](.+?)\[\/pre\]/is","<pre>\\1</pre>",$Text);
0 o# [2 c5 y: R, y% V% V
$Text=preg_replace("/\[email\](.+?)\[\/email\]/is","<a href=mailto:\\1>\\1</a>",$Text);
' T* {* M* b# m8 y) H ~' W
$Text=preg_replace("/\[i\](.+?)\[\/i\]/is","<i>\\1</i>",$Text); . r6 {! }+ ~9 z
$Text=preg_replace("/\[b\](.+?)\[\/b\]/is","<b>\\1</b>",$Text);
$ W! {# d5 v' X' o
$Text=preg_replace("/\[quote\](.+?)\[\/quote\]/is","<blockquote><font size='1' face='Courier
- n* t* i6 T K( M* \
0 Q1 O# h" B8 k- @! C
New'>quote:</font><hr>\\1<hr></blockquote>", $Text);
" A4 v7 |' a+ }) Z
return $Text;
% M# }% r% P- u ]9 y
}9 n4 b; w: D& J! A4 {2 {) W
0 ?) D7 M7 {+ w. F: t* L% |
function login(){
' N6 ]/ c2 ^& s
global $cookie,$logurl;
5 [% T. r) v) e' Q0 X/ k$ w' O+ p
$fp=fsockopen("$host",80);% x& d9 f+ ]! j) o
$c="GET $logurl HTTP/1.1";' q% Q" F: F. l0 T! P
; e1 O; w( T/ D$ j. O' p# a2 @9 o
fputs($fp,$c);. I. [$ b5 Z2 S- A* C
$result = ''; . C! Y7 }: Z: s+ ^
while($line = fgets($fp))
% N ]: W2 @2 Q1 I; u# `! Q
{ 6 O- _9 J1 Z f# o( S
$result .= $line; 2 n( b' m$ E& _2 L8 w7 N
$tmp = explode(":",$line);
+ p: M# y2 S% V% |" [/ \
if($tmp[0]=="Set-Cookie") & h1 j; Q6 z8 t3 c4 I& z
$cookie .= $tmp[1]; * |; d4 B7 a) e, t0 d: @$ n
}
: M! `1 L) L8 }
fclose($fp);
' `$ y7 r& k8 ] q" m
}" i3 J+ R( _% F. E2 S
! T* R k- R& h4 f: u
?>/ w! Y( R3 c; k1 K3 V `
4 z$ {; Y) S. { G0 |3 M7 a6 v1 W
! E- U, |- \" e- U

复制代码

[ 本帖最后由 _liege 于 2007-4-1 05:20 编辑 ]

长天 · 发表于 2007 年 4 月 1 日 05:08:54

郁闷
居然死掉了
这论坛

HTTP/1.1 200 OK
Server: Zeus/4.2
Date: Sat, 31 Mar 2007 21:08:37 GMT
Connection: close
Content-Type: text/html
X-Powered-By: PHP/4.3.11

Discuz! info: Can not connect to MySQL server

Time: 2007-3-31 9:08pm

Script:

Error: ; ;Can't connect to MySQL server on '192.168.1.84' (111)

Errno.: ; ;2003

Similar error report has beed dispatched to administrator before.

账号		自动登录	找回密码
密码			注册