暗号化ソフトのつくりかた
Posted: 2006年4月01日(土) 23:44
暗号化形式は、何でもかまいません。
暗号化ソフトの作り方の手順と解説、できればソースコードをお願いします。
暗号化ソフトを作った御方大歓迎です。
できればソースコードをお願いします。
暗号化ソフトの作り方の手順と解説、できればソースコードをお願いします。
暗号化ソフトを作った御方大歓迎です。
できればソースコードをお願いします。
例：文字コードを 3 ずらすと、
"abcdef"が"defghi"になります。
コード: 全て選択
'簡単な暗号（文字コードを３ずらす）
Dim lpstr[10] As Byte
lstrcpy(lpstr, "abcdefghij")
Dim i As Long
For i = 0 To ELM(10)
lpstr = (lpstr + 3) mod 256
Nextこれで、lpstrの文字の内容が全く別の文字列になります。
256の余りを代入しているのは、オーバーフローを防ぐためです。
複合化は、これの逆、上のコードの場合では３を引いてやればいいわけです。
コード: 全て選択
'複合化（文字コードを３ずらす）
Dim lpstr[10] As Byte '複合化する文字列
Dim i As Long
For i = 0 To ELM(10)
If lpstr - 3 < 0 Then
lpstr = 256 - (lpstr - 3)
Else
lpstr = lpstr - 3
End If
Nextもちろん、これは簡単な暗号なので、すぐに破られてしまうことでしょう。
どんな暗号が破られにくいかを、自分でいろいろと試してみてください。