| 420 |
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); |
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); |
| 421 |
var |
var |
| 422 |
na, sub, com, pass: string; |
na, sub, com, pass: string; |
| 423 |
|
s1: string; |
| 424 |
no, line: integer; |
no, line: integer; |
| 425 |
i: integer; |
i: integer; |
| 426 |
s: TResourceStream; |
s: TResourceStream; |
| 448 |
for i := 0 to words.count - 1 do |
for i := 0 to words.count - 1 do |
| 449 |
if ContainsText(AnsiString(com), AnsiString(words[i])) = True then |
if ContainsText(AnsiString(com), AnsiString(words[i])) = True then |
| 450 |
begin |
begin |
| 451 |
er := er + '禁止語句が含まれます.'; |
s1 := words[i]; |
| 452 |
break; |
if s1[1] = '<' then |
| 453 |
|
begin |
| 454 |
|
if Pos(' ', s1) = 0 then |
| 455 |
|
s1 := Copy(s1, 2, Length(s1)) |
| 456 |
|
else |
| 457 |
|
s1 := Copy(s1, 2, Pos(' ', s1) - 1); |
| 458 |
|
er := er + '禁止タグが含まれます. ﾋﾝﾄ:' + s1 + #$D#$A; |
| 459 |
|
end |
| 460 |
|
else |
| 461 |
|
begin |
| 462 |
|
er := er + '禁止語句が含まれます.'; |
| 463 |
|
break; |
| 464 |
|
end; |
| 465 |
end; |
end; |
| 466 |
if FDTable1.RecordCount = 0 then |
if FDTable1.RecordCount = 0 then |
| 467 |
no := 1 |
no := 1 |
| 624 |
} |
} |
| 625 |
FDTable2.AppendRecord([Request.ScriptName, 'pbbs clone', |
FDTable2.AppendRecord([Request.ScriptName, 'pbbs clone', |
| 626 |
'<center><font size=5 face=Verdana color=gray><b>P-BBS CLONE</b></font></center>', |
'<center><font size=5 face=Verdana color=gray><b>P-BBS CLONE</b></font></center>', |
| 627 |
'admin', 'あほ,ばか,死ね,<style,<script', false]); |
'admin', 'あほ,ばか,死ね,<style,<script,<link', false]); |
| 628 |
m := TResourceStream.Create(HInstance, 'setup', RT_RCDATA); |
m := TResourceStream.Create(HInstance, 'setup', RT_RCDATA); |
| 629 |
try |
try |
| 630 |
uri := '/setup'; |
uri := '/setup'; |
Parent Directory
Revision Log
Patch