SQLの窓

2009年05月07日


VB.NET : SHA256

入力値を EUC-JP(51932) で SHA256。

Imports System.Security.Cryptography
Imports System.Text
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click

	Dim str_data = Me.TextBox2.Text
	Dim bin_data As Byte() = System.Text.Encoding.GetEncoding(51932).GetBytes(str_data)
	Dim sha256_bin As Byte() = Nothing
	Dim shaM As New SHA256Managed()
	sha256_bin = shaM.ComputeHash(bin_data)

	Dim sha256String As StringBuilder = New System.Text.StringBuilder()
	Dim work As Byte
	For Each work In sha256_bin
		sha256String.Append(work.ToString("x2"))
	Next

	Me.TextBox3.Text = sha256String.ToString()

End Sub



posted by lightbox at 2009-05-07 15:53 | VB.NET : ベーシック | このブログの読者になる | 更新情報をチェックする
container 終わり



フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

CSS ドロップシャドウの参考デモ
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり