• R/O
  • HTTP
  • SSH
  • HTTPS

gikonavi: Commit


Commit MetaInfo

Revisione0eb14d7e2fb5f72819e511b8bbbe759088a8473 (tree)
Time2010-03-23 23:53:32
Authorcvs2git <cvs2git>
Commitercvs2git

Log Message

This commit was manufactured by cvs2svn to create tag 'v1_62_0_804'.

Change Summary

Incremental Difference

--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -264,7 +264,7 @@ const
264264 ZERO_DATE: Integer = 25569;
265265 BETA_VERSION_NAME_E = 'beta';
266266 BETA_VERSION_NAME_J = 'バタ';
267- BETA_VERSION = 61;
267+ BETA_VERSION = 62;
268268 BETA_VERSION_BUILD = ''; //!< debug版など
269269 APP_NAME = 'gikoNavi';
270270 BE_PHP_URL = 'http://be.2ch.net/test/p.php?i=';
--- a/ResPopupBrowser.pas
+++ b/ResPopupBrowser.pas
@@ -370,7 +370,7 @@ begin
370370 end;
371371 if (Result.Right > WorkArea.Right) then begin
372372 // 逆サイドに余裕があれば、出力位置の左右転換
373- if ((p.X - WorkArea.Left) * 2 > WorkArea.Right) then begin
373+ if ((p.X - WorkArea.Left) * 2 > MaxWidth) then begin
374374 if( (GikoSys.Setting.PopupPosition = gppTop) or
375375 (GikoSys.Setting.PopupPosition = gppBottom)) then begin
376376 OffsetRect(Result, -(Result.Right - WorkArea.Right), 0);
--- a/Trip.pas
+++ b/Trip.pas
@@ -424,18 +424,18 @@ procedure get_pw_salt(
424424 const pw : PChar;
425425 var convpw : String;
426426 const salt : PChar
427-);
427+) ;
428428 var
429429 i : integer;
430430 begin
431431 // ^([0-9A-Fa-f]{16})([./0-9A-Za-z]{0,2})$
432- if (Length(pw) >= 17) or (Length(pw) <= 19) then begin
432+ if (Length(pw) >= 17) and (Length(pw) <= 19) then begin
433433 // キー部分
434434 for i := 0 to 7 do begin
435435 if (Pos(pw[2*i + 0 + 1], '0123456789abcdefABCDEF') > 0) and
436436 (Pos(pw[2*i + 1 + 1], '0123456789abcdefABCDEF') > 0) then begin
437437 convpw := convpw +
438- Char(StrToInt( pw[2*i + 0 + 1] ) shl 4 + StrToInt( pw[2*i + 1 + 1] ));
438+ Char(StrToInt( 'x' + pw[2*i + 0 + 1] ) shl 4 + StrToInt( 'x' + pw[2*i + 1 + 1] ));
439439 end else begin
440440 convpw := '';
441441 Break;
@@ -498,7 +498,13 @@ begin
498498 if pw[ 0 ] = '#' then begin
499499 get_pw_salt(pw, convpw, salt);
500500 end;
501- if Length(convpw) = 8 then begin
501+ if (pw[ 0 ] = '#') and (Length(pw) >= 20) then begin
502+ // 将来の拡張用
503+ Result := '???';
504+ end else if Length(convpw) = 0 then begin
505+ // 生キー方式エラー
506+ Result := '???';
507+ end else if Length(convpw) = 8 then begin
502508 Result := Copy( crypt_r( PChar(convpw), salt, s ), 4, 100 );
503509 end else begin
504510 // 新方式
Binary files a/gikoNavi.res and b/gikoNavi.res differ
--- a/readme/readme.txt
+++ b/readme/readme.txt
@@ -1,4 +1,4 @@
1-■ギコナビ Version1.00 バタ61 Readme.txt
1+■ギコナビ Version1.00 バタ62 Readme.txt
22
33
44 ------------------------------
@@ -121,6 +121,9 @@ LICENSE
121121 ------------------------------
122122 履歴
123123 ------------------------------
124+200X/XX/XX
125+ Version バタ62
126+
124127 2009/10/18
125128 Version バタ61
126129 したらばJBBSでスレッドを建てることができない不具合の修正
Show on old repository browser