2002.10.22 (火) 21:44:14 <Heracules> ひょっとしたらタイムスタンプおかしいかもしれません(ぉぃ
2002.10.23 (水) 00:04:40 <u*j*2*6*> パッチうまくあたりません
2002.10.23 (水) 00:09:14 <u*j*2*6*> diff.exe,patch.exeの使い方分かる?
2002.10.23 (水) 02:20:47 <Heracules> あらら(汗 現物がないのでなんとも>diff.exe&patch.exe
2002.10.23 (水) 03:44:52 <Heracules> 修正しました。行番号のミス、dfmとpasの間違い、等5箇所くらい訂正箇所が・・・(汗
2002.10.23 (水) 03:45:28 <Heracules> diff.exe,patch.exe落としてきました。
2002.10.23 (水) 05:53:26 <u*j*2*6*> ちょっとだけ修正しました。patchちゃんとあたりました
2002.10.23 (水) 06:48:59 <u*j*2*6*> これ、実行ファイルつくれないよ…
2002.10.23 (水) 07:03:57 <u*j*2*6*> 実行ファイルができるように修正しました
2002.10.23 (水) 15:43:06 <Heracules> またどっか間違ってたかな・・・(滝汗 手書きはやめましょうってことですね!(ぉぃぉぃ
2002.10.23 (水) 21:44:19 <Heracules> あぁ、そっか、portのInteger宣言忘れてた(笑
2002.10.23 (水) 21:46:27 <Heracules> まだ違うね・・・ま、いいや。今度からdiff.exe使います
2002.10.24 (木) 02:48:21 <u*j*2*6*> これ、ポート指定できるようになるといいね。そのときは修正番号をかえてあたらしく出してください(shuusei21181とかそんなかんじで)
2002.10.24 (木) 03:08:28 <u*j*2*6*> 7743はなんでブロックしてるんだっけ
2002.10.24 (木) 23:22:08 <u*j*2*6*> ログインブロックではなくて、強制ポート変換のほうがいいかも
2002.10.24 (木) 23:31:56 <Heracules> それだと、NAT設定してないときに転送完全不可になっちゃうからブロックか強制ポート0でもいいかも。
2002.10.24 (木) 23:32:23 <Heracules> 7743はWinnyの標準ポートです。

shuusei21179:ポート6699/7743でのクライアントのログインをブロックする機能の追加(source by Heracules)

diff --dos -urN 21178/handler.pas 21179/handler.pas
--- 21178/handler.pas	Tue Oct 22 18:11:00 2002
+++ 21179/handler.pas	Wed Oct 23 06:22:14 2002
@@ -975,6 +975,7 @@
  ban: PBan;
  list: TStringList;
  friend: Boolean;
+ port: Integer;
 begin
  tmp_pos:=190;
  if local=nil then exit;
@@ -1014,6 +1015,13 @@
  if check_loginpass then
  if AnsiPos(loginpass,hlist.Strings[1])<>1 then begin
    LoginError('そのパスワードではこのサーバーにログインできません。');
+   exit;
+ end;
+ port:=StrToIntDef(hlist.Strings[2],-1);
+ if loginblock_port then
+ if (port=6699) or (port=7743) then begin
+   LoginError('当サーバではポート'+IntToStr(port)+'の使用は禁止しています。');
+   Debuglog('ポート'+IntToStr(port)+'のため、'+hlist.Strings[0]+'のログインをブロックしました.');
    exit;
  end;
  local.SoftwareId:=GetSoftware(hlist.Strings[3]);
diff --dos -urN 21178/mainform.pas 21179/mainform.pas
--- 21178/mainform.pas	Mon Oct 21 22:18:18 2002
+++ 21179/mainform.pas	Wed Oct 23 04:54:02 2002
@@ -1232,6 +1232,7 @@
   searchblock_logic_and:=ini.ReadBool('Share','SearchBlock_Logic_AND',false);
   browsedlblock_logic_and:=ini.ReadBool('Share','BrowseDLBlock_Logic_AND',false);
   autoban_incomplete:=ini.ReadBool('Share','AutoBanINCOMPLETE',false);
+  loginblock_port:=ini.ReadBool('Share','LoginBlockPort',false);
   if language<>'english' then
   begin
     LogStartup('mainform::loadconfig: loading custom language - '+language);
@@ -1649,6 +1650,7 @@
   ini.WriteBool('Share','SearchBlock_Logic_AND',searchblock_logic_and);
   ini.WriteBool('Share','BrowseDLBlock_Logic_AND',browsedlblock_logic_and);
   ini.WriteBool('Share','AutoBanINCOMPLETE',autoban_incomplete);
+  ini.WriteBool('Share','LoginBlockPort',loginblock_port);
   ini.WriteString('Share','MP3 Extensions',ext_mp3);
   ini.WriteString('Share','Audio Extensions',ext_audio);
   ini.WriteString('Share','Video Extensions',ext_video);
diff --dos -urN 21178/settings.dfm 21179/settings.dfm
--- 21178/settings.dfm	Mon Oct 21 23:25:46 2002
+++ 21179/settings.dfm	Wed Oct 23 06:27:20 2002
@@ -5747,6 +5747,14 @@
           ItemHeight = 12
           TabOrder = 10
         end
+        object cb_loginblock_port: TCheckBox
+          Left = 6
+          Top = 174
+          Width = 200
+          Height = 15
+          Caption = 'ポート6699/7743でのログインを拒否'
+          TabOrder = 11
+        end
       end
     end
   end
diff --dos -urN 21178/settings.pas 21179/settings.pas
--- 21178/settings.pas	Wed Oct 09 13:44:40 2002
+++ 21179/settings.pas	Wed Oct 23 04:54:02 2002
@@ -549,6 +549,7 @@
     cb_autoban_incomplete: TCheckBox;
     Label146: TLabel;
     edit_incomplete_bantime: TComboBox;
+    cb_loginblock_port: TCheckBox;
     procedure Panel3Resize(Sender: TObject);
     procedure headerPaint(Sender: TObject);
     procedure SetTopText(str: String);
@@ -1869,6 +1870,7 @@
    flood_max_wantqueue:=edit_search_wantqueuep3m.Value;
    flood_max_dlrequests:=edit_toami_judge.Value;
    autoban_incomplete:=cb_autoban_incomplete.Checked;
+   loginblock_port:=cb_loginblock_port.Checked;
    if radio_dl_block.Checked then toami_taiou:='block'
    else if radio_dl_leech.Checked then toami_taiou:='leech'
    else if radio_dl_ban.Checked then toami_taiou:='ban';
diff --dos -urN 21178/vars.pas 21179/vars.pas
--- 21178/vars.pas	Wed Oct 09 13:43:10 2002
+++ 21179/vars.pas	Wed Oct 23 04:54:02 2002
@@ -197,6 +197,7 @@
  nocount_text: Boolean;
  share_matchedfile_only: Boolean;
  autoban_incomplete: Boolean;
+ loginblock_port: Boolean;
  // napigator
  stats_socket: HSocket;
  napigator_socket: HSocket;