ab.com コミュニティ

by 卓漏 » 2006年7月19日(水) 17:56

動いてよかったです。
約1日考え続けた結果がありました。
言い忘れましたが、あのコードのままだと、最大255バイトまでの文字列しかパスワードが設定できないですが････。

「2006年07月19日(水) 07」に書き込んだ「ゲスト」さんは自分なんですがね・・・。(ログインするのを忘れて書き込んでしまったから･･･。)

by 雷電 » 2006年7月19日(水) 09:13

できました。
コード訂正ありがとうございました。
卓漏さん、ゲストさん、ありがとうございました。

by **ゲスト** » 2006年7月19日(水) 07:06

パスワードが「aiden」となるのは、
暗号化処理で、文字列の終わりにつく「NULL」が、書き換えられてしまうのが原因だったみたいです。

多分、これでいいと思うコード [ここをクリックすると内容が表示されます]

コード: 全て選択


Sub MainWnd_CommandButton1_Click() 
	Dim ret As Long
	Dim Letter As String
	Dim User As String
	Dim pass_Str As String		'暗号化と複合化する際に使う変数
	Dim Pass1 As String			'「EditBox2」の値を取得する変数
	Dim Pass2 As String
	Dim P[256] As BytePtr
	Dim aaa As Long
	Dim Str_Size As Long		'文字列の長さ 
	Dim Chr_Num As Integer		'文字コードの番号 
	Dim I As Long

	GetDlgItemTextStr(hMainWnd, EditBox1, User)
	GetDlgItemTextStr(hMainWnd, EditBox2, Pass1)
	GetDlgItemTextStr(hMainWnd, EditBox3, Pass2)

	If User="" Then
		MessageBox(hMainWnd,"ユーザー名が入力されていません","入力エラー",MB_OK)
	End If

	GetPrivateProfileString("Data", "PassWord", "", P, 255, ".\System.ini")

	pass_Str = ZeroString(Len(P))

	lstrcpy(pass_Str, P)

	'文字列の長さを調べて保存する
	Str_Size = Len(pass_Str)

	'複合化する
	For I = 0 To Str_Size - 1
		'文字コード番号を取得する
		Chr_Num = pass_Str
	
		'文字コード番号から暗号化定数を引く 
		Chr_Num -= X 
         
		'↓エラー防止のための処理↓ここから 
		While Chr_Num < 0 
			Chr_Num += 255 
		Wend 
 
		While 255 < Chr_Num 
			Chr_Num -= 255 
		Wend 
		'↑エラー防止のための処理↑ここまで 

		'文字コード番号を書き換える 
		pass_Str = Chr_Num
	Next I

	If lstrcmp(pass_Str, Pass1) <> 0 Then

		aaa = MessageBox(hMainWnd, Ex"ユーザー名、又はパスワードがiniファイルに保存されているデータと違います。\r\nデータを書き換えますか？", "確認", MB_YESNO)

		If aaa = IDYES Then

			MessageBox(0, "書き換えます", "書き換え", MB_OK)

			lstrcpy(pass_Str, Pass1)

			/* 暗号化するとき */
			'文字列の長さを調べて保存する
			Str_Size = Len(pass_Str)

			'1Byteずつ暗号化する
			For I = 0 To Str_Size - 1

				'文字コード番号を取得する
				Chr_Num = pass_Str

				'文字コード番号に暗号化定数を加える
				Chr_Num += X

				'↓エラー防止のための処理↓ここから
				While Chr_Num < 0
					Chr_Num += 255
				Wend
				While 255 < Chr_Num
					Chr_Num -= 255
				Wend
				'↑エラー防止のための処理↑ここまで

				'文字コード番号を書き換える
				pass_Str = Chr_Num
			Next I
			/*ここまで暗号化*/

			WritePrivateProfileString("Data", "User", User, ".\System.ini")
			WritePrivateProfileString("Data", "PassWord", pass_Str, ".\System.ini")

			EndDialog(hMainWnd,1)
		
		Else

			MessageBox(0, "再入力してください", "再入力", MB_OK)

			SetDlgItemText(hMainWnd,EditBox2, "")
			SetDlgItemText(hMainWnd,EditBox3, "")

			Exit Sub

		End If

	End If

	If lstrcmp(pass_Str, Pass1) = 0 Then
		If Pass1 = "" Then

			MessageBox(hMainWnd, "パスワードが入力されていません", "入力エラー", MB_OK)

			Exit Sub

		End If

	Else

		MessageBox(hMainWnd, "パスワードが一致しません", "入力エラー", MB_OK)

		Exit Sub

	End If

	Letter = "ユーザー:" + User + Ex"\r\n" + "パスワード:" + Pass1 + Ex"\r\n" + "これでよろしいですか？"

	ret = MessageBox(hMainWnd,Letter, "確認", MB_YESNO)

	If ret = IDYES Then

		MessageBox(hMainWnd, "分かりました", "了解", MB_OK)

		/* 暗号化するとき */
		'文字列の長さを調べて保存する
		Str_Size = Len(pass_Str)

		'1Byteずつ暗号化する
		For I = 0 To Str_Size - 1

			'文字コード番号を取得する
			Chr_Num = pass_Str

			'文字コード番号に暗号化定数を加える
			Chr_Num += X

			'↓エラー防止のための処理↓ここから
			While Chr_Num < 0
				Chr_Num += 255
			Wend
			While 255 < Chr_Num
				Chr_Num -= 255
			Wend
			'↑エラー防止のための処理↑ここまで

			'文字コード番号を書き換える
			pass_Str = Chr_Num

		Next I
		/*ここまで暗号化*/

		WritePrivateProfileString("Data", "User", User, ".\System.ini")
		WritePrivateProfileString("Data", "PassWord", pass_Str, ".\System.ini")

		EndDialog(hMainWnd,1)

	Else

		MessageBox(hMainWnd,"再入力をお願いします","再入力",MB_OK)

		SetDlgItemText(hMainWnd,EditBox1,"")
		SetDlgItemText(hMainWnd,EditBox2,"")
		SetDlgItemText(hMainWnd,EditBox3,"")

		Exit Sub

	End If 
End Sub

by 雷電 » 2006年7月17日(月) 21:05

すいません。
訂正してもらったコードをそのまま写してコンパイルしてみて試してみました。
Passのところに、raidenと打つと、INIのほうには

aiden
と表示されました。
もう一度試してみるとINIの中身は同じなのにメッセージが違うといってきました。
メッセージには問題ないと思うのですが、複合化の時の操作？が違うような気がします。私には、よく分からないのですが、複合化のアルゴリズムから考えれば違うのかなーという気がしてきました。

宜しくお願いします。

by 卓漏 » 2006年7月16日(日) 23:29

多分、複合化の際に、

コード: 全て選択


'文字列の長さを調べて保存する 
Str_Size = Len(Str$)

が抜けているのが原因かと思います。

修正コード [ここをクリックすると内容が表示されます]

コード: 全て選択


Sub MainWnd_CommandButton1_Click() 
    Dim ret As Long 
    Dim Letter As String 
    Dim User As String 
    Dim Str$ As String 
    Dim Pass2 As String 
    Dim P[SIZE] As Byte 
    Dim aaa As Long 
    Dim Str_Size As Long  '文字列の長さ 
    Dim Chr_Num As Integer  '文字コードの番号 
    Dim I As Long 

    GetDlgItemTextStr(hMainWnd,EditBox1,User) 
    GetDlgItemTextStr(hMainWnd,EditBox2,Str$) 
    GetDlgItemTextStr(hMainWnd,EditBox3,Pass2) 

    If User="" Then 
        MessageBox(hMainWnd,"ユーザー名が入力されていません","入力エラー",MB_OK) 
    End If 

    GetPrivateProfileString("Data","PassWord","",P,SIZE,".\System.ini") 

    lstrcpy(Str$,P) 

'↓↓↓
'文字列の長さを調べて保存する 
Str_Size = Len(Str$) 
'↑↑↑

    '複合化する 
    For I = 0 To Str_Size 
        '文字コード番号を取得する 
        Chr_Num = Str$ 
         
        '文字コード番号から暗号化定数を引く 
        Chr_Num -= X 
         
        '↓エラー防止のための処理↓ここから 
        While Chr_Num < 0 
            Chr_Num += 255 
            Wend 
         
        While 255 < Chr_Num 
                Chr_Num -= 255 
        Wend 
        '↑エラー防止のための処理↑ここまで 
                 
        '文字コード番号を書き換える 
        Str$ = Chr_Num 
    Next I 
     
    If lstrcmp(Str$,P)<>0 Then 
        aaa=MessageBox(hMainWnd,Ex"ユーザー名、又はパスワードがiniファイルに保存されているデータと違います。\r\nデータを書き換えますか？","確認",MB_YESNO) 
        If aaa=IDYES Then 
           MessageBox(0,"書き換えます","書き換え",MB_OK) 
        /* 暗号化するとき */ 
    '文字列の長さを調べて保存する 
    Str_Size = Len(Str$) 
    '1Byteずつ暗号化する 
    For I = 0 To Str_Size 
        '文字コード番号を取得する 
        Chr_Num = Str$ 
         
        '文字コード番号に暗号化定数を加える 
        Chr_Num += X 
         
        '↓エラー防止のための処理↓ここから 
        While Chr_Num < 0 
            Chr_Num += 255 
            Wend 
            While 255 < Chr_Num 
                Chr_Num -= 255 
                Wend 
                '↑エラー防止のための処理↑ここまで 
                '文字コード番号を書き換える 
                Str$ = Chr_Num 
                Next I 
                /*ここまで暗号化*/ 
                WritePrivateProfileString("Data", "User", User, ".\System.ini") 
                WritePrivateProfileString("Data", "PassWord", Str$, ".\System.ini") 
        EndDialog(hMainWnd,1) 
        Else 
            MessageBox(0,"再入力してください","再入力",MB_OK) 
        SetDlgItemText(hMainWnd,EditBox2,"") 
        SetDlgItemText(hMainWnd,EditBox3,"") 
        Exit Sub 
        End If 
    End If 

    If lstrcmp(Str$,Pass2)=0 Then 
        If Str$="" Then 
            MessageBox(hMainWnd,"パスワードが入力されていません","入力エラー",MB_OK) 
            Exit Sub 
        End If 
    Else 
        MessageBox(hMainWnd,"パスワードが一致しません","入力エラー",MB_OK) 
        Exit Sub 
    End If 

    Letter="ユーザー:" + User + Ex"\r\n" + "パスワード:" + Str$ + Ex"\r\n" + "これでよろしいですか？" 

    ret=MessageBox(hMainWnd,Letter,"確認",MB_YESNO) 
    If ret=IDYES Then 
        MessageBox(hMainWnd,"分かりました","了解",MB_OK) 
        /* 暗号化するとき */ 
    '文字列の長さを調べて保存する 
    Str_Size = Len(Str$) 
    '1Byteずつ暗号化する 
    For I = 0 To Str_Size 
        '文字コード番号を取得する 
        Chr_Num = Str$ 
         
        '文字コード番号に暗号化定数を加える 
        Chr_Num += X 
         
        '↓エラー防止のための処理↓ここから 
        While Chr_Num < 0 
            Chr_Num += 255 
            Wend 
            While 255 < Chr_Num 
                Chr_Num -= 255 
                Wend 
                '↑エラー防止のための処理↑ここまで 
                '文字コード番号を書き換える 
                Str$ = Chr_Num 
                Next I 
                /*ここまで暗号化*/ 
                WritePrivateProfileString("Data", "User", User, ".\System.ini") 
                WritePrivateProfileString("Data", "PassWord", Str$, ".\System.ini") 
        EndDialog(hMainWnd,1) 
    Else 
        MessageBox(hMainWnd,"再入力をお願いします","再入力",MB_OK) 
        SetDlgItemText(hMainWnd,EditBox1,"") 
        SetDlgItemText(hMainWnd,EditBox2,"") 
        SetDlgItemText(hMainWnd,EditBox3,"") 
        Exit Sub 
    End If 
End Sub

暗号化の定数を変えてなければ、
パスワードを「PASS」とすると、「iniファイル」の中身が、
「UFXX」→「ZK]]」→「_Pbb」→「dUgg」→「iZll」→「dUgg」→・・・
見たいな感じに変わったと思います。

by 雷電 » 2006年7月16日(日) 21:54

抜けていました。
しかし、コンパイルしてもＩＮＩファイルをのぞくと毎回違う値がPassWordのところに書かれています。

一応コードを載せておきますので間違っている点がありましたら訂正お願いします。

コマンドボタンを押したときの動作 [ここをクリックすると内容が表示されます]

コード: 全て選択

Sub MainWnd_CommandButton1_Click()
	Dim ret As Long
	Dim Letter As String
	Dim User As String
	Dim Str$ As String
	Dim Pass2 As String
	Dim P[SIZE] As Byte
	Dim aaa As Long
	Dim Str_Size As Long  '文字列の長さ
	Dim Chr_Num As Integer  '文字コードの番号
	Dim I As Long

	GetDlgItemTextStr(hMainWnd,EditBox1,User)
	GetDlgItemTextStr(hMainWnd,EditBox2,Str$)
	GetDlgItemTextStr(hMainWnd,EditBox3,Pass2)

	If User="" Then
		MessageBox(hMainWnd,"ユーザー名が入力されていません","入力エラー",MB_OK)
	End If

	GetPrivateProfileString("Data","PassWord","",P,SIZE,".\System.ini")

	lstrcpy(Str$,P)
	'複合化する
	For I = 0 To Str_Size
		'文字コード番号を取得する
		Chr_Num = Str$
		
		'文字コード番号から暗号化定数を引く
		Chr_Num -= X 
		
		'↓エラー防止のための処理↓ここから
		While Chr_Num < 0
			Chr_Num += 255
			Wend
		
		While 255 < Chr_Num
				Chr_Num -= 255
		Wend
		'↑エラー防止のための処理↑ここまで
				
		'文字コード番号を書き換える
		Str$ = Chr_Num
	Next I
	
	If lstrcmp(Str$,P)<>0 Then
		aaa=MessageBox(hMainWnd,Ex"ユーザー名、又はパスワードがiniファイルに保存されているデータと違います。\r\nデータを書き換えますか？","確認",MB_YESNO)
		If aaa=IDYES Then
		   MessageBox(0,"書き換えます","書き換え",MB_OK)
		/* 暗号化するとき */
	'文字列の長さを調べて保存する
	Str_Size = Len(Str$)
	'1Byteずつ暗号化する
	For I = 0 To Str_Size
		'文字コード番号を取得する
		Chr_Num = Str$
		
		'文字コード番号に暗号化定数を加える
		Chr_Num += X 
		
		'↓エラー防止のための処理↓ここから
		While Chr_Num < 0
			Chr_Num += 255
			Wend
			While 255 < Chr_Num
				Chr_Num -= 255
				Wend
				'↑エラー防止のための処理↑ここまで
				'文字コード番号を書き換える
				Str$ = Chr_Num
				Next I
				/*ここまで暗号化*/
				WritePrivateProfileString("Data", "User", User, ".\System.ini")
				WritePrivateProfileString("Data", "PassWord", Str$, ".\System.ini")
		EndDialog(hMainWnd,1)
	    Else
		    MessageBox(0,"再入力してください","再入力",MB_OK)
		SetDlgItemText(hMainWnd,EditBox2,"")
		SetDlgItemText(hMainWnd,EditBox3,"")
		Exit Sub
		End If
	End If

	If lstrcmp(Str$,Pass2)=0 Then
		If Str$="" Then
			MessageBox(hMainWnd,"パスワードが入力されていません","入力エラー",MB_OK)
			Exit Sub
		End If
	Else
		MessageBox(hMainWnd,"パスワードが一致しません","入力エラー",MB_OK)
		Exit Sub
	End If

	Letter="ユーザー:" + User + Ex"\r\n" + "パスワード:" + Str$ + Ex"\r\n" + "これでよろしいですか？"

	ret=MessageBox(hMainWnd,Letter,"確認",MB_YESNO)
	If ret=IDYES Then
		MessageBox(hMainWnd,"分かりました","了解",MB_OK)
		/* 暗号化するとき */
	'文字列の長さを調べて保存する
	Str_Size = Len(Str$)
	'1Byteずつ暗号化する
	For I = 0 To Str_Size
		'文字コード番号を取得する
		Chr_Num = Str$
		
		'文字コード番号に暗号化定数を加える
		Chr_Num += X 
		
		'↓エラー防止のための処理↓ここから
		While Chr_Num < 0
			Chr_Num += 255
			Wend
			While 255 < Chr_Num
				Chr_Num -= 255
				Wend
				'↑エラー防止のための処理↑ここまで
				'文字コード番号を書き換える
				Str$ = Chr_Num
				Next I
				/*ここまで暗号化*/
				WritePrivateProfileString("Data", "User", User, ".\System.ini")
				WritePrivateProfileString("Data", "PassWord", Str$, ".\System.ini")
		EndDialog(hMainWnd,1)
	Else
		MessageBox(hMainWnd,"再入力をお願いします","再入力",MB_OK)
		SetDlgItemText(hMainWnd,EditBox1,"")
		SetDlgItemText(hMainWnd,EditBox2,"")
		SetDlgItemText(hMainWnd,EditBox3,"")
		Exit Sub
	End If
End Sub

by **C1000** » 2006年7月15日(土) 21:49

このコード抜けてませんか？

コード: 全て選択

Const X = 5  '暗号化の定数

by 雷電 » 2006年7月15日(土) 21:39

暗号化のコードをつかわさせていただきましたが、最終的に文字列は暗号化されていませんでした。（何故？）
Ｘが無効な識別子になっていたので
Dim X As Long
を付け足しました。

暗号化の文字はStr$に格納されているはずなんですが・・・
なぜでしょう？

by 卓漏 » 2006年7月15日(土) 21:03

>もう少し分かりやすくしていただけないでしょうか？
↑文学系が苦手な自分には、そっちの方が難しいです。orz

一応、簡単そうだった「ケースケ」さんのプログラムを少し改変してみました。

ただ、この暗号方法は、文字コードに沿って文字を一定数だけずらしたの暗号なので、わかる人にはわかってしまうのが欠点です。

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

コード: 全て選択


Const X = 5  '暗号化の定数

Dim Str$ As String  '暗号化する文字列
Dim Str_Size As Long  '文字列の長さ

Dim Chr_Num As Integer  '文字コードの番号

Dim I As Long



'暗号化する文字列を記録
Str$ = "String"



/* 暗号化するとき */
'文字列の長さを調べて保存する
Str_Size = Len(Str$)

'1Byteずつ暗号化する
For I = 0 To Str_Size
  '文字コード番号を取得する
  Chr_Num = Str$

  '文字コード番号に暗号化定数を加える
  Chr_Num += X 

  '↓エラー防止のための処理↓ここから
  While Chr_Num < 0
    Chr_Num += 255
  Wend
  While 255 < Chr_Num
    Chr_Num -= 255
  Wend
  '↑エラー防止のための処理↑ここまで

  '文字コード番号を書き換える
  Str$ = Chr_Num

Next I

'INIファイルに書き込む
WritePrivateProfileString("Section", "Key", Str$, ".\test.ini")

'↑このプログラムの場合、文字列「String」は「Xywnsl」と言うふうに暗号化されます。

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

コード: 全て選択


Const X = 5  '暗号化の定数

Dim Str$ As String  '複合化する文字列
Dim Str_Size As Long  '文字列の長さ

Dim Chr_Num As Integer  '文字コードの番号

Dim I As Long


/*
～INIファイルからの読み込み処理は省略させてもらいます～
ここで、Str$に暗号化された文字列を代入してください
*/

'文字列の長さを調べて保存する
Str_Size = Len(Str$)

'複合化する
For I = 0 To Str_Size
  '文字コード番号を取得する
  Chr_Num = Str$

  '文字コード番号から暗号化定数を引く
  Chr_Num -= X 

  '↓エラー防止のための処理↓ここから
  While Chr_Num < 0
    Chr_Num += 255
  Wend
  While 255 < Chr_Num
    Chr_Num -= 255
  Wend
  '↑エラー防止のための処理↑ここまで

  '文字コード番号を書き換える
  Str$ = Chr_Num

Next I

/*
ここまで処理が終われば複合化された文字列が
変数「Str$」に入っています
*/

by 雷電 » 2006年7月15日(土) 19:38

早速の返信ありがとうございました。
同じような質問でしたが、まだ素人の私には分かりにくいです。。。
なので、もう少し分かりやすくしていただけないでしょうか？

by 卓漏 » 2006年7月15日(土) 19:13

前に、同じような質問があったので、そこのURLを落としておきます。
http://www.activebasic.com/forum/viewtopic.php?t=1213

by 雷電 » 2006年7月15日(土) 18:58

前回トピックを立てました（取得した文字列をINIファイルに保存したい）の続きです。
考えてみたらINIはテキストなので簡単にパスワードが見られてしまいます。
なので簡単な暗号化をかけたいと考えていました。
でコードを書くとなったらまったく分からないため過去ログを見てみました。
・・・見てもても分かりません。

どなたかご教授願えないでしょうか？

ab.com コミュニティ

保存の際簡易暗号化をかけたい

返信する

展開ビュートピックのレビュー: 保存の際簡易暗号化をかけたい

保存の際簡易暗号化をかけたい

保存の際簡易暗号化をかけたい

返信する

展開ビュー トピックのレビュー: 保存の際簡易暗号化をかけたい

保存の際簡易暗号化をかけたい

展開ビュートピックのレビュー: 保存の際簡易暗号化をかけたい