ファイルの暗号化

TypeDef ALG_ID = Long
TypeDef HCRYPTHASH = HANDLE
TypeDef HCRYPTKEY = HANDLE
TypeDef HCRYPTPROV = HANDLE

Const _WIN32_WINNT = &H0500
Const CRYPT_EXPORTABLE = &H00000001
Const PROV_RSA_FULL=1
Const AT_KEYEXCHANGE=1
Const ALG_TYPE_BLOCK=1536
Const ALG_CLASS_DATA_ENCRYPT=24576
Const ALG_SID_RC2=2
Const CALG_RC2=ALG_CLASS_DATA_ENCRYPT Or ALG_TYPE_BLOCK Or ALG_SID_RC2
Const SIMPLEBLOB=&H1
Const MS_DEF_PROV_A="Microsoft Base Cryptographic Provider v1.0"
Const MS_DEF_PROV_W="Microsoft Base Cryptographic Provider v1.0"
Const CRYPT_NEWKEYSET=&H00000008
Const AT_SIGNATURE=2

#Ifdef UNICODE
	Const MS_DEF_PROV=MS_DEF_PROV_W
	Const _FuncName_CryptAcquireContext	=	"CryptAcquireContextW"
#Else
	Const MS_DEF_PROV=MS_DEF_PROV_A
	Const _FuncName_CryptAcquireContext	=	"CryptAcquireContextA"
#endIf

Declare Function CryptAcquireContext Lib "advapi32" Alias _FuncName_CryptAcquireContext (phProv As *HCRYPTPROV, pszContainer As BytePtr, pszProvider As BytePtr, dwProvType As DWord, dwFlags As DWord) As BOOL
Declare Function CryptDecrypt Lib "advapi32" (hKey As HCRYPTKEY, hHash As HCRYPTHASH, Final As BOOL, dwFlags As DWord, pbData As BytePtr, pdwDataLen As DWordPtr) As BOOL
Declare Function CryptDestroyKey Lib "advapi32" (hKey As HCRYPTKEY) As BOOL
Declare Function CryptEncrypt Lib "advapi32" (hKey As HCRYPTKEY, hHash As HCRYPTHASH, Final As Long, dwFlags As DWord, pbData As BytePtr, pdwDataLen As *DWord, dwBufLen As DWord) As BOOL
Declare Function CryptExportKey Lib "advapi32" (hKey As HCRYPTKEY, hExpKey As HCRYPTKEY, dwBlobType As DWord, dwFlags As DWord, pbData As BytePtr, pdwbDataLen As *DWord) As BOOL
Declare Function CryptGenKey Lib "advapi32" (hProv As HCRYPTPROV, algid As ALG_ID, dwFlags As DWord, phKey As *HCRYPTKEY) As BOOL
Declare Function CryptGetUserKey Lib "advapi32" (hProv As HCRYPTPROV, dwKeySpec As DWord, phUserKey As *HCRYPTKEY) As BOOL
Declare Function CryptImportKey Lib "advapi32" (hProv As HCRYPTPROV, pbData As BytePtr, dwDataLen As DWord, hPubKey As HCRYPTKEY, dwFlags As DWord, phKey As *HCRYPTKEY) As BOOL
Declare Function CryptReleaseContext Lib "advapi32" (hProv As HCRYPTPROV, dwFlags As DWord) As BOOL

[ここをクリックすると内容が表示されます]

コード:

Function Export Encrypt(hWnd As HWND, Temp As BytePtr, Out As BytePtr) As BOOL
	Dim hOrg As HANDLE, hAfter As HANDLE
	Dim pbBuf[ELM(4096)] As Byte
	Dim bEnd = FALSE As Long
	Dim hCryptprov As HCRYPTPROV
	Dim hExKey As HCRYPTKEY, hKey As HCRYPTKEY
	Dim dwByte As DWord, dwResult As DWord
	Dim ofn As OPENFILENAME

	FillMemory(VarPtr(ofn),Len(ofn),0)
	ofn.lStructSize = Len(ofn)
	ofn.lpstrFile = Temp
	ofn.nMaxFile = MAX_PATH
	ofn.Flags = OFN_FILEMUSTEXIST or OFN_HIDEREADONLY

	If CryptAcquireContext(VarPtr(hCryptprov), NULL, NULL, PROV_RSA_FULL, 0) = FALSE Then
		MessageBox(NULL, "CryptAcquireContext Error", "Error", MB_OK)
		Return FALSE
	End If
	
	If CryptGetUserKey(hCryptprov, AT_KEYEXCHANGE, VarPtr(hExKey)) = FALSE Then
		MessageBox(NULL, "CryptGetUserKey Error", "Error", MB_OK)
		Return FALSE
	End If
	
	If CryptGenKey(hCryptprov, CALG_RC2, CRYPT_EXPORTABLE, VarPtr(hKey)) = FALSE Then
		MessageBox(NULL, "CryptGenKey Error", "Error", MB_OK)
		Return FALSE
	End If
	
	CryptExportKey(hKey, hExKey, SIMPLEBLOB, 0, NULL, VarPtr(dwByte))
	If CryptExportKey(hKey, hExKey, SIMPLEBLOB, 0, pbBuf, VarPtr(dwByte)) = FALSE Then
		MessageBox(NULL, "CryptExportKey Error", "Error", MB_OK)
		Return FALSE
	End If
	
	hOrg = CreateFile(Temp, GENERIC_READ, FILE_SHARE_READ,	ByVal NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
	hAfter = CreateFile(Out, GENERIC_WRITE, FILE_SHARE_READ, ByVal NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
	WriteFile(hAfter, VarPtr(dwByte), Len(dwByte), VarPtr(dwResult), ByVal NULL)
	WriteFile(hAfter, pbBuf, dwByte, Varptr(dwResult), ByVal NULL)

	While 1
		ReadFile(hOrg, pbBuf, SizeOf(Byte)*4096, VarPtr(dwByte), ByVal NULL)
		If dwByte < Len(pbBuf) Then
			bEnd = TRUE
		End If
		CryptEncrypt(hKey, 0, bEnd, 0, pbBuf, VarPtr(dwByte), SizeOf(Byte)*4096)
		WriteFile(hAfter, pbBuf, dwByte, VarPtr(dwResult), ByVal NULL)
		If bEnd Then
			Exit While
		End If
	Wend
	
	CryptDestroyKey(hKey)
	CryptDestroyKey(hExKey)
	CryptReleaseContext(hCryptprov, 0)
	CloseHandle(hOrg)
	CloseHandle(hAfter)

	Return TRUE
End Function

※コードを見ればわかりますが、DLL でやっています。

最後に編集したユーザー M.S. [ 2008年3月29日(土) 19:32 ], 累計 3 回

通報する

ページトップ

プロフィール

引用付きで返信する

hira

記事の件名: Re: ファイルの暗号化

投稿記事Posted: 2008年3月09日(日) 22:52

オフライン

登録日時: 2005年5月31日(火) 20:14
記事: 203
お住まい: 兵庫県

C言語とは違い、SizeOf関数の引数にできるのは、データ型のみです(例えば SizeOf(Long) のように使います)。
変数のサイズを取得する場合はLen関数を使います。
すなわち
If dwByte < SizeOf(pbBuf) Then
↓
If dwByte < Len(pbBuf) Then
となります(SizeOf(pbBuf) の記述がもう1箇所ありますが、そちらも同様です)。

_________________
[hira]
http://hira.hopto.org/

通報する

ページトップ

プロフィール

引用付きで返信する

M.S.

記事の件名: Re: ファイルの暗号化

投稿記事Posted: 2008年3月09日(日) 23:13

オフライン

登録日時: 2005年6月01日(水) 21:51
記事: 212
お住まい: 奈良県北西部

> C言語とは違い、SizeOf関数の引数にできるのは、データ型のみです(例えば SizeOf(Long) のように使います)。
> 変数のサイズを取得する場合はLen関数を使います。
> すなわち
> If dwByte < SizeOf(pbBuf) Then
> ↓
> If dwByte < Len(pbBuf) Then
> となります(SizeOf(pbBuf) の記述がもう1箇所ありますが、そちらも同様です)。

エラーが出た部分を "Len" に書き換えてもなっていたので、
何故エラーが無くならないのかと思っていましたが、
もうひとつ "sizeof" になっているところがあったのに気付いていませんでした。
多分言われなければ全然気づかず放置していたと思います。
hira さん、ありがとうございました！

載せたコードですが、
元の C のコードを見て（厳密にはコピペして AB 用に修正）しましたが、
C をよく理解していないため間違っているかもしれないので、
そちらの方もどなたか見ていただけるとありがたいです。
（特に ReadFile, WriteFile のあたりを中心に…）

通報する

ページトップ

プロフィール

引用付きで返信する

hira

記事の件名: Re: ファイルの暗号化

投稿記事Posted: 2008年3月09日(日) 23:35

オフライン

登録日時: 2005年5月31日(火) 20:14
記事: 203
お住まい: 兵庫県

WriteFile(hAfter, VarPtr(dwByte), Len(dwByte), VarPtr(dwResult), ByVal NULL)

ReadFile(hOrg, pbBuf, Len(pbBuf), VarPtr(dwByte), ByVal NULL)

といった感じでしょうか。
後は細かいですが、C言語で指定する配列の要素数と、ActiveBasicで指定する配列の要素数は意味合いが違います。
C言語で

int a[10];

と書くと添え字は0～9で要素は10個ですが、これをActiveBasicに移植するときに

Dim a[10] As Long

と書くと0～10の11個になります。正しい書き換えは

Dim a[9] As Long

となりますが、要素数が10であることを表明する(というよりC言語風の)書き方として

Dim a[ELM(10)] As Long

とすることもできます。
投稿されたコードなら

Dim pbBuf[ELM(4096)] As Byte

など。要素数が少なすぎるわけではないので、実害は少ないかもしれませんが、構造体のサイズになるとアドレスがずれてくるので不具合の原因になったりします。

それから…ハンドル型(HCRYPTPROVなど、Hで始まる型)をTypeDefするときは元のデータ型をLongではなくHANDLEにしておいたほうがよいかと思われます。今は問題ないですが、将来64ビット化したときにはハンドルやポインタはInt64に相当するサイズ(64ビット)になるので、そのときに問題が起こるのでしょう。

色々細かく書いてしまいました。m(_ _)m

_________________
[hira]
http://hira.hopto.org/

通報する

ページトップ

プロフィール

引用付きで返信する

M.S.

記事の件名: Re: ファイルの暗号化

投稿記事Posted: 2008年3月10日(月) 00:16

オフライン

登録日時: 2005年6月01日(水) 21:51
記事: 212
お住まい: 奈良県北西部

> WriteFile(hAfter, VarPtr(dwByte), Len(dwByte), VarPtr(dwResult), ByVal NULL)
>
> ReadFile(hOrg, pbBuf, Len(pbBuf), VarPtr(dwByte), ByVal NULL)
>
> といった感じでしょうか。
> 後は細かいですが、C言語で指定する配列の要素数と、ActiveBasicで指定する配列の要素数は意味合いが違います。
> C言語で
>
> int a[10];
>
> と書くと添え字は0～9で要素は10個ですが、これをActiveBasicに移植するときに
>
> Dim a[10] As Long
>
> と書くと0～10の11個になります。正しい書き換えは
>
> Dim a[9] As Long
>
> となりますが、要素数が10であることを表明する(というよりC言語風の)書き方として
>
> Dim a[ELM(10)] As Long
>
> とすることもできます。
> 投稿されたコードなら
>
> Dim pbBuf[ELM(4096)] As Byte
>
> など。要素数が少なすぎるわけではないので、実害は少ないかもしれませんが、構造体のサイズになるとアドレスがずれてくるので不具合の原因になったりします。
>

配列は気をつけないといけないのですね
今まで気にしたことがありませんでしたが、
不具合の原因になったりするんですね・・・。

> それから…ハンドル型(HCRYPTPROVなど、Hで始まる型)をTypeDefするときは元のデータ型をLongではなくHANDLEにしておいたほうがよいかと思われます。今は問題ないですが、将来64ビット化したときにはハンドルやポインタはInt64に相当するサイズ(64ビット)になるので、そのときに問題が起こるのでしょう。
>

全く気にしていませんでしたというか、
ハンドル型であることに気づいていませんでした。(^^;)
ありがとうございます。

> 色々細かく書いてしまいました。m(_ _)m

解りやすくてよかったです、
ありがとうございます。

移植するときはいつも hira さんのサイトの、
逆引きリファレンスを参考にやっていますが、
やっぱり C を解っていないとダメですね(^^;)

色々解説していただき、ありがとうございました。m(_ _)m

通報する

ページトップ

プロフィール

引用付きで返信する

M.S.

記事の件名:

投稿記事Posted: 2008年3月11日(火) 00:28

オフライン

登録日時: 2005年6月01日(水) 21:51
記事: 212
お住まい: 奈良県北西部

作った DLL で暗号化しようとすると、
「CryptAcquireContext Error」
と出てしまいます。
一度だけエラーが出ずに暗号化を終了したのですが、
それ以降ずっと出てしまいます。
既に "Crypt" の初期化はしてあります。
どうして "CryptAcquireContext" で失敗してしまうのでしょうか？

通報する

ページトップ

プロフィール

引用付きで返信する

hira

記事の件名:

投稿記事Posted: 2008年3月12日(水) 23:28

オフライン

登録日時: 2005年5月31日(火) 20:14
記事: 203
お住まい: 兵庫県

「"Crypt" の初期化」とは、第264章に書いてある内容のことを仰っているのでしょうか？
ということは、他に考えられる点は

1) API関数の宣言

よく見ると *HCTYPTKEYの*が抜けていた箇所がいくつかあったので修正。

[ここをクリックすると内容が表示されます]

コード:

Declare Function CryptAcquireContext Lib "advapi32" Alias "CryptAcquireContextA" (phProv As *HCRYPTPROV, pszContainer As BytePtr, pszProvider As BytePtr, dwProvType As DWord, dwFlags As DWord) As BOOL
Declare Function CryptDestroyKey Lib "advapi32" (hKey As HCRYPTKEY) As BOOL
Declare Function CryptEncrypt Lib "advapi32" (hKey As HCRYPTKEY, hHash As HCRYPTHASH, Final As Long, dwFlags As DWord, pbData As BytePtr, pdwDataLen As *DWord, dwBufLen As DWord) As BOOL
Declare Function CryptExportKey Lib "advapi32" (hKey As HCRYPTKEY, hExpKey As HCRYPTKEY, dwBlobType As DWord, dwFlags As DWord, pbData As BytePtr, pdwbDataLen As *DWord) As BOOL
Declare Function CryptGenKey Lib "advapi32" (hProv As HCRYPTPROV, algid As ALG_ID, dwFlags As DWord, phKey As *HCRYPTKEY) As BOOL
Declare Function CryptGetUserKey Lib "advapi32" (hProv As HCRYPTPROV, dwKeySpec As DWord, phUserKey As *HCRYPTKEY) As BOOL
Declare Function CryptReleaseContext Lib "advapi32" (hProv As HCRYPTPROV, dwFlags As DWord) As BOOL

2) TRUEの意味合い
MSDNによると、暗号化APIの戻り値は成功したら「0以外」とあるので、「<>TRUE」とすると予期せぬ結果になるかもしれません(ならないかもしれません)。
ActiveBasicでのTRUEは定数の「1」ですので、「<>TRUE」すなわち「1以外」と、失敗を表す「FALSE(0)である」は必ずしも同値とは限りません。「<>TRUE」の代わりに「=FALSE」にしてみるとよいかもしれません。

3) Return
ActiveBasicのバージョンによっては、ReturnはC言語でいうreturnと違う意味を表します。
C言語でいう return xxx; と同様の表現としては

コード:

(関数名)=xxx
Exit Function

というのが考えられます。

あとは構造体ofnにデータを格納した後に

コード:

If GetOpenFileName(ofn)=FALSE Then
	Exit Function
End If

これがないとファイル名が取れませんので…

※CryptAcquireContextは成功しましたが、今度はCryptGetUserKeyでGetLastError()がNTE_NO_KEYを返して失敗したので、例の「初期化」がうまくいっていれば動くような気がします。なお、こちらで使用したのはActiveBasic4.24です。

_________________
[hira]
http://hira.hopto.org/

通報する

ページトップ

プロフィール

引用付きで返信する

M.S.

記事の件名:

投稿記事Posted: 2008年3月23日(日) 16:18

オフライン

登録日時: 2005年6月01日(水) 21:51
記事: 212
お住まい: 奈良県北西部

返信遅くなってしまい、申し訳ありません。

> 「"Crypt" の初期化」とは、第264章に書いてある内容のことを仰っているのでしょうか？

そのとおりです。

> ということは、他に考えられる点は
>
> 1) API関数の宣言
>
> よく見ると *HCTYPTKEYの*が抜けていた箇所がいくつかあったので修正。
>

[ここをクリックすると内容が表示されます]

コード:

Declare Function CryptAcquireContext Lib "advapi32" Alias "CryptAcquireContextA" (phProv As *HCRYPTPROV, pszContainer As BytePtr, pszProvider As BytePtr, dwProvType As DWord, dwFlags As DWord) As BOOL
> Declare Function CryptDestroyKey Lib "advapi32" (hKey As HCRYPTKEY) As BOOL
> Declare Function CryptEncrypt Lib "advapi32" (hKey As HCRYPTKEY, hHash As HCRYPTHASH, Final As Long, dwFlags As DWord, pbData As BytePtr, pdwDataLen As *DWord, dwBufLen As DWord) As BOOL
> Declare Function CryptExportKey Lib "advapi32" (hKey As HCRYPTKEY, hExpKey As HCRYPTKEY, dwBlobType As DWord, dwFlags As DWord, pbData As BytePtr, pdwbDataLen As *DWord) As BOOL
> Declare Function CryptGenKey Lib "advapi32" (hProv As HCRYPTPROV, algid As ALG_ID, dwFlags As DWord, phKey As *HCRYPTKEY) As BOOL
> Declare Function CryptGetUserKey Lib "advapi32" (hProv As HCRYPTPROV, dwKeySpec As DWord, phUserKey As *HCRYPTKEY) As BOOL
> Declare Function CryptReleaseContext Lib "advapi32" (hProv As HCRYPTPROV, dwFlags As DWord) As BOOL

>
> 2) TRUEの意味合い
> MSDNによると、暗号化APIの戻り値は成功したら「0以外」とあるので、「<>TRUE」とすると予期せぬ結果になるかもしれません(ならないかもしれません)。
> ActiveBasicでのTRUEは定数の「1」ですので、「<>TRUE」すなわち「1以外」と、失敗を表す「FALSE(0)である」は必ずしも同値とは限りません。「<>TRUE」の代わりに「=FALSE」にしてみるとよいかもしれません。
>
> 3) Return
> ActiveBasicのバージョンによっては、ReturnはC言語でいうreturnと違う意味を表します。
> C言語でいう return xxx; と同様の表現としては
>

コード:

(関数名)=xxx
> Exit Function

> というのが考えられます。
>

AB5 CP4 でやったので、
return は大丈夫だと思います。

[ここをクリックすると内容が表示されます]

コード:

#Ifdef UNICODE
	Const _FuncName_CryptAcquireContext	=	"CryptAcquireContextW"
#Else
	Const _FuncName_CryptAcquireContext	=	"CryptAcquireContextA"
#endIf

Declare Function CryptAcquireContext Lib "advapi32" Alias _FuncName_CryptAcquireContext (phProv As *HCRYPTPROV, pszContainer As BytePtr, pszProvider As BytePtr, dwProvType As DWord, dwFlags As DWord) As BOOL

をやりたかったので(^^;)

> あとは構造体ofnにデータを格納した後に
>

コード:

If GetOpenFileName(ofn)=FALSE Then
> 	Exit Function
> End If

> これがないとファイル名が取れませんので…
>

初めに載せたコードには誤りがあるので、
現在の修正済みのコードを載せます。

[ここをクリックすると内容が表示されます]

コード:

Function Export Encrypt(hWnd As HWND, Temp As BytePtr, Out As BytePtr) As BOOL
	Dim hOrg As HANDLE, hAfter As HANDLE
	Dim pbBuf[ELM(4096)] As Byte
	Dim bEnd = FALSE As Long
	Dim hCryptprov As HCRYPTPROV
	Dim hExKey As HCRYPTKEY, hKey As HCRYPTKEY
	Dim dwByte As DWord, dwResult As DWord
	Dim ofn As OPENFILENAME

	FillMemory(VarPtr(ofn),Len(ofn),0)
	ofn.lStructSize = Len(ofn)
	ofn.lpstrFile = Temp
	ofn.nMaxFile = MAX_PATH
	ofn.Flags = OFN_FILEMUSTEXIST or OFN_HIDEREADONLY

	If CryptAcquireContext(VarPtr(hCryptprov), NULL, NULL, PROV_RSA_FULL, 0) = FALSE Then
		MessageBox(NULL, "CryptAcquireContext Error", "Error", MB_OK)
		Return FALSE
	End If
	
	If CryptGetUserKey(hCryptprov, AT_KEYEXCHANGE, VarPtr(hExKey)) = FALSE Then
		MessageBox(NULL, "CryptGetUserKey Error", "Error", MB_OK)
		Return FALSE
	End If
	
	If CryptGenKey(hCryptprov, CALG_RC2, CRYPT_EXPORTABLE, VarPtr(hKey)) = FALSE Then
		MessageBox(NULL, "CryptGenKey Error", "Error", MB_OK)
		Return FALSE
	End If
	
	CryptExportKey(hKey, hExKey, SIMPLEBLOB, 0, NULL, VarPtr(dwByte))
	If CryptExportKey(hKey, hExKey, SIMPLEBLOB, 0, pbBuf, VarPtr(dwByte)) = FALSE Then
		MessageBox(NULL, "CryptExportKey Error", "Error", MB_OK)
		Return FALSE
	End If
	
	hOrg = CreateFile(Temp, GENERIC_READ, FILE_SHARE_READ,	ByVal NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
	hAfter = CreateFile(Out, GENERIC_WRITE, FILE_SHARE_READ, ByVal NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
	WriteFile(hAfter, VarPtr(dwByte), Len(dwByte), VarPtr(dwResult), ByVal NULL)
	WriteFile(hAfter, pbBuf, Len(dwByte), Varptr(dwResult), ByVal NULL)

	While 1
		ReadFile(hOrg, pbBuf, Len(pbBuf), VarPtr(dwByte), ByVal NULL)
		If dwByte < Len(pbBuf) Then
			bEnd = TRUE
		End If
		CryptEncrypt(hKey, 0, bEnd, 0, pbBuf, VarPtr(dwByte), Len(pbBuf))
		WriteFile(hAfter, pbBuf, Len(dwByte), VarPtr(dwResult), ByVal NULL)
		If bEnd Then
			Exit While
		End If
	Wend
	
	CryptDestroyKey(hKey)
	CryptDestroyKey(hExKey)
	CryptReleaseContext(hCryptprov, 0)
	CloseHandle(hOrg)
	CloseHandle(hAfter)

	Return TRUE
End Function

> ※CryptAcquireContextは成功しましたが、今度はCryptGetUserKeyでGetLastError()がNTE_NO_KEYを返して失敗したので、例の「初期化」がうまくいっていれば動くような気がします。なお、こちらで使用したのはActiveBasic4.24です。

エラーは無くなったのですが、
超肥大化したファイルが出力されてしまいます。
どうしてでしょうか…？

通報する

ページトップ

プロフィール

引用付きで返信する

konisi

記事の件名:

投稿記事Posted: 2008年3月23日(日) 17:24

オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市

よく読んでないのですが、Whileループ内とその直前の二つの

コード:

WriteFile(hAfter, pbBuf, Len(dwByte), VarPtr(dwResult), ByVal NULL)

の第三引数が間違っているように見えてならないのですが、どうなんでしょう？

_________________
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。

に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。

通報する

ページトップ

プロフィール

引用付きで返信する

M.S.

記事の件名:

投稿記事Posted: 2008年3月23日(日) 20:41

オフライン

登録日時: 2005年6月01日(水) 21:51
記事: 212
お住まい: 奈良県北西部

> よく読んでないのですが、Whileループ内とその直前の二つの

コード:

WriteFile(hAfter, pbBuf, Len(dwByte), VarPtr(dwResult), ByVal NULL)

の第三引数が間違っているように見えてならないのですが、どうなんでしょう？

[ここをクリックすると内容が表示されます]

コード:

    hOrg = CreateFile(szOrgFile, GENERIC_READ, FILE_SHARE_READ,
        NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
    hAfter = CreateFile(szAfterFile, GENERIC_WRITE, FILE_SHARE_READ,
        NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
    WriteFile(hAfter, &dwByte, sizeof(dwByte), &dwResult, NULL);
    WriteFile(hAfter, pbBuf, dwByte, &dwResult, NULL);
    while (1) {
        ReadFile(hOrg, pbBuf, sizeof(pbBuf), &dwByte, NULL);
        if (dwByte < sizeof(pbBuf))
            bEnd = TRUE;
        CryptEncrypt(hKey, 0, bEnd, 0, pbBuf, &dwByte, sizeof(pbBuf));
        WriteFile(hAfter, pbBuf, dwByte, &dwResult, NULL);
        if (bEnd)
            break;
    }

C のコードがこうなので、
C をよく理解していない僕には合っているようにしか見えないのですが…

// VC++ 2008 Express Edition で同じ DLL を作ってみましたが、
// 文字列かファイル操作がうまくいっていないのでわかりませんが、
// 一応ちゃんと元ファイルより小さくなりました。

通報する

ページトップ

プロフィール

引用付きで返信する

konisi

記事の件名:

投稿記事Posted: 2008年3月23日(日) 22:46

オフライン

登録日時: 2005年7月25日(月) 13:27
記事: 893
お住まい: 埼玉県東松山市

コード:

WriteFile(hAfter, pbBuf, dwByte, &dwResult, NULL);

となってるので、
第三引数はLen(dwByte)ではなくdwByteだと思うのですが・・・。

BasicのLen(a)とCのsizeof(a)が大体同じだったと思います。

通報する

ページトップ

プロフィール

引用付きで返信する

M.S.

記事の件名:

投稿記事Posted: 2008年3月24日(月) 15:27

オフライン

登録日時: 2005年6月01日(水) 21:51
記事: 212
お住まい: 奈良県北西部

コード:

WriteFile(hAfter, pbBuf, dwByte, &dwResult, NULL);

となってるので、
> 第三引数はLen(dwByte)ではなくdwByteだと思うのですが・・・。
>
> BasicのLen(a)とCのsizeof(a)が大体同じだったと思います。

Len を外してビルドしてみましたが、
コンパイラが落ちてビルドできませんでした…。
デバッグビルドはできるのですが…

通報する

ページトップ

プロフィール

引用付きで返信する

のぶあや

記事の件名:

投稿記事Posted: 2008年3月24日(月) 23:23

オフライン

登録日時: 2006年10月14日(土) 10:52
記事: 22
お住まい: 愛知

cのsizeof演算子の注意点

[ここをクリックすると内容が表示されます]

cのsizeof演算子は配列の場合、1要素のサイズｘ要素数の大きさが返されることに注意してください。
なのでｃ言語の

コード:

BYTE pbBuf[1024 * 4];
sizeof(pbBuf);

はABでは

コード:

Dim pbBuf[ELM(1024 * 4)] As Byte
SizeOf(Byte) * (1024 * 4)

となります。（Len関数は私は使わないのでわかりません）
＜追記Len関数はｃのsizeofと同じでした。＞

なので、while直後のReadFileは

コード:

ｃ言語の場合
ReadFile(hOrg, pbBuf, sizeof(pbBuf), &dwByte, NULL);

ABの場合
Dim pbBuf[ELM(4096)] As Byte　（と宣言されているのであれば）
ReadFile(hOrg, pbBuf, SizeOf(Byte)*4096, VarPtr(dwByte), ByVal NULL);

あと、その直後の

コード:

ｃ言語
CryptEncrypt(hKey, 0, bEnd, 0, pbBuf, &dwByte, sizeof(pbBuf));
WriteFile(hAfter, pbBuf, dwByte, &dwResult, NULL);

AB（以下の2行は間違っています）
CryptEncrypt(hKey, 0, bEnd, 0, pbBuf, VarPtr(dwByte), Len(pbBuf))
WriteFile(hAfter, pbBuf, Len(dwByte), VarPtr(dwResult), ByVal NULL)

おそらくですが、
CryptEncrypt関数の第5引数に処理するデータ、第７引数にそのサイズを指定し、第6引数に結果のデータサイズが格納されると思われます。
なので、ここの第7引数もSizeOf(Byte)*4096としなければなりません。
またここでdwByteに処理後のデータ長が格納されると思うので、
WriteFileの第3引数はLen(dwByte)ではなく、dwByteになります。

＜追記＞
調べたらLen関数に配列を指定した場合、ｃの場合と同じになりました；；；
上記のSizeOf云々は忘れてください。

通報する

ページトップ

プロフィール

引用付きで返信する

M.S.

記事の件名:

投稿記事Posted: 2008年3月26日(水) 23:24

オフライン

登録日時: 2005年6月01日(水) 21:51
記事: 212
お住まい: 奈良県北西部

のぶあやさん、わざわざ調べていただきありがとうございます。m(_ _)m
DLL の方はビルドできるようになりました。

しかし、その DLL を使用して暗号化をしようとすると、
また「CryptAcquireContext Error」
と出てしまいます。
また、その DLL を使用するプログラムを新たにデバッグビルド、
ビルドをするとコンパイラがエラーで落ちてしまいます。
DLL がまだダメなんでしょうか？
よくわからないのですが…

通報する

ページトップ

プロフィール

引用付きで返信する

のぶあや

記事の件名:

投稿記事Posted: 2008年3月28日(金) 22:17

オフライン

登録日時: 2006年10月14日(土) 10:52
記事: 22
お住まい: 愛知

「第２６４章暗号化の前準備」のプログラムは実行してますよね？

あと、最新のソースを載せてもらえると原因が特定しやすいです。
（「編集」で↑を毎回更新するといいかと）

通報する

ページトップ

プロフィール

引用付きで返信する

新しいトピックを投稿するトピックへ返信する

ページ 1 ／ 2

[ 17 件の記事 ]

ページ移動 1 2 次へ

掲示板トップ » »

全ての表示時間は UTC+09:00 です

オンラインデータ

このフォーラムを閲覧中のユーザー: なし＆ゲスト[9人]

トピック投稿: 可
返信投稿: 可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可