テックメモ – ページ 34 – 自分用のメモです。内容が間違っていたり、作りかけで動作しないコードなどあるのでご注意ください。

2020-11-12

Ubuntu apt(カーネルパッチ)

sudo apt upgrade
にて、以下のようなメッセージがでた。
A new version of /boot/grub/menu.lst is available, but the version installed currently has been locally modified

選択肢としては以下。

・install the package maintainer’s verstion
パッケージメンテナのバージョンをインストール

・keep the local version currently installed
現在インストールされているローカルバージョンを保持

・show the differences between the versions
バージョン間の差異を表示

・show a side-by-side difference between the versions
バージョン間の差異を並行表示

・show a 3-way difference between available vertions
利用可能なバージョン間の3種類の差異を表示

・do a 3-way merge between available versions
利用可能なバージョン間での3種類マージを行う (実験的)

・start a new shell to examine the situation
状況を検討するための新しいシェルを起動

＊＊＊

・install the package maintainer’s verstion
を実行したが、一応、
sudo vim /boot/grub/menu.lst
をメモしておくと。

●旧

title Ubuntu 18.04.1 LTS, kernel 4.15.0-43-generic
root (hd0)
kernel /boot/vmlinuz-4.15.0-43-generic root=LABEL=cloudimg-rootfs ro console=hvc0
initrd /boot/initrd.img-4.15.0-43-generic

title Ubuntu 18.04.1 LTS, kernel 4.15.0-43-generic (recovery mode)
root (hd0)
kernel /boot/vmlinuz-4.15.0-43-generic root=LABEL=cloudimg-rootfs ro single
initrd /boot/initrd.img-4.15.0-43-generic

●新

title Ubuntu 18.04.5 LTS, kernel 4.15.0-123-generic
root (hd0)
kernel /boot/vmlinuz-4.15.0-123-generic root=LABEL=cloudimg-rootfs ro console=hvc0
initrd /boot/initrd.img-4.15.0-123-generic

title Ubuntu 18.04.5 LTS, kernel 4.15.0-123-generic (recovery mode)
root (hd0)
kernel /boot/vmlinuz-4.15.0-123-generic root=LABEL=cloudimg-rootfs ro single
initrd /boot/initrd.img-4.15.0-123-generic

title Ubuntu 18.04.5 LTS, kernel 4.15.0-122-generic
root (hd0)
kernel /boot/vmlinuz-4.15.0-122-generic root=LABEL=cloudimg-rootfs ro console=hvc0
initrd /boot/initrd.img-4.15.0-122-generic

title Ubuntu 18.04.5 LTS, kernel 4.15.0-122-generic (recovery mode)
root (hd0)
kernel /boot/vmlinuz-4.15.0-122-generic root=LABEL=cloudimg-rootfs ro single
initrd /boot/initrd.img-4.15.0-122-generic

title Ubuntu 18.04.5 LTS, kernel 4.15.0-43-generic
root (hd0)
kernel /boot/vmlinuz-4.15.0-43-generic root=LABEL=cloudimg-rootfs ro console=hvc0
initrd /boot/initrd.img-4.15.0-43-generic

title Ubuntu 18.04.5 LTS, kernel 4.15.0-43-generic (recovery mode)
root (hd0)
kernel /boot/vmlinuz-4.15.0-43-generic root=LABEL=cloudimg-rootfs ro single
initrd /boot/initrd.img-4.15.0-43-generic

となった。

現在のカーネルのバージョン確認方法
uname -r
4.15.0-123-generic

2020-11-112020-11-11

PHP セキュリティメモ

最低限の部分

・PHP.ini

今回は、さくらのレンタルサーバーで利用している。
設置場所は、ドキュメントルートで、
echo phpinfo();
Loaded Configuration File
に反映される。

php.iniのパーミッションは600

追加内容は、
display_errors = Off
expose_php = Off

session.name = “hoge”
session.use_strict_mode=On
session.cookie_httponly=On
; HTTPSの場合
session.cookie_secure=On

allow_url_fopen = Off
file_uploads = Off

; post_max_sizeより大きくする
memory_limit = 20M
; upload_max_filesizeより大きくする
post_max_size = 20M
upload_max_filesize = 20M

・通常ファイル、ディレクトリのパーミッション

ファイル
604(もしくは644)

ディレクトリ
705(もしくは755)

・プログラム

リクエストにはワンタイムトークンを付加。
入力された値はサニタイジング。

2020-11-112020-11-11

LINE WORKS 自動起動しない

最近LINE WORKSが自動起動しなくなった。

どうやら、
Windows起動時に自動実行する
をチェックすると、
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run
にエントリされるようだが、フルパスじゃなく実行ファイル名のみになっていた。

Get-ItemProperty -Path Registry::HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

フルパスに書き換えると、1度は自動起動するが、起動時にエントリを修正するようで、また実行ファイル名のみになってダメ。

他にも、
sysdm.cpl＞環境設定＞環境変数
からパスを通してみたけどダメ。

もともと正しく自動起動していたときにどういう値だったか見ていないので、どうしようもない。

再インストールは面倒なので、
Windows起動時に自動実行する
のチェックを外し、
shell:startup
にショートカットを登録した。

2020-11-112022-03-26

さくらのレンタルサーバ HTTPS化(無料SSL)

・無料SSL有効化

サーバコントロールパネルにログイン。

左側メニュー＞ドメイン/SSL＞ドメイン/SSL
をクリック。

対象ドメインにある
SSL
をクリック。

登録設定を始めるSSL証明書の種類を選択
をクリック。

Let’s Encrypt (無料SSL)
を選択する。

SNI SSL(ネームベース)
がチェックされ、
IPベースの証明書は新規でのご提供を終了いたしました、
とあるので、そのままでOK。

しばらくすれば完了。

＊＊＊

・転送設定

SSL有効化が完了してから作業。

ドキュメントルートに.htaccessを設置するという方法もあるが、先程と同じく、
サーバコントロールパネルにログイン。

左側メニュー＞ドメイン/SSL＞ドメイン/SSL
をクリック。

対象ドメインにある
設定
をクリック。

HTTPSに転送する
にチェック。

2020-11-10

VBA ListBox参考

ListBoxの使い方を忘れてしまうので、さっき作ったものをメモ代わり。

Private Sub CommandButton1_Click()

' 検索

TextBox1.Enabled = False
CommandButton1.Enabled = False

Set w = Sheets("dat")

r = 2
Do While w.Cells(r, 1).Value <> ""

  If TextBox1.Text = w.Cells(r, 1).Value Then

    TextBox2.Text = w.Cells(r, 3).Value
    TextBox3.Text = w.Cells(r, 10).Value
    TextBox4.Text = w.Cells(r, 11).Value
    TextBox5.Text = w.Cells(r, 17).Value
    Label7.caption = r
    CommandButton2.Enabled = True
    
    Call CheckDate
    Exit Sub
  
  End If

r = r + 1
Loop

TextBox1.Enabled = True
CommandButton1.Enabled = True

End Sub

Sub CheckDate()

On Error GoTo exception

s = CDate(TextBox3.Text)
e = CDate(TextBox4.Text)
e = DateAdd("d", 1, e)

' 今日が開始日より後で終了日より前

If s < Now And e > Now Then
  Label8.caption = "OK"
Else
  Label8.caption = "NG"
End If
    
Exit Sub

exception:

Label8.caption = "-"

End Sub

Private Sub CommandButton2_Click()

' 今日の日付を登録

Set w = Sheets("dat")

If TextBox5.Text <> "" Then
  result = TextBox5.Text & ", " & Month(Now) & "/" & Day(Now)
Else
  result = Month(Now) & "/" & Day(Now)
End If

If TextBox6.Text <> "" Then
  result = result & "(" & TextBox6.Text & ")"
End If

r = Label7.caption
w.Cells(r, 17).Value = result
TextBox5.Text = result

' CommandButton2.Enabled = False

w.Activate
w.Rows(r).Select

MsgBox "登録しました。"

End Sub

Private Sub CommandButton3_Click()

' キャンセル

TextBox1.Enabled = True
CommandButton1.Enabled = True

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
Label7.caption = ""
Label8.caption = ""

CommandButton2.Enabled = False
TextBox1.SetFocus
    
End Sub

Private Sub CommandButton5_Click()

' シート書き込み

If ListBox2.ListCount = 0 Then Exit Sub

yesNo = vbYes
If TextBox2.Text = "" Then yesNo = MsgBox("氏名がありません。登録しますか？", vbYesNo)
If yesNo = vbNo Then Exit Sub

Set w = Sheets("売上")

r = 1
Do While w.Cells(r, 4).Value <> "" ' 商品名で最終行を算出
  r = r + 1
Loop
targetRow = r

memberCode = TextBox1.Text
memberName = TextBox2.Text

For r = 0 To ListBox2.ListCount - 1

  productName = ListBox2.List(r, 0)
  unitPrice = ListBox2.List(r, 1)
  amount = ListBox2.List(r, 2)
  
  w.Cells(targetRow, 1).Value = DateTime.Now
  w.Cells(targetRow, 2).Value = memberCode
  w.Cells(targetRow, 3).Value = memberName
  w.Cells(targetRow, 4).Value = productName
  w.Cells(targetRow, 5).Value = unitPrice
  w.Cells(targetRow, 6).Value = amount
  
  targetRow = targetRow + 1
  
Next r

w.Activate
w.Rows(targetRow - 1).Select

MsgBox "登録しました。"

End Sub

Private Sub CommandButton6_Click()

' クリア

ComboBox1.Text = ""
ListBox2.Clear
Label12.caption = ""

End Sub

Private Sub UserForm_Initialize()

TextBox1.SetFocus
MasterSetup

End Sub

Sub MasterSetup()

' 商品リスト

ListBox1.ColumnCount = 2

Set w = Sheets("master")

r = 2
Do While w.Cells(r, 1).Value <> ""

  productName = w.Cells(r, 1).Value
  unitPrice = w.Cells(r, 2).Value
  ListBox1.AddItem ""
  ListBox1.List(ListBox1.ListCount - 1, 0) = productName
  ListBox1.List(ListBox1.ListCount - 1, 1) = unitPrice

r = r + 1
Loop

' 売上リスト

ListBox2.ColumnCount = 4


' 数量
For i = 1 To 10
  ComboBox1.AddItem i
Next

End Sub

Private Sub CommandButton4_Click()

' 転送

If ListBox1.Text = "" Then
  MsgBox "商品を選択してください。"
  Exit Sub
End If

If ComboBox1.Text = "" Then
  MsgBox "数量を選択してください。"
  Exit Sub
End If

productName = ListBox1.List(ListBox1.ListIndex, 0)
unitPrice = ListBox1.List(ListBox1.ListIndex, 1)
amount = ComboBox1.Text

ListBox2.AddItem ""
ListBox2.List(ListBox2.ListCount - 1, 0) = productName
ListBox2.List(ListBox2.ListCount - 1, 1) = unitPrice
ListBox2.List(ListBox2.ListCount - 1, 2) = amount
ListBox2.List(ListBox2.ListCount - 1, 3) = CDec(unitPrice) * CDec(amount)

TotalPrice

End Sub

Sub TotalPrice()

result = 0
For r = 0 To ListBox2.ListCount - 1
  result = CDec(result) + CDec(ListBox2.List(r, 3))
Next r

Label12.caption = "\ " & result

End Sub

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

Private Sub CommandButton1_Click()

' 検索

TextBox1.Enabled = False

CommandButton1.Enabled = False

Set w = Sheets("dat")

r = 2

Do While w.Cells(r, 1).Value <> ""

If TextBox1.Text = w.Cells(r, 1).Value Then

TextBox2.Text = w.Cells(r, 3).Value

TextBox3.Text = w.Cells(r, 10).Value

TextBox4.Text = w.Cells(r, 11).Value

TextBox5.Text = w.Cells(r, 17).Value

Label7.caption = r

CommandButton2.Enabled = True

Call CheckDate

Exit Sub

End If

r = r + 1

Loop

TextBox1.Enabled = True

CommandButton1.Enabled = True

End Sub

Sub CheckDate()

On Error GoTo exception

s = CDate(TextBox3.Text)

e = CDate(TextBox4.Text)

e = DateAdd("d", 1, e)

' 今日が開始日より後で終了日より前

If s < Now And e > Now Then

Label8.caption = "OK"

Else

Label8.caption = "NG"

End If

Exit Sub

exception:

Label8.caption = "-"

End Sub

Private Sub CommandButton2_Click()

' 今日の日付を登録

Set w = Sheets("dat")

If TextBox5.Text <> "" Then

result = TextBox5.Text & ", " & Month(Now) & "/" & Day(Now)

Else

result = Month(Now) & "/" & Day(Now)

End If

If TextBox6.Text <> "" Then

result = result & "(" & TextBox6.Text & ")"

End If

r = Label7.caption

w.Cells(r, 17).Value = result

TextBox5.Text = result

' CommandButton2.Enabled = False

w.Activate

w.Rows(r).Select

MsgBox "登録しました。"

End Sub

Private Sub CommandButton3_Click()

' キャンセル

TextBox1.Enabled = True

CommandButton1.Enabled = True

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

Label7.caption = ""

Label8.caption = ""

CommandButton2.Enabled = False

TextBox1.SetFocus

End Sub

Private Sub CommandButton5_Click()

' シート書き込み

If ListBox2.ListCount = 0 Then Exit Sub

yesNo = vbYes

If TextBox2.Text = "" Then yesNo = MsgBox("氏名がありません。登録しますか？", vbYesNo)

If yesNo = vbNo Then Exit Sub

Set w = Sheets("売上")

r = 1

Do While w.Cells(r, 4).Value <> "" ' 商品名で最終行を算出

r = r + 1

Loop

targetRow = r

memberCode = TextBox1.Text

memberName = TextBox2.Text

For r = 0 To ListBox2.ListCount - 1

productName = ListBox2.List(r, 0)

unitPrice = ListBox2.List(r, 1)

amount = ListBox2.List(r, 2)

w.Cells(targetRow, 1).Value = DateTime.Now

w.Cells(targetRow, 2).Value = memberCode

w.Cells(targetRow, 3).Value = memberName

w.Cells(targetRow, 4).Value = productName

w.Cells(targetRow, 5).Value = unitPrice

w.Cells(targetRow, 6).Value = amount

targetRow = targetRow + 1

Next r

w.Activate

w.Rows(targetRow - 1).Select

MsgBox "登録しました。"

End Sub

Private Sub CommandButton6_Click()

' クリア

ComboBox1.Text = ""

ListBox2.Clear

Label12.caption = ""

End Sub

Private Sub UserForm_Initialize()

TextBox1.SetFocus

MasterSetup

End Sub

Sub MasterSetup()

' 商品リスト

ListBox1.ColumnCount = 2

Set w = Sheets("master")

r = 2

Do While w.Cells(r, 1).Value <> ""

productName = w.Cells(r, 1).Value

unitPrice = w.Cells(r, 2).Value

ListBox1.AddItem ""

ListBox1.List(ListBox1.ListCount - 1, 0) = productName

ListBox1.List(ListBox1.ListCount - 1, 1) = unitPrice

r = r + 1

Loop

' 売上リスト

ListBox2.ColumnCount = 4

' 数量

For i = 1 To 10

ComboBox1.AddItem i

End Sub

Private Sub CommandButton4_Click()

' 転送

If ListBox1.Text = "" Then

MsgBox "商品を選択してください。"

Exit Sub

End If

If ComboBox1.Text = "" Then

MsgBox "数量を選択してください。"

Exit Sub

End If

productName = ListBox1.List(ListBox1.ListIndex, 0)

unitPrice = ListBox1.List(ListBox1.ListIndex, 1)

amount = ComboBox1.Text

ListBox2.AddItem ""

ListBox2.List(ListBox2.ListCount - 1, 0) = productName

ListBox2.List(ListBox2.ListCount - 1, 1) = unitPrice

ListBox2.List(ListBox2.ListCount - 1, 2) = amount

ListBox2.List(ListBox2.ListCount - 1, 3) = CDec(unitPrice) * CDec(amount)

TotalPrice

End Sub

Sub TotalPrice()

result = 0

For r = 0 To ListBox2.ListCount - 1

result = CDec(result) + CDec(ListBox2.List(r, 3))

Next r

Label12.caption = "\ " & result

End Sub

2020-11-032025-04-27

WatchGuard VPN ClientからOpenVPN GUIに変更

ときどき利用しているWatchGuard VPN Clientの調子が悪く、接続プロセス中に止ってしまうことが多くなった。

情報も少なく原因追求もできなかったので、試しにOpenVPNのクライアントをそのまま使ってみようかと考えた。
https://www.openvpn.jp/download/
から
OpenVPN-x.x.x-I601-amd64.msi
をダウンロード＋インストールし、
C:\Users\xxx\AppData\Roaming\WatchGuard\Mobile VPN
の中にある、
ca.crt
client.crt
client.ovpn
client.pem
の４つのファイルを、そのまま
C:\Program Files\OpenVPN\config
の中にコピーしたらOpenVPN GUIで接続できたので、しばらく使ってみる。

＊＊＊

追記：数ヶ月利用してみた結果、OpenVPNの方が安定しているような感じで、一度も問題は発生しなかった。

一応、WatchGuardの方は、
https://software.watchguard.com/SoftwareHome
からFirebox and XTMの中で適当な製品を開き、
(Software for Firebox M270, M370, M470, M570 and M670)
Mobile VPN with SSL xx.x for Windows
の最新版をダウンロードして入れたら動くようにはなった。

＊＊＊

追記：1年以上OpenVPNを利用したが特に問題なし。

少し気になったのが、VPNを有効にすると、ネット接続が全てVPN経由になってしまうこと。時々切断を忘れることもあるので、特定のIPアドレスの範囲だけVPN経由に変更。

NICのメトリックで対応できるかと思ったけど、接続を実行すると、
ネットワーク宛先 / ネットマスク / ゲートウェイ / インターフェイス
0.0.0.0 / 128.0.0.0 / 192.168.113.1 / 192.168.113.5
128.0.0.0 / 128.0.0.0 / 192.168.113.1 / 192.168.113.5
(192.168.113.5がVPNのNIC)
というルーティングが追加されてしまうようでダメだった。

ちなみに、もともと存在するデフォルトルートは、
0.0.0.0 / 0.0.0.0 / 192.168.11.1 / 192.168.11.18
(192.168.11.18が物理NIC)

OpenVPNの情報が少なく適当ではあるけど、
C:\Program Files\OpenVPN\config\client.ovpn
に、
route-nopull
route 192.168.0.0 255.255.248.0
と追加した。
(192.168.0.1～192.168.7.254までVPN経由)

client.ovpnの名前を変更して、*.ovpnを複数作成すると、タスクトレイのアイコンから選択して接続できる。

＊＊＊

クライアントを2.5.8＞2.6.0に上げたらエラーが出たのでエラーの内容から、client.ovpnに、
data-ciphers AES-128-CBC
と追加した。

＊＊＊

;redirect-gateway def1
タイミングは不明だけどVPNオンのデフォルトルートが変わるようになってしまった。のようにコメントアウトすると大丈夫だった。

2020-10-302021-07-03

VBA 起動部分テンプレート

いつも忘れてしまうのでメモ。

右クリックメニューの階層化。高速化等々。

Dim caption As String

Sub auto_open()

On Error Resume Next

caption = "会員検索フォーム"

For i = 1 To 3
  Application.CommandBars("cell").Controls(caption).Delete
Next

With Application.CommandBars("cell").Controls.Add
  .OnAction = "show_form"
  .caption = caption
End With

Call show_form

'With Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup)
'  .caption = "メニュー"
'  With .Controls.Add(Type:=msoControlButton)
'  .caption = "アイテム"
'  .OnAction = "show_form"
'  End With
'End With

End Sub

Sub auto_close()

On Error Resume Next

For i = 1 To 3
  Application.CommandBars("cell").Controls(caption).Delete
Next

' Application.CommandBars("cell").Controls("メニュー").Delete

End Sub

Sub Initialize()

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual ' 関数利用注意
    
End Sub

Sub Finalize()

Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
    
End Sub

Dim caption As String

Sub auto_open()

On Error Resume Next

caption = "会員検索フォーム"

For i = 1 To 3

Application.CommandBars("cell").Controls(caption).Delete

With Application.CommandBars("cell").Controls.Add

.OnAction = "show_form"

.caption = caption

End With

Call show_form

'With Application.CommandBars("cell").Controls.Add(Type:=msoControlPopup)

' .caption = "メニュー"

' With .Controls.Add(Type:=msoControlButton)

' .caption = "アイテム"

' .OnAction = "show_form"

' End With

'End With

End Sub

Sub auto_close()

On Error Resume Next

For i = 1 To 3

Application.CommandBars("cell").Controls(caption).Delete

' Application.CommandBars("cell").Controls("メニュー").Delete

End Sub

Sub Initialize()

Application.ScreenUpdating = False

Application.EnableEvents = False

Application.DisplayAlerts = False

Application.Calculation = xlCalculationManual ' 関数利用注意

End Sub

Sub Finalize()

Application.Calculation = xlCalculationAutomatic

Application.DisplayAlerts = True

Application.EnableEvents = True

Application.ScreenUpdating = True

End Sub

2020-10-272020-10-28

PHP お問い合わせフォーム

<?php
//error_reporting(-1);
//ini_set('display_errors', 'On');
session_start();

if (isset($_POST["nn"]) && $_POST["token"] == $_SESSION["token"]) {

  $smtp = "";
  $to = "";
  $subject = "件名";
  $message = "名前：" . h($_POST["nn"]);
  $from = "";

  ini_set("SMTP", $smtp);
  ini_set("smtp_port","587");

  mb_language("japanese");
  mb_internal_encoding("UTF-8");
  mb_send_mail($to, $subject, $message, "From:" . $from);

  echo "<script>(function(){alert('送信しました。');}());</script>";

} else {

}

$_SESSION["token"] = md5(mt_rand());

function h($s){
  return htmlspecialchars($s, ENT_QUOTES, "UTF-8");
}

?>

<!DOCTYPE html>
<html lang="ja">
<head>
  <meta charset="UTF-8">
  <title>お問い合わせテスト</title>
  <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.5.1/jquery.min.js"></script>
</head>
<body>

<form action="" method="post" id="ff">
名前：<input type="text" name="nn" id="nn">
<input type="submit" value="送信">
<input type="hidden" name="token" value="<?php echo $_SESSION["token"]; ?>">
</form>

<script>

$("#ff").submit(function(){
  
  if($("#nn").val() == ""){
    alert("名前の入力は必須です。")
    return false;
  }

  return true;

});

</script>

</body>
</html>

<?php

//error_reporting(-1);

//ini_set('display_errors', 'On');

session_start();

if (isset($_POST["nn"]) && $_POST["token"] == $_SESSION["token"]) {

$smtp = "";

$to = "";

$subject = "件名";

$message = "名前：" . h($_POST["nn"]);

$from = "";

ini_set("SMTP", $smtp);

ini_set("smtp_port","587");

mb_language("japanese");

mb_internal_encoding("UTF-8");

mb_send_mail($to, $subject, $message, "From:" . $from);

echo "<script>(function(){alert('送信しました。');}());</script>";

} else {

}

$_SESSION["token"] = md5(mt_rand());

function h($s){

return htmlspecialchars($s, ENT_QUOTES, "UTF-8");

}

<!DOCTYPE html>

<head>

<title>お問い合わせテスト</title>

</head>

<body>

名前：<input type="text" name="nn" id="nn">

</form>

$("#ff").submit(function(){

if($("#nn").val() == ""){

alert("名前の入力は必須です。")

return false;

}

return true;

});

</script>

</body>

</html>

2020-10-182022-06-10

C# Reflection DataTableをListに代入

DataGridViewのDataSourceにList<Model>を渡すとき、DataTableからList<Model>に代入をReflectionで作ってみる。普段はそのまま名前を書いてしまうことも多い。

        private List<EmployeeModel> CreateModel(string queryString)
        {
            var modelType = typeof(EmployeeModel); // GetType()
            var models = new List<EmployeeModel>();
            List<string> propNameList = new List<string>(modelType.GetProperties().Select(x => x.Name));
            var dt = ExecuteQuery(queryString);
            for (int r = 0; r < dt.Rows.Count; r++)
            {
                var constructor = modelType.GetConstructor(System.Type.EmptyTypes);
                var model = (EmployeeModel)constructor.Invoke(null); // (EmployeeModel)Activator.CreateInstance(modelType);

                foreach(var propName in propNameList)
                {
                    modelType.GetProperty(propName).SetValue(model, dt.Rows[r][propName].ToString());
                }
                models.Add(model);
            }
            return models;
        }

private List<EmployeeModel> CreateModel(string queryString)

{

var modelType = typeof(EmployeeModel); // GetType()

var models = new List<EmployeeModel>();

List<string> propNameList = new List<string>(modelType.GetProperties().Select(x => x.Name));

var dt = ExecuteQuery(queryString);

for (int r = 0; r < dt.Rows.Count; r++)

{

var constructor = modelType.GetConstructor(System.Type.EmptyTypes);

var model = (EmployeeModel)constructor.Invoke(null); // (EmployeeModel)Activator.CreateInstance(modelType);

foreach(var propName in propNameList)

{

modelType.GetProperty(propName).SetValue(model, dt.Rows[r][propName].ToString());

}

models.Add(model);

}

return models;

}

2020-10-092025-03-14

SSL/TLS メモ

SSL/TLSは分かりづらいのでメモ

●SSLとTLS
Secure Sockets Layer
Transport Layer Security

SSLは既に廃止､プロトコルとしてはTLSのみ｡呼称としてのみSSL｡

●公開鍵暗号
公開鍵は暗号化
秘密鍵は復号化､公開鍵の生成｡
※秘密鍵で暗号化というのは考えない｡

●バージョン

Chromeデベロッパーツール>セキュリティ

●SSL/TLS証明書発行プロセス

サーバー管理者は､CSR(証明書署名要求)生成し､CA(認証局)に送付｡
CSRには､公開鍵､組織情報などがDERエンコードされて含まれる｡
↓
CAは､CSRをSHA-256でハッシュ化
↓
ハッシュに対して､中間CAの秘密鍵で署名※ルート証明書は直接使用しない
↓
CSRにデジタル署名を付加してサーバー証明書(X.509)を生成する｡
↓
サーバーは､
･サーバー証明書(X.509) / .crt
･中間証明書 / .crt
･秘密鍵※CSR生成時､CSRに含まれる公開鍵とペアの秘密鍵 / .key
をインストール

※以下ハンドシェイク(TLSのバージョンによって違う)

･共通鍵生成
お互い､非公開パラメータと公開パラメータを生成し、公開パラメータを相手に送る｡

･サーバーはクライアントに署名済証明書(中間CA証明書なども)を送付

･クライアントは署名済証明書に改ざんがないか検証
署名済証明書を検証鍵(公開鍵)で復号化し､CSRから計算したハッシュと､
復号化したハッシュを比較する｡
※検証鍵はOS/ブラウザにインストールされている