ファイルの暗号化、復号化を行うコードを教えてください。
できれば暗号化 複合化を分けて、どちらかひとつでもかまいませんから。
PCC
すごく簡単な暗号・復号ですが載せます。
コマンドボタンを押した時にエディットボックスに入力されている文字列を暗号化したものを表示し、
次に復号化したものを表示します。
復号化も同じで(逆？)、暗号を1Byteずつ取得し、それにsetPass()の値だけずらした文字コードの列で出来ています。
分かり辛いサンプルと説明ですかね...ι
暗号は文字列をどのように弄るか、作者のセンスが問われると思います。
ついこの間、図書館で暗号についての本を読んで知ったのですが、
世界初の暗号・復号する機械は改造されたタイプライターとありました。
コマンドボタンを押した時にエディットボックスに入力されている文字列を暗号化したものを表示し、
次に復号化したものを表示します。
[ここをクリックすると内容が表示されます]
暗号は入力された文字列を1Byteずつ取得し、それにsetPass()の値だけずらした文字コードの列で出来ています。コード: 全て選択
Class CPassWord
Protected
c_nKey As Long
Public
Sub setPass(ByVal nKey As Long)
c_nKey=nKey
End Sub
Sub getPass() As Long
getPass=c_nKey
End Sub
Function encode(ByVal lpString As BytePtr) As BytePtr
Dim length As Long
Dim cnt As Long
length=lstrlen(lpString)
encode=calloc(length)
For cnt=1 To length
lstrcat(encode,Chr$( Asc(Mid$(lpString,cnt,1)) -c_nKey))
Next
End Function
Function decode(ByVal lpString As BytePtr) As BytePtr
Dim length As Long
Dim cnt As Long
length=lstrlen(lpString)
decode=calloc(length)
For cnt=1 To length
lstrcat(decode,Chr$( Asc(Mid$(lpString,cnt,1)) +c_nKey))
Next
End Function
End Class
Sub MainWnd_CommandButton1_Click()
Dim hEdit As HWND
Dim pStr[2] As BytePtr
Dim length As Long
Dim pass As CPassWord
pass.setPass(1)
hEdit=GetDlgItem(hMainWnd,EditBox1)
length=GetWindowTextLength(hEdit)+1
pStr[0]=calloc(length)
GetWindowText(hEdit,pStr[0],length)
pStr[1]=pass.encode(pStr[0])
MessageBox(hMainWnd,pStr[1],"暗号化",MB_OK)
pStr[2]=pass.decode(pStr[1])
MessageBox(hMainWnd,pStr[2],"復号化",MB_OK)
End Sub復号化も同じで(逆？)、暗号を1Byteずつ取得し、それにsetPass()の値だけずらした文字コードの列で出来ています。
分かり辛いサンプルと説明ですかね...ι
暗号は文字列をどのように弄るか、作者のセンスが問われると思います。
ついこの間、図書館で暗号についての本を読んで知ったのですが、
世界初の暗号・復号する機械は改造されたタイプライターとありました。
暗号化なら。
少し前に私が開発した暗号化系のソフトのソースを一部載せますので暇なら参照してください。
一応DLL化してある物のコードを載せます。
一応DLL化してある物のコードを載せます。
[ここをクリックすると内容が表示されます]
急いで切り出したので間違いがあったらすみません。コード: 全て選択
#include "LASRM_DLL.idx"
Dim rd As Long
Dim C(7) As Long
Dim CH(15) As Long
Dim CE(7) As Long
/*
'-------------------------------------------------------------------
メモ - インポートすべき関数は、次の3つです。
Function SetCH(CH$ As BytePtr) As Long
説明:http://web1.nazca.co.jp/hp/himajinn13se ... ドを設定してください。
返り値・・・エラー（-1）、正常(0)、注意(1)
Function Angoka(InpFileName As BytePtr,Password As BytePtr,OutFileName As BytePtr) As Long
説明:第一パラメータ・・・入力元ファイル名
第二パラメータ・・・暗号化時のパスワード
第三パラメータ・・・出力先ファイル名
返り値・・・入力元ファイルのファイルサイズ
注意・・・第一パラメータと第三パラメータは同じ値を使用しないで下さい。
Function Export Hukugoka(InpFileName As BytePtr,Password1 As BytePtr,OutFileName As BytePtr) As Long
説明:第一パラメータ・・・入力元ファイル名
第二パラメータ・・・復号化時のパスワード
第三パラメータ・・・出力先ファイル名
返り値・・・入力元ファイルのファイルサイズ
またはエラー値（-1）
注意・・・第一パラメータと第三パラメータは同じ値を使用しないで下さい。
'-------------------------------------------------------------------
*/
Function Export DllMain(hinstDLL As HINSTANCE, fdwReason As DWord, lpvReserved As VoidPtr) As Long
'DLLエントリポイント
Select Case fdwReason
Case DLL_PROCESS_ATTACH
'DLLがプロセス空間にロードされた時に実行されます。
_System_StartupProgram()
DllMain=1
End Select
End Function
Function Export SetCH(CH$ As BytePtr)
SetCH=CHC_CH(CH$,CH)
End Function
Function Pass_C(A$ As String,ByRef B(7) As Long)
Dim I As Long
For I=0 To 7
B(I)=Asc(He(A$,I+1))
Next I
End Function
Function Head(A$ As String) As Long
Dim B$ As String
B$=Mid$(A$,1,1)
Head=Val(B$) As Long
End Function
Function He(A$ As String,B As Long) As String
He=Mid$(A$,B,1)
End Function
Function CHC_CH(A$ As String,ByRef B(15) As Long) As Long
Dim I As Long
Dim H As Long
CHC_CH=0
H=Head(A$)
if H=2 then
For I=0 To 15
B(I)=C62(He(A$,I*2+2))*62+C62(He(A$,I*2+3))
Next I
CHC_CH=1
End If
if H=3 then
For I=0 To 15
B(I)=C62(He(A$,I*3+2))*62*62+C62(He(A$,I*3+3))*62+C62(He(A$,I*3+4))
Next I
CHC_CH=1
End If
if H=4 then
For I=0 To 15
B(I)=C62(He(A$,I*4+2))*62*62*62+C62(He(A$,I*4+3))*62*62+C62(He(A$,I*4+4))*62+C62(He(A$,I*4+5))
Next I
CHC_CH=1
End If
if H=5 then
For I=0 To 15
B(I)=C62(He(A$,I*5+2))*62*62*62*62+C62(He(A$,I*5+3))*62*62*62+C62(He(A$,I*5+4))*62*62+C62(He(A$,I*5+5))*62+C62(He(A$,I*5+6))
Next I
CHC_CH=1
End If
If Len(A$)<>H*16+1 then CHC_CH=2
CHC_CH=CHC_CH-1
End Function
Function C62(A$ As String) As Long
Dim A As Long
If A$="1" then A=0
If A$="2" then A=1
If A$="3" then A=2
If A$="4" then A=3
If A$="5" then A=4
If A$="6" then A=5
If A$="7" then A=6
If A$="8" then A=7
If A$="9" then A=8
If A$="0" then A=9
If A$="q" then A=10
If A$="w" then A=11
If A$="e" then A=12
If A$="r" then A=13
If A$="t" then A=14
If A$="y" then A=15
If A$="u" then A=16
If A$="i" then A=17
If A$="o" then A=18
If A$="p" then A=19
If A$="a" then A=20
If A$="s" then A=21
If A$="d" then A=22
If A$="f" then A=23
If A$="g" then A=24
If A$="h" then A=25
If A$="j" then A=26
If A$="k" then A=27
If A$="l" then A=28
If A$="z" then A=29
If A$="x" then A=30
If A$="c" then A=31
If A$="v" then A=32
If A$="b" then A=33
If A$="n" then A=34
If A$="m" then A=35
If A$="Q" then A=36
If A$="W" then A=37
If A$="E" then A=38
If A$="R" then A=39
If A$="T" then A=40
If A$="Y" then A=41
If A$="U" then A=42
If A$="I" then A=43
If A$="O" then A=44
If A$="P" then A=45
If A$="A" then A=46
If A$="S" then A=47
If A$="D" then A=48
If A$="F" then A=49
If A$="G" then A=50
If A$="H" then A=51
If A$="J" then A=52
If A$="K" then A=53
If A$="L" then A=54
If A$="Z" then A=55
If A$="X" then A=56
If A$="C" then A=57
If A$="V" then A=58
If A$="B" then A=59
If A$="N" then A=60
If A$="M" then A=61
C62=A
End Function
Function Export Angoka(InpFileName As BytePtr,Password As BytePtr,OutFileName As BytePtr) As Long
Dim FileLof As Long
Dim A As Long
Dim A3 As Long
Dim I As Long
Dim A$ As String
Dim J As Long
Dim Head As String
Dim HeadSize=4+8 As Byte
Dim HeadEdit(7) As Long
Pass_C(Password,C)
Open InpFileName As #1
Field #1,1
FileLof=Lof(1)
Open OutFileName As #2
Field #2,4
'ヘッダの出力
Head="LA2"'ファイル分類
Head=Head+Chr$(HeadSize)'ヘッダの総サイズ
Put #2,1,Head
Field #2,1
For I=0 To 7
HeadEdit(I)=Int(Rnd()*256)
CE(I)=HeadEdit(I)
Next I
For I=0 To 7
HeadEdit(I)=(HeadEdit(I)+CNext()) Mod 256
A$=Chr$(HeadEdit(I) As Byte)
Put #2,I+5,A$
Next I
For I=1 To FileLof
Get #1,I,A$
A=Asc(A$)
A=(A+CNext2()) Mod 256
A$=Chr$(A As Byte)
J=I+HeadSize
Put #2,J,A$
Next I
Close #1
Close #2
Angoka=FileLof
End Function
Function Export Hukugoka(InpFileName As BytePtr,Password1 As BytePtr,OutFileName As BytePtr) As Long
Dim FileLof As Long
Dim A As Long
Dim A3 As Long
Dim I As Long
Dim A$ As String
Dim J As Long
Pass_C(Password1,C)
Open InpFileName As #1
Field #1,1
Open OutFileName As #2
Field #2,1
Field #1,3
Get #1,1,A$
'ファイル属性のチェック
if A$(0)=Asc("L") and A$(1)=Asc("A") and A$(2)=Asc("2") then'新版
Field #1,12
Get #1,1,A$
For I=0 To 7
CE(I)=(A$(I+4)-CNext()+65536) Mod 256
Next I
Field #1,1
FileLof=Lof(1)-12
For I=1 To FileLof
J=I+12
Get #1,J,A$
A=Asc(A$)
A=(A-CNext2()+65536) Mod 256
A$=Chr$(A As Byte)
Put #2,I,A$
Next I
Else
Close #1
Close #2
Hukugoka=-1
End If
Close #1
Close #2
Hukugoka=FileLof
End Function
Function CNext() As Long
C(0)=(C(0)+C(1)) Mod CH(0)
C(1)=(C(1)-C(2)+CH(1)) Mod CH(1)
C(2)=(C(2)+C(3)) Mod CH(2)
C(3)=(C(3)-C(4)+CH(3)) Mod CH(3)
C(4)=(C(4)+C(5)) Mod CH(4)
C(5)=(C(5)-C(6)+CH(5)) Mod CH(5)
C(6)=(C(6)+C(7)) Mod CH(6)
C(7)=(C(7)-C(0)+CH(7)) Mod CH(7)
C(0)=(C(0)-C(1)+CH(8)) Mod CH(8)
C(1)=(C(1)+C(2)) Mod CH(9)
C(2)=(C(2)-C(3)+CH(10)) Mod CH(10)
C(3)=(C(3)+C(4)) Mod CH(11)
C(4)=(C(4)-C(5)+CH(12)) Mod CH(12)
C(5)=(C(5)+C(6)) Mod CH(13)
C(6)=(C(6)-C(7)+CH(14)) Mod CH(14)
C(7)=(C(7)+C(0)) Mod CH(15)
CNext=C(0)
End Function
Function CNext2() As Long
C(0)=(C(0)+C(1)) Mod CH(0)
C(1)=(C(1)-C(2)+CH(1)) Mod CH(1)
C(2)=(C(2)+C(3)) Mod CH(2)
C(3)=(C(3)-C(4)+CH(3)) Mod CH(3)
C(4)=(C(4)+C(5)) Mod CH(4)
C(5)=(C(5)-C(6)+CH(5)) Mod CH(5)
C(6)=(C(6)+C(7)) Mod CH(6)
C(7)=(C(7)-CE(0)+CH(7)) Mod CH(7)
CE(0)=(CE(0)+CE(1)) Mod (CH(0)+CH(1))
CE(1)=(CE(1)-CE(2)+CH(2)+CH(3)) Mod (CH(2)+CH(3))
CE(2)=(CE(2)+CE(3)) Mod (CH(4)+CH(5))
CE(3)=(CE(3)-CE(4)+CH(6)+CH(7)) Mod (CH(6)+CH(7))
C(0)=(C(0)-C(1)+CH(8)) Mod CH(8)
C(1)=(C(1)+C(2)) Mod CH(9)
C(2)=(C(2)-C(3)+CH(10)) Mod CH(10)
C(3)=(C(3)+C(4)) Mod CH(11)
C(4)=(C(4)-C(5)+CH(12)) Mod CH(12)
C(5)=(C(5)+C(6)) Mod CH(13)
C(6)=(C(6)-C(7)+CH(14)) Mod CH(14)
C(7)=(C(7)+C(0)) Mod CH(15)
CE(4)=(CE(4)+CE(5)) Mod (CH(8)+CH(9))
CE(5)=(CE(5)-CE(6)+CH(10)+CH(11)) Mod (CH(10)+CH(11))
CE(6)=(CE(6)+CE(7)) Mod (CH(12)+CH(13))
CE(7)=(CE(7)-C(0)+CH(14)+CH(15)) Mod (CH(14)+CH(15))
CNext2=C(0)
End FunctionWebsite→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
-
暗号
まだまだ
自作のたかだか16bit程度のアルゴリズムでは、暗号というより
ただ見えなくしたくらいで、IDEAなど128bitなどのもっと高いものを
投入しましょう。
もっと複雑な暗号をかけたいなら、RSA、Diffie-Hellman,など1024-2048bit
などを使うのもいいかも。まあ、普通のPCじゃむりかも。
これだけの知識があるのになぜ自分で作れないかというと
最近までCをやっていてまだBASICは弄ったことがありません。
だから、私はいわゆる初心です。
私は、ためしに、あなたのソフトで暗号化した、３MBのファイル
を以前作った
以前といっても３ヶ月前に完成した、
複合のソフト（DOS）で処理したら、
なんと！！！！
７秒で完璧に複合化しましたよ。
ちなみに今は、先ほどいったIDEAのアルゴリズムをCで作っています。
もうちょっとしたらMｙHPで公開します。
遅くなってすみません。
情報ありがとうございました。
MyHPもよろしく Http://kouseinousofutokaihatu.*******/12312-rst.html
*******は秘密です。
ただ見えなくしたくらいで、IDEAなど128bitなどのもっと高いものを
投入しましょう。
もっと複雑な暗号をかけたいなら、RSA、Diffie-Hellman,など1024-2048bit
などを使うのもいいかも。まあ、普通のPCじゃむりかも。
これだけの知識があるのになぜ自分で作れないかというと
最近までCをやっていてまだBASICは弄ったことがありません。
だから、私はいわゆる初心です。
私は、ためしに、あなたのソフトで暗号化した、３MBのファイル
を以前作った
以前といっても３ヶ月前に完成した、
複合のソフト（DOS）で処理したら、
なんと！！！！
７秒で完璧に複合化しましたよ。
ちなみに今は、先ほどいったIDEAのアルゴリズムをCで作っています。
もうちょっとしたらMｙHPで公開します。
遅くなってすみません。
情報ありがとうございました。
MyHPもよろしく Http://kouseinousofutokaihatu.*******/12312-rst.html
*******は秘密です。
実際には16bitどころか最大608bit相当程度ですが？
まぁどっちにしろ、暗号化や復号化はアルゴリズムがあって始めて成り立つものなので「練習用」と言う形で処理すればいいのではないかと。
まぁどっちにしろ、暗号化や復号化はアルゴリズムがあって始めて成り立つものなので「練習用」と言う形で処理すればいいのではないかと。
Website→http://web1.nazca.co.jp/himajinn13sei/top.html
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。
ここ以外の場所では「暇人13世」というHNを主として使用。
に署名を書き換えて欲しいと言われたので暇だしやってみるテスト。