タイトル

    LFileName := OpenPictureDialog1.Files[0];
    if Pos('\',LFileName) = 0 then
    begin
      ShowMessage('ドライブ情報が取得できないため操作できません。');
      Exit;
    end;

» 続きを読む

» 続きを読む

• インストールは数分で終わる。
• UIが翻訳されていない部分が多い。
• UIの表示設定値が途中で途切れているものが多く読み取れない
• UIの表示設定値がはみ出して項目がよくわからないものがある
• ストレージ(HDD/SSD)周りの設定がZFS特有なので分かりにくい。
• dataset名に日本語が使えない (かなり致命的)
• インストール初期状態でも数時間放置するとシステムメモリをMAX食いつぶした。
• ディスクの暗号化に対応しているので、ディスク故障でも安心して故障ディスクを破棄できる。
• aptコマンドが使えない
• shell コピペができない
  
  コピーと貼り付け
  Context menu copy and paste operations are disabled in the Shell.
• Firewallが設定できない
• Appsに割り当てたpoolのスナップショットが勝手に毎日保存される。
• openmediavaultよりアイドルでのディスクアクセスが激しい気がする
• DHCP 1個のみ
  DHCP ：Only one interface can be used for DHCP.
  なぜ？インターフェースごとに設定できない摩訶不思議。勝手に解除される。　複数インターフェースは、openmediavaultを使いましょう、。

選択を間違うと
Swapを16GB作成しますか？
Yes以降　error が大量に表示されて失敗する。
待っている間Virtualboxで試すとすぐに終わったので失敗と判定。



BIOS
レガシーBiosは、
１段目：Start TrueNAS SCALE Installation
EFI/UEFIのBiosは、
２段目：Start TrueNAS SCALE Installation (115200 baud)
を選択する

Hyper-V

仮想マシンの世代 第１世代
そのままインストール可能

仮想マシンの世代 第２世代
最初の選択で２段目の
Start TrueNAS SCALE Installation (115200 baud)
を選択するとインストールできました。

MACアドレスを固定にしたい場合は、
(1) 設定：ハードウェア：ネットワークアダプター：高度な機能
MACアドレス：静的
に指定する。
(2) 必要に応じてルーター側にも固定IPとしてMACアドレスを登録する。

MACアドレス可変でIPを固定したい場合は、
TrueNAS SCALE内のネットワークアダプターを固定IPで登録する

固定IPのためのインターフェース

パワーシェル(管理者)

truenas内部で appsの設定で、172.16.* 172.17.* が設定されているので避ける。

外部とつながらない場合はここを確認する
https://learn.microsoft.com/ja-jp/virtualization/hyper-v-on-windows/quick-start/connect-to-network

ノート

Virtualbox

仮想HDDの２TB制限がある

２，３分でインストール完了
Virtualboxでするとここはすぐに通過 The TrunNAS installation n sda succeded!
Please reboot and remove the installation media

初回起動

初回起動は時間がかかる。
２回目からは起動してしまうと気になるほどでもない

管理画面

画面に表示されたIPにブラウザで接続
つながらない場合はアダプターの設定でインターフェースを確認・変更して再起動する

管理画面にログイン

最初にすること

http://IPアドレス/ui/system/general
Localization Settings
にてとりあえず日本語に変更し、キーボードとタイムゾーンを指定する

http://IPアドレス/ui/system/general
GUI Settings : 利用情報の収集：オフにする

Vmware Player

Virtualboxで動くなら動くでしょ。ということで今回は未実施。


今回テストした構成

ミラー構成のため下記の容量の可変仮想ディスクを用意
boot-pool : 100GB *2
apps-pool : 500GB *2
data-pool : 3TB *2

boot-poolはインストール時に2個選択します。
残りはインストール後に pool作成からマウントします。

しばらくデータは入れないでテスト運用。

» 続きを読む

Indy Cookie 2007

執筆：2007.01.05
編集：2007.03.19
編集：2007.07.09
編集：2007.07.18
編集：2007.07.21
編集：2007.11.23
編集：2009.10.16

10.0.52は、かなり古いので
cookieのドメインの最初が .で始まっていると処理できずエラーになります。
（IdCookie、IdCookieManager）
(10.1.6でも直っていませんでした。：２００７．３、２００７．７)
(10.2.3でも直っていませんでした。：２００７．１０)


他にも修正をみつけたので、この文書は
インストール方法と分離しました。(2007.7.21)
最新版のインストール方法は、こちらに書いてあります。

パッチ: クッキーのバグを修正します。

Indy10 Cookie bug fix(2007年3月中旬　時点、version 10.1.6)
Indy10 Cookie bug fix(2007年10月中旬　時点、version dev 10.2.3)
Indy9   Cookie bug fix(2007年7月中旬　時点、version 9.0.5.0(stable),indy9.0.18(stable), DevSnapshot)

【現象】
１．
   example.comがexample.comのcookieを渡し、ソフトウェアに保存したとします。
   .example.comでのcookieを、example.comで取得できません。

２．
   anywordexample.comにソフトウェアが接続するとexample.comのcookieをanywordexample.comに渡します。 
   example.com.anydomainにソフトウェアが接続するとexample.comのcookieをexample.com.anydomainに渡します。

　後者（２．）は、セキュリティ勧告ものレベルなのは容易に想像がつくと思います。

   サイトと同名の文字列を含んでる場合に限られますが、
   誘導によりクッキーの略奪が可能なので注意が必要です。

（３．）パス付き/で終わらないクッキーを保存した場合、同じ文字が並ぶパスにわたしてしまいます。
    firefox2ではわたさないことを確認しました。(違うパスへ保存はできるようです。)
　※ IE7では、Indyと同様の現象が起きます。
　　　　Netscpeの仕様書を見るとそうなると　最終パス名の部分一致になると書いてありました。
   ※　Cookieには、きちんとした規格が無いようなことがかいてありました。
　　　　firefox2のような動作がいいと個人的に私は思いますのでそういう風に修正を加えます。

　　/で終わらないクッキーを書いた方が悪いと思いますが、そういうミスはあるものです。
　　（共有サーバーで問題になります。他人のアカウントにわたすので）
　　例：   path=/tea;　http/〜/tea/のものを  http/〜/team/　にもわたします。 
    

【対策】
※：適用した場合のコードの安全性はご自分で確認を取ってください。
　　わたしは、一切責任はもちません。

コードが修正されている可能性も否定できませんので
まず、何もしない状態でセキュリティホールが残っているか確認をとることをお勧めします。
下の再現コードである程度確認できると思います

２００７年3月でのdevコードなので、該当行が多少移動しているかもしれません。
関数名も書いているので探しやすいと思います。
　(delphi2005付属の10.0.52は、行数が違いますので関数名で探してください。)

Indy 〜 10.1.16 :
331: function TIdNetscapeCookie.IsValidCookie

begin
//....(省略)
   Result := FDomain = RightStr(AServerHost, Length(FDomain));
修正
  var ACookieDomain : String;
begin
//....(省略)
//  Result := FDomain = RightStr(AServerHost, Length(FDomain));
// bad code : FDomain = RightStr(AServerHost, Length(FDomain));
//   FDomain        AServerHost
//  xxxx.yyyy.com , zxxxx.yyyy.com : is not valid
//  xxxx.yyyy.com ,  xxxx.yyyy.com : is valid
// .xxxx.yyyy.com ,  xxxx.yyyy.com : is valid
// .xxxx.yyyy.com , yxxxx.yyyy.com : is not valid
      if (Copy(FDomain,1 , 1)='.') then
           ACookieDomain := FDomain
          else
           ACookieDomain := '.' + FDomain;
       Result := ( ACookieDomain = RightStr('.' + AServerHost, Length(ACookieDomain)) );

Indy 10.2.3 : 
-      Result := TextEndsWith(AServerHost, FDomain);
+       // bad code : Result := TextEndsWith(AServerHost, FDomain);
+       //    TextEndsWith('noexample.com',  'example.com') = true : is not valid
+        if (Copy(FDomain,1 , 1)='.') then
+            Result := TextEndsWith('.' + AServerHost, FDomain)
+         else
+            Result := TextEndsWith('.' + AServerHost, '.' + FDomain);

135: function TIdCookieManager.GenerateCookieList

begin
//....(省略)
  if IndyPos(LCookiesByDomain[i], URL.Host) > 0 then
修正
  TempCookiesDomain : String;
begin
//....(省略)
//  if IndyPos(LCookiesByDomain[i], URL.Host) > 0 then
    TempCookiesDomain := LCookiesByDomain[i];
    if (Copy(TempCookiesDomain,1 , 1) <> '.') then TempCookiesDomain := '.' + TempCookiesDomain;
    if (TempCookiesDomain  = RightStr('.' + URL.Host, Length(TempCookiesDomain))) then

注意
 Netscapeの仕様書では、/で終わらない場合、最後のパス名は部分一致になっています
 IE7もそういう動作をしているようです。
 firefox2では、部分一致にはなっていません。
 firefox2風に、/で終わるパスと同様の動作にするには以下のようにします。

function TIdCookieManager.GenerateCookieList

 if Pos(LCookieList.Cookies[j].Path, URL.Path) = 1 then
-->
// if Pos(LCookieList.Cookies[j].Path, URL.Path) = 1 then
 if (RightStr(LCookieList.Cookies[j].Path,1) = '/') then
  begin
    if Pos(LCookieList.Cookies[j].Path, URL.Path) <> 1 then continue;
  end
  else
  begin
    if Pos(LCookieList.Cookies[j].Path + '/', URL.Path) <> 1 then continue;
  end;

procedure TIdCookieManager.DoAdd

 if Length(ACookie.Domain) = 0 then LDomain := AHost
  else LDomain := ACookie.Domain;
-->
 if Length(ACookie.Domain) = 0 then LDomain := AHost
  else LDomain := ACookie.Domain;

  while (copy(LDomain, 1 , 1)='.') do LDomain := copy(LDomain, 2 , Length(LDomain));
  if (LDomain ='') then exit;

function TIdNetscapeCookie.IsValidCookie

begin
//....(省略)
    if IsHostname(AServerHost) then
    begin
      if IsHostName(FDomain) then
        result := FDomain = RightStr(AServerHost,Length(FDomain))
       else
        result := FDomain = RightStr(DomainName(AServerHost),Length(FDomain));
    end
修正
  var ACookieDomain : String;
begin
//....(省略)
    if IsHostname(AServerHost) then
    begin
//      if IsHostName(FDomain) then
//        result := FDomain = RightStr(AServerHost,Length(FDomain))
//       else
//        result := FDomain = RightStr(DomainName(AServerHost),Length(FDomain));
      if (Copy(FDomain,1 , 1)='.') then
           ACookieDomain := FDomain
          else
           ACookieDomain := '.' + FDomain;
       Result := ( ACookieDomain = RightStr('.' + AServerHost, Length(ACookieDomain)) );
    end

function TIdCookieManager.GenerateCookieList

begin
//....(省略)
  if IndyPos(Uppercase(LCookiesByDomain[i]), Uppercase(URL.Host + URL.path)) > 0 then {FLX}
修正
  ACookieDomain : String;
begin
//....(省略)
//  if IndyPos(Uppercase(LCookiesByDomain[i]), Uppercase(URL.Host + URL.path)) > 0 then {FLX}
    ACookieDomain := LCookiesByDomain[i];
    if (Copy(ACookieDomain ,1 , 1) <> '.') then ACookieDomain := '.' + ACookieDomain;
    if (ACookieDomain  = RightStr('.' + URL.Host, Length(ACookieDomain))) then

注意
 Netscapeの仕様書では、/で終わらない場合、最後のパス名は部分一致になっています
 IE7もそういう動作をしているようです。
 firefox2では、部分一致にはなっていません。
 firefox2風に、/で終わるパスと同様の動作にするには以下のようにします。


 if Pos(LCookieList.Cookies[j].Path, URL.Path) = 1 then
-->
// if Pos(LCookieList.Cookies[j].Path, URL.Path) = 1 then
 if (RightStr(LCookieList.Cookies[j].Path,1) = '/') then
  begin
    if Pos(LCookieList.Cookies[j].Path, URL.Path) <> 1 then continue;
  end
  else
  begin
    if Pos(LCookieList.Cookies[j].Path + '/', URL.Path) <> 1 then continue;
  end;

program testCookieManager;

{$APPTYPE CONSOLE}

uses
  IdCookieManager,IdURI, IdGlobal;

 var TestCount : integer = 0;

function CookieManager_check(Cookie, HostName , AccessURL : string;
                 Accept : Boolean; mesg : string) : Integer;
  var
    aURI : TIdURI;
    IdCookieManager1 : TIdCookieManager;
    s : string;
    isError : boolean;
begin
  Result := 0;
  aURI := TIdURI.Create(AccessURL);
  IdCookieManager1 := TIdCookieManager.Create(nil);
  try
    try
      IdCookieManager1.CookieCollection.Clear;
      IdCookieManager1.AddCookie(Cookie, HostName);
      IdCookieManager1.AddCookie('Set-Cookie: name2=value2; path=/tea/; domain=dummy', 'dummy');

//      aURI.URI := AccessURL;
      s := IdCookieManager1.GenerateCookieList(aURI,False);
      if (Accept) then
         isError := (s = '')
        else
         isError := (s <> '');

      if (isError) then
      begin
        Result := 1;
        Inc(TestCount);
        Writeln(' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ ' ,TestCount);
        Writeln(mesg);
        Writeln(' Cookie '+Cookie);
        Writeln(' CookieHostName '+HostName);
        Writeln(' AccessURL '+AccessURL);
        Writeln(' GenerateCookieList('+aURI.URI+') = ' + s);
      end;
    except
      Result := -1;
      Writeln('internal error');
    end;
  finally
    aURI.Free;
    IdCookieManager1.Free;
  end;
end;

function TestCookie() : Integer;
  var
    r : integer;
begin
  Result := 0;

//  r := CookieManager_check('Set-Cookie: name1=value1; path=/; domain=localhost'

  r := CookieManager_check('Set-Cookie: name1=value1;'
                , 'abc.test'
                , 'http://testabc.test/index'
                , false
                , 'bug: send other domain''s cookie');
  if (r<>0) then Result := r;

  r := CookieManager_check('Set-Cookie: name1=value1;'
                , 'deny.abc.abc'
                , 'http://nodeny.abc.abc/index'
                , false
                , 'bug: send other domain''s cookie');
  if (r<>0) then Result := r;

  r := CookieManager_check('Set-Cookie: name1=value1;'
                , 'all.abc'
                , 'http://all.abc/index'
                , true
                , 'bug: can not get own cookie');
  if (r<>0) then Result := r;

  r := CookieManager_check('Set-Cookie: name1=value1; domain=.all.abc'
                , 'all.abc'
                , 'http://all.abc/index'
                , true
                , 'bug: can not get own cookie');
  if (r<>0) then Result := r;

  r := CookieManager_check('Set-Cookie: name1=value1; path=/;'
                , 'denyall.abc'
                , 'http://denyall.abc.localhost/index'
                , false
                , 'bug: send other domain''s cookie');
  if (r<>0) then Result := r;

  r := CookieManager_check('Set-Cookie: name1=value1; path=/;'
                , 'denyall.abc'
                , 'http://denyall.bc/index'
                , false
                , 'bug: send other domain''s cookie');
  if (r<>0) then Result := r;

  if (Result = 0) then Writeln(' ok : testCookieManager');
end;

begin
  Writeln(gsIdProductName + ' ' + gsIdVersion);

  Halt(TestCookie());
end.

ブラウザで確認したい場合 【　．で始まるクッキーの場合】

asp.netだとサンプルを作りにくいのでphpをサーバーに置きます。
---サーバーに保存します----ｐｈｐのファイルです--------
<?php
  // cookie_test.php
   $s = '';
   if (isset($_COOKIE['name1'])) { $s .= 'name1='.$_COOKIE['name1']."\r\n"; }
   if (isset($_COOKIE['name2'])) { $s .= 'name2='.$_COOKIE['name2']."\r\n"; }

   setcookie ('name1','value1' ,time()+60*60*24*30, '/', '.example.com');
   setcookie ('name2','value2' ,time()+60*60*24*30, '/', 'example.com');
   header('Content-type: text/plain');

   print $s;
?>
-----------------------------------------------
example.comは、適当に自分のドメインに置き換えてください。
このファイルにIEやFirefoxでアクセスしてください。
２回ほどアクセスすると２つクッキーが表示されると思います。

しかし、Indyでは、パッチを適用しない場合は、１つしか表示できません。

バグの再現コードです。 (上のphpとセットで使用します)
-----------------------------------------------
 example code
-----------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
  var i:Integer;
begin
  Memo1.Text := IdHTTP1.Get(Edit1.Text);
  Memo2.Clear;
  for i := 0 to IdCookieManager1.CookieCollection.Count-1 do
    Memo2.Lines.Add(IdCookieManager1.CookieCollection.Items[i].CookieText);
end;

----------------------------------------------
サーバを経由しないで単体で確認したい場合は、上の DOS版を利用します

おまけ：
C:\WINDOWS\SYSTEM32\DRIVERS\etc\hosts
に、 127.0.0.数字  ホスト名[ドメイン名]
みたいに追加して、apache等のサーバーを起動すると
容易にローカルでデバッグできると思います。

-----------------------
ssl通信のはじめにエラー
最新版は、どうも一緒に配布してあるdllだと古くてエラーになるようです。
 ソースコードを見ると以下のようにありました。
 自分でコンパイル済みのdll最新版を入れるようにだと・・・

Indy OpenSSL now uses the standard OpenSSL libraries
for pre-compiled win32 dlls, see:
http://www.openssl.org/related/binaries.html
recommended v0.9.8a or later

バグ報告してあげようと思ったのですが、バグ報告ページに接続できないので、あきらめました。
（また海外のメーリングリストは、ウイルス・スパムメールの嵐に遭うので関わる気はありません。）

　ポカ。。。(((∂。∂)ﾝ
あれ？　私は誰　いまなにしていました？
　あれれ・・・

追記：2007年７月でも修正されていなかったので、newsグループに報告しました。
追記：Snapshotをみても反応が無かったので、QualityCentralに登録しました。 openされたようです。
追記：2007.10 RightStrがTextEndsWithに変更されていることを確認しました。
           関数名が変わっただけで欠陥は直っていないようです。

Indyのバージョンの確認方法
(新規フォームにボタンを貼って、コードを置き換えてください)

uses IdAbout;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdAbout.ShowDlg
end;

• SQL-2003対応になった
• UTF8とShift_JIS間でコンバートが発生すると
  コンバートエラーを起こしやすい( Ⅱ など)
  
• Malformed stringと表示され、リストアなどができない。
  全角が使えないわけではない。
  コードページの再確認：SJIS,CP943C,UTF8
  
  Firebird Language Reference Update
    Firebird-2.1-LangRef-Update.pdf
      New character sets
  
• CHARACTER SET のチェックが厳しくなった。
  いままで適当なことをしているとgbakなどで返り討ちされる。
  DEFAULT CHARACTER SET NONE;

» 続きを読む

» 続きを読む

» 続きを読む

» 続きを読む

» 続きを読む

» 続きを読む

avrdude

• ダウンロード
  
  • http://download.savannah.gnu.org/releases/avrdude/
    Windows : avrdude-.-mingw32.zip
• Project Homepage
  http://savannah.nongnu.org/projects/avrdude/

libusb

Atmel Studio

» 続きを読む