最終更新日 2007年8月14日
up
top
VB.NETでPHP関数大作戦
VB.NETで使えるPHP互換関数を作っていきます。
php_base64_encode
php_base64_encode ― MIME base64 方式でデータをエンコードする
説明
string php_base64_encode ( data as String )
指定した data を base64 でエンコードします。
このエンコードは、メールの本体のように
8 ビットクリーンではないトランスポート層を通じても、
バイナリデータが生き残れるように設計されています。
Base64 でエンコードされたデータは、エンコード前のデータにくらべて 33% 余計に容量が必要です。
パラメータ
- data
-
エンコードするデータ。
返り値
エンコードされたデータを文字列で返します。
コード
Private Function php_base64_encode(ByVal data As String) As String
Dim Utf8 As New UTF8Encoding
Return System.Convert.ToBase64String(Utf8.GetBytes(data))
End Function
php_md5_filee
php_md5_file ― 指定したファイルのMD5ハッシュ値を計算する
説明
string php_md_file ( filename As String )
»
RSA Data Security, Inc. MD5 メッセージダイジェストアルゴリズムを用いてfilenameパラメータで指定したファイルのMD5ハッシュを計算し、そのハッシュを返します。
ハッシュは、32 文字の 16 進数です。
パラメータ
- filename
-
ファイル名
コード
Imports System.Security.Cryptography
Public Function php_md5_file(ByVal filename As String) As String
Dim byteStream As Byte() = File.ReadAllBytes(filename)
Dim md5 As New MD5CryptoServiceProvider()
Dim md5s As Byte() = md5.ComputeHash(byteStream)
Dim result As String = BitConverter.ToString(md5s).ToLower().Replace("-", "")
Return (result)
End Function
php_time
php_time ― 現在の Unix タイムスタンプを返す
説明
int php_time ( Nothing )
現在時刻を Unix エポック (1970 年 1 月 1 日 00:00:00 GMT)からの通算秒として返します。
コード
Public Function php_time() As Integer
Dim unixTime As TimeSpan = Now.Subtract("1970/01/01 00:00:00")
Return Int(unixTime.TotalSeconds)
End Function