PGPってすごく良いの？

**おぺけぺ** · NG

PGPってみんな使ってるんだけど、
そんなに良い物なの？
絶対に破られない暗号化ソフトだから、CIAも使ってるって言ってたけど、
それって本当？
胡散臭

**名無しさん＠お腹いっぱい。** · NG

PGP or GnuPGで作成した暗号化ファイルを直視できるファイラーって
ありますかね？
最近、zipやtarなどのアーカイブファイルを暗号化したりするようになって、
ちょっとだけ中身を確認したい時に、いちいち手作業で復号化するのも面倒になってきたので。。。

**名無しさん＠お腹いっぱい。** · NG

>>798
直視するにしてもパスフレーズ入力は必須と思えます。
それともパスフレーズを保存してくれるファイラーを信じられますか？

漏れはソース全公開だったら信じられるけど...

力量が有れば作ってみたいです＞＞アーマード直視ファイラー

**名無しさん＠お腹いっぱい。** · NG

-----BEGIN PGP MESSAGE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org

hDwDBGcx04p4G1kBAX9UifIqOKfA39fDDusQT3+KsPI9toGeTGPHHgTwkNiWS10s
RahJalDHNo9qtOA3uFKkFiFriwVN3s5tzZVCfpNzrIqZ+5HecsU=
=eKps
-----END PGP MESSAGE-----

**初期不良** · NG

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

>>797
メッセージ自体の署名を確認してみてくだちぃ
次に公開鍵の部分の " - WinPT 0.7.95" を取り除いてから
署名を確認してみてくだちぃ。
これでわかると思いまつ
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.94

iD8DBQE+UpIeAPsqAp/UiEgRAiKvAKCIMSFb2AytItFpnUm2YUMb3OtrCgCgnmbk
HREJYG2mC68aAUFUg/sNQyw=
=fPSi
-----END PGP SIGNATURE-----

**初期不良** · NG

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

>>800
RSA の時の chancoro キーペア使ってる
それは obsolute でつ。
>>709 のキーペアを使ってくだせぇ
そうなった理由は >>707 でつ
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.94

iD8DBQE+Upc1APsqAp/UiEgRAuXOAJwJp6QVYYEJRJwsSQ9pWa4fXsTmygCdHD70
bKmFdfN9pJj8TBgZiJJtpzo=
=fBnP
-----END PGP SIGNATURE-----

**初期不良** · NG

キーペアは >>709
-----BEGIN PGP MESSAGE-----
Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.94

hI4D1qfhCFklgnMQAf9vHt5+lo87UNxD/ZS0koAA5KbWOwX5nrFdisivAZn9UiC2
zSADlLXR2Fs7WAq0tQ5IDFw8OVZhCxYTGBD5YgSKAf44OGNfRQ3Cq0iz1W+pStlN
oR3M/KIOC5S8oJaILCReDunfVolJF+z7Bn7lxgC7dG9TozYOCWFpSnPAGdih/sUY
yaeA9e54reggaUTVGO9ADHH24FYkAeZPLFKmtrSjE+JsmlPaBmOQZKJfPPXx7HWY
kNxCa8cSlsTOTHAJcc5yipZ/vSS5/B3MKtvDIRZr7G1Ivgun9BpUbAq9xYgw3MNK
FrJTl82X0HKmVIj17j8Xz342mV4QYZEsnacnc+URt+tWJSfoLO1A2c4WrV5QwikR
NGtEOm29ASTWrEW6PyYKrWlJEPdR03ojyw==
=f5Y1
-----END PGP MESSAGE-----
そういえば obsolute な RSA の chancoro キーが
キーサーバから取得できたな。新しいのもある...
http://pgp.nic.ad.jp:11371/pks/lookup?op=index&search=chancoro
revoke 証明書流したらキーサーバから消せるのかな？

**初期不良** · NG

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

http://pgp.nic.ad.jp/faq/index.html
ほうほう、revoke 証明書を流すんじゃなくて
revoke 証明書をインポートした後の revoke 済み公開鍵を
上書き登録するのね。revoke しておきますた。
これで暗号化することと署名は不可、
解読と署名確認は可能と言う状態になるはず。
キーサーバから revoke された公開鍵に更新してくだちぃ。
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.95

iD8DBQE+UqPUAPsqAp/UiEgRAqeDAJ9NMJl70chWCNtR5ahRjsiVcKsP8gCg9Twt
haX3hlamtn7YAXsCjgDA740=
=p+q9
-----END PGP SIGNATURE-----

**名無しさん＠お腹いっぱい。** · NG

>>801
理解しまつた。ぼけててごめんね。

こりゃあかんね(^^;

**名無しさん＠お腹いっぱい。** · NG

保守

**名無しさん＠お腹いっぱい。** · NG

-----BEGIN PGP MESSAGE-----
Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.95
Comment: You are about to become the property of the government.

hI4D1qfhCFklgnMQAgCcmgrb9pfDA+hggcmB0Ap1GM34QRZfE/OyjRAyc/meMmSB
qPTeUcryZ7LaYZlj9RhUBXStmS8C1wC71unki6O0Af0So9rozfrJG8sXgKW/xnHc
CxMD/+OqDSvJVPMwS2NXochXoeeySxfwtSxF5YPT1TwVO4ntbKm+hna7or0X4ORu
ycCzx2SW2207MvMMGb8xg3ZS2Dj06urXAl7qva3sh+FW9Y8lfFctW8Nd00/Rij6G
OMZmq6Is5MEN/ib7YSQgLrKbF9Q+Nv3vUL5c2/Elp6N+Cls4qRl96TDKWzIdBr/n
NDRljdj1DJNDWzFoUh11FYXVQUxlEQnd2Hpa2JvteZJzkopdUBQ/VEgNPcb3g7LI
lWKW5dZphrY8LWZKTj3NDV+rnxDYpeQpdx+ZWU8TswsOpjruC4rTOStozeMV1cku
2Mu+QbHglF6hqXXwTGrqnT6sp/MAM6gCNLMjIMYXhKv0Zm/tJ+sWyZ75rpjh6JYK
eY7xlYVfsVeBJF4aFmnirvhqTmUw4i0d2dZzg/w9AmFfpoOk7ERC1KlCCjLYaStf
nB6qeJzs5qCHUw+vB9CNNTKr89M82jGVtAybQFG37WxptUaJ72kOvm4HZC6VmbSB
LbvKOHxSXxj8D0XXfXNTNZAW2LXHlwEBSIqwkOgpkw4YdKEH/ds=
=/aPf
-----END PGP MESSAGE-----

**名無しさん＠お腹いっぱい。** · NG

-----BEGIN PGP MESSAGE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: KUHASIKU WA http://www.gnupg.org/ WO GORANKUDASAI

hI4D1qfhCFklgnMQAf9idLz86OpBlfYlhpW9+/ndltpD0lqotHIofq69W3CSAeFL
xptmoQKlemKzbmm58IN0xRcHi2dyKlFmiWo/sC0PAgDHQMKRa1FaTrWaA9KOomeY
t8B7287zR/C69Dm5+q36dJmgIaU512sfNSIr4TZp47axeuN6AQIpntwaGC2BXdc/
pMPPN5zvfZICg4+RmUsnD7uzDo347WUN/CQS5RkH3hfN8cGPpBkgdogw+NClPMYN
o5f5UYAV5Q8eJ+bbcIR+mZaRltvdeeS3q56/IDl6IMlTmajrvBRtFDvkwrd6aHJb
yx8YhUWFwPd6NVqtMXaKSolQ5s4m4aL2Q0adhu8J5DYgF3/uz66u9MbapVFEQnAv
n5GGXwnus4KkAzBsawJaklqLW+ej40dSqh88vJWZy3CPCOuKDoBOOaUm36ZLk5V1
lhFqCuM=
=IasS
-----END PGP MESSAGE-----

**名無しさん＠お腹いっぱい。** · NG

保守

**名無しさん＠お腹いっぱい。** · NG

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

保守

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.0 (GNU/Linux)

iEYEARECAAYFAj5iqtQACgkQAPsqAp/UiEhNSQCg2tQxdHHYU0VHatdU+LDw/wXL
hCsAoPITo4hrfTN9ath3FAOlliI/re6f
=BtPR
-----END PGP SIGNATURE-----

**Alice** · NG

はじめまして

「暗号解読」という本を読みPGPに興味を持ったので、ここのHP
(http://www.cla-ri.net/pgp/index.html)を見ながらインストールして
みました。これからいじってみます。

疑問があるんですけど、PGPの最新バージョンは8.0で良いのでしょうか。
（アメリカ版と国際版では武器輸出規制で暗号強度が違う？）
あと、トロイやバックドアの仕込まれているPGPがあるそうで、不安なんですが。。

以下「暗号解読」からの引用
------------------------------
1998年、ウェイン・マドセンの報告により明らかになったところでは、スイスの
暗号会社クリプトAGはいくつかの製品にバックドアを組み込み、その使用法を
アメリカ政府に提供していた。アメリカ政府はそのバックドアを使って、いくつかの
国の通信文を読んでいたのである。たとえば1991年、アメリカは元イラン首相で
亡命中のシャプル・バクチアルを暗殺した犯人を逮捕したが、それはクリプトAGの
製品で暗号化されたイランのメッセージを盗聴し、バックドアを使って解読したおかげ
だった。

**名無しさん＠お腹いっぱい。** · NG

キーペアは >>709

-----BEGIN PGP MESSAGE-----
Version: GnuPG v1.2.1 (MingW32) - WinPT 0.7.95
Comment: You are about to become the property of the government.

hI4D1qfhCFklgnMQAf4xv1F4p3K28PqQUIRK5r2KEOaik5xC2rffCrFnWn2xgvUs
uIAj8HnBvVC91GNhmuHwQ/zmc+Kj2Br5wGAiv4IrAgC1IeUB7ztRuTb4uuj1A0KL
O6n8E6AGp60h+ZQjNQXF5ImK75rIy02UTuRFdIqO0B8/7bY5Xv49j/bkR1dYT0mo
ycCfJvxlDWiVtPCJcsnC4OrcRuOd/Pgs+73+a0FiKH7hg939njl9na+YQnBHjLlw
eOY41P2cBRuk98C5FMdJSIHtAeVliXgljcOAv0dlH+2k46zZxQpK17K5CGeG35Hv
xxAJSgPTgAh9J1FCfB/eL9wz508I/IrH6isiX4LDUAj0neV9F5cUmrWdZBeALP+r
Q6yaQmA3rkgUTdyeahfeJKcGemR97iQEQLpGEmZNlt5HX5eHq2SAmDdp0kiuNkkX
zqwaAm2gc43IYFfxeftm6Wo0oZZG1F0+KTmdal7ezrq7Rfd7IAjjBYA7ddFsOhJJ
Oeh3H2xvho0FuPuoa3L7kDAYCGEhMPMzN5tZgxfVToU4Djh4PZZuedqFWyGWvxjc
XQ9QByZ3gDhw+0kZ66cTW0OeKZE0iZP/+L/P89vUA02JUNSbMPN6cAv1BsvniAFK
ZG+oam/3Ev666PRFVSnYimfg
=73vb
-----END PGP MESSAGE-----

**Alice** · NG

**名無しさん＠お腹いっぱい。** · NG

ぱす：test

-----BEGIN PGP MESSAGE-----
Version: PGP 6.5.8ckt - ja http://www.hizlab.net/pgp/

qANQR1DDDQQJAwKOPy+T6/7yqmDJUULe7O+o/H28/ixtL8XWvlbiHDzNTQE4Ug3F
R/+7QDQAS/FszhfA6jawI9zoDMB2sWQK9tPBz29Mdr1zcm3tzzOkSSGdIi9m/cIf
5LUd9avn+Q==
=Q82q
-----END PGP MESSAGE-----

**名無しさん＠お腹いっぱい。** · NG

ヽ(`Д´)ﾉ　PGP 6.5.8 も GnuPG v1.2.1 もxpに対応してないじゃんか・・・

**名無しさん＠お腹いっぱい。** · NG

一部の、機能が使えないだけじゃないの？

**名無しさん＠お腹いっぱい。** · NG

pass:test

-----BEGIN PGP MESSAGE-----
Version: PGP 6.5.8ckt - ja http://www.hizlab.net/pgp/

qANQR1DDDQQJAwImbl91lDlEL2DJwCKFz7U8UtFiVGNWwDSdoZD4Bh/7bP8FX2x9
CptwfCs/eWqgHus7RSf0khfRTvwl/SZ9bNlvnDj72I6be+TvtC/dS5rBXC9Jxr6v
tTS6eVEfTEiSUytfQ/yYX5HItw93hTpyKkRaTyyXnBZAB/3zwcBxaKnAZ5ZNdSKE
Mfel6nEx0Z5xqDp7O8H5SViEdZE6jQevRhhSf5VV+AA1QluSMRqG1YjK3NcULKJi
0tULdjn3i3SwtLi7m/PwoH+y4c5kX26xEjm9eHuicPGfvGes35X7lTsCMO7LJudT
z3iHf8rpPwSu
=oRNk
-----END PGP MESSAGE-----

**名無しさん＠お腹いっぱい。** · NG

pass:test

-----BEGIN PGP MESSAGE-----
Version: PGP 6.5.8

pHcbS4qnPr6KIzFHQvGi2yceNL3WZaUjTX8nmnbs9EEfctptYWTnaHgECnL5SPVH
ur+/NG943mNIoDmGJ6Kc88g4YuATNd0L9NqdRwoN7T6aTWwxaVth2B0X6PnkvxU+
3aZCaKBZ0rqM1BF437JbNKU8i90GgqFBZg==
=Ftqh
-----END PGP MESSAGE-----

**名無しさん＠お腹いっぱい。** · NG

-----BEGIN PGP MESSAGE-----
Version: GnuPG v1.2.1 (GNU/Linux)

hI4D1qfhCFklgnMQAgCdPB9VsuLZLYkXJRnQU0oKOdBuRuwe9B9/K1890fxr7b88
2sHMcZ8OVhBe+jC36zT8rOp5LcGEcYO4UnVpdqe0AgCa4U3bWxPxLHflntL2H/IJ
v3GMMBf3j8scNvL6HrRLxTqG6j5BJzoH5QFQlgnQ23TaBssCb5BNaoFItEGn1Vtk
pBwOjfr+u4l84DZLiIm25Cl1JYwnPYfSbU6eog3f
=aszM
-----END PGP MESSAGE-----

**名無しさん＠お腹いっぱい。** · NG

はあ、、、すごい虚脱感が。。。

**名無しさん＠お腹いっぱい。** · NG

pass:test

-----BEGIN PGP MESSAGE-----
Version: PGP 6.5.8

pEVguNuHZcymXhRERJnbuYws8A7rxk1wjgzf4NaTHHeRL4nq1JiA6GtY52hboTE4
qJ5E1eTdinwLelk3UgRyPSv+1Xb1F98=
=M6fL
-----END PGP MESSAGE-----

**名無しさん＠お腹いっぱい。** · NG

-----BEGIN PGP MESSAGE-----
Version: PGP 6.5.8ckt - ja http://www.hizlab.net/pgp/

qANQR1DDDQQJAwKZF8z/HHV9TWDJLYbMM6zuEODl86nxPDLUSTZExF1jaJjuUn/r
dAHOyPQzZ+uU+4GlVMmSYtnyJA==
=Vsdx
-----END PGP MESSAGE-----

**名無しさん＠お腹いっぱい。** · NG

PGPの公開キーって、GPGでつかえるの？

**名無しさん＠お腹いっぱい。** · NG

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

使えるはず。

-----BEGIN PGP SIGNATURE-----
Version: PGP 6.5.8ckt - ja: http://www.hizlab.net/pgp/
Comment: KeyID: 0x9FD48848
Comment: Fingerprint: A9D3 45E3 55B5 D4A0 3487 E759 00FB 2A02 9FD4 8848

iQA/AwUBPnlOzQD7KgKf1IhIEQIbfQCfZnBYf0Y138vaBFpe7jys/3FlXJMAn0d6
mcOfpKGyeyvOhvnD2Uh35HIb
=FiLT
-----END PGP SIGNATURE-----

**向こうから** · NG

ｄ＝133　　？　　　だめ？

**向こうから** · NG

ｄ＝47　！

**向こうから** · NG

１=MOD((ｄ*11),12)

になるようにエクセルで　このｄを求めたんだけど

**名無しさん＠お腹いっぱい。** · NG

>>826-827
オッケー

その次は？
nとeだけを晒して

m · NG

http://www.pink-angel.jp/betu/linkvp2/linkvp.html
↑　↑　↑　↑　↑　↑　↑　↑　↑　↑　↑　↑
★みんなの情報局★みんなのリンク集★ココ最高★

**向こうから** · NG

ｎ＝21
e＝１１

晒す

**向こうから** ◆tr.t4dJfuU · NG

ｃを晒しておいてください

もうすぐ出かけるので　続きは　夜　に　なるかもしれません

**名無しさん＠お腹いっぱい。** · NG

>>831
c=9

ちなみにm<n

**向こうから** ◆tr.t4dJfuU · NG

c^d

これが、
９＾４７　なんですが、
7.06965049015105E+44
で、
706965049015105000000000000000000000000000000
こうなるんですが、
上の指数表現の段階で、端数が切られて正しい計算が出来ません。

これを　21　で　割った　　余り　を　求めたいんですが、エクセルでは　出来ません

お付き合いありがとう　ございました。
暗号が解きたいのではなく
どんな仕組みになっているのか興味がありましたが、
もう　だめです・・・・

**向こうから** ◆tr.t4dJfuU · NG

=MOD(9^47,21)

=MOD(（9^47）,21)

いずれも、エラーです・・・

**名無しさん＠お腹いっぱい。** · NG

MOD( a^2 , b ) == MOD( a * MOD(a,b) ,b )
MOD( a^3 , b ) == MOD( a * MOD(a^2,b) ,b )

MOD( a^n , b ) == MOD( a * MOD(a^(n-1),b) ,b )

**向こうから** ◆tr.t4dJfuU · NG

ん？

**向こうから** ◆tr.t4dJfuU · NG

=MOD(9*MOD(9^46,21),21)

=MOD(9*MOD(9^（47-1）,21),21)

いずれも　エラー　でした・・・

**名無しさん＠お腹いっぱい。** · NG

http://www004.upp.so-net.ne.jp/s_honma/mathbun/mathbun22.htm

**向こうから** ◆tr.t4dJfuU · NG

エクセルのＶＢＡは　使えるのですが・・
ちょっと　このへんで　無理そうです・・・

**名無しさん＠お腹いっぱい。** · NG

なんやねん（ｗ

**合同式** · NG

http://www.google.co.jp/search?q=%8D%87%93%AF%8E%AE&ie=Shift_JIS&hl=ja&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

**向こうから** ◆tr.t4dJfuU · NG

だって、エクセル使ってるいじょう

9＾47　が計算できんかったら　むりじゃないかと・・

ＶＢＡでどうしろと？

アルゴリズム　か　フロー　で　示してくれたら　できるかも・・

でも　まぁ　このへんで

ありがとございました

**向こうから** ◆tr.t4dJfuU · NG

ちらっと　合同式みました・・

ムズイです・・

**名無しさん＠お腹いっぱい。** · NG

A=1
FOR I=1 TO 47
A=(A*9)MOD 47
NEXT
PRINT A

**844訂正** · NG

A=1
FOR I=1 TO 47
A=(A*9)MOD 21
NEXT
PRINT A

**名無しさん＠お腹いっぱい。** · NG

#include <stdio.h>

int my_func(int a,int b,int c);

int my_func(a,b,c)
{
int r;
int i;
r=1;
for(i=0;i<b;i++)
{
r=(r*a)%c;
}
return r;
}

int main(void)
{
int a;
a=my_func(9,47,21);
printf("%d\n",a);
return 0;
}

**向こうから** ◆tr.t4dJfuU · NG

ん！

Ｃは使えないので
ＶＢＡでやってみます！

明日から仕事なんで、近日中に・・・

**向こうから** ◆tr.t4dJfuU · NG

現在

Public Function ABEKIBMODC(入力A, 入力B, 入力C) As Variant

Debug.Print "開始ーーーーーーー"

Dim A, B, C
Dim I, X, Y
A = 入力A: B = 入力B: C = 入力C

X = 1
For I = 1 To B
X = X + (X * A) Mod C
Debug.Print I, X

Next I

Debug.Print "余り＝", X

Y = Hex$(X)

Debug.Print "16進表記", Y

ABEKIBMODC = X

End Function

**向こうから** ◆tr.t4dJfuU · NG

デバクウインドのコピー

開始ーーーーーーー
1 10
2 16
3 34
4 46
5 61
6 64
7 73
8 79
　　　　省略
45 475
46 487
47 502
余り＝ 502
16進表記 1F6

00　00　00　00　00　01　F6

と解して、
アスキーコードにすれば　いいのかな？

ちょっと　出かけてくるので　また　よる

**向こうから** ◆tr.t4dJfuU · NG

>>845
ちなみに

３行目は　勝手に
A＝A＋（・・・・・

と　解釈したんですが？？？？？

**名無しさん＠お腹いっぱい。** · NG

>>849

× X = X + (X * A) Mod C
○ X = (X * A) Mod C
○ X = MOD( X * A , C )

**名無しさん＠お腹いっぱい。** · NG

#! /usr/bin/env perl
$a=9 ;
$b=47 ;
$c=21 ;

$t=1 ;
for ( $i = 0 ; $i < $b ; $i++ ) {
$t=($t * $a) % $c;
};
print "$t\n";

**名無しさん＠お腹いっぱい。** · NG

#include <stdio.h>

int aaaa(int a,int x,int p);

int aaaa(int a,int x,int p) {
auto int r;
if(0!=x) {
if((x%2)!=0) {
r=(a*aaaa((a*a)%p,(x-1)/2,p))%p;
}
else {
r=(aaaa((a*a)%p,x/2,p))%p;
}
}
else {
r=1;
}
return r;
}

int main(void) {
auto int a,x,p ,r;
a=9;
x=47;
p=21;
if((x<0)||(p<1)) exit(2);
r=aaaa(a,x,p);
printf("%d\n",r);
return 0;
}

**向こうから** ◆tr.t4dJfuU · NG

なんか　勘違いしてるのかなぁ・・
とりあえず　直しました

Public Function ABEKIBMODC(入力A, 入力B, 入力C) As Variant

Debug.Print "開始ーーーーーーー"

Dim A, B, C
Dim I, X, Y
A = 入力A: B = 入力B: C = 入力C

X = 1
For I = 1 To B
X = (X * A) Mod C

Debug.Print I, X

Next I

Debug.Print "余り＝", X

Y = Hex$(X)

Debug.Print "16進表記", Y

ABEKIBMODC = X

End Function

**向こうから** ◆tr.t4dJfuU · NG

でばぐういんど

開始ーーーーーーー
1 9
2 18
3 15
4 9
5 18
略
44 18
45 15
46 9
47 18
余り＝ 18
16進表記 12

当たり前ですが、４７回目の演算の余りを　答えとしているので、ループさせた意味が
分からないのですが？
これだけじゃ　だめなのかな？

**向こうから** ◆tr.t4dJfuU · NG

A＝9
B＝47
ｃ＝21

が　代入されてます

=ABEKIBMODC(9,47,21)

こんな関数になってます。

**向こうから** ◆tr.t4dJfuU · NG

>>853
これが　ヒントなのか・・・・

**向こうから** ◆tr.t4dJfuU · NG

>>853
うーん・・・
わかりません

たとえば
if((x<0)||(p<1)) exit(2);
は、
IF　X＜0　OR　P＜1　THEN　returｎ
か
IF　X＜0　AND　P＜1　THEN　returｎ

なのかも、はたまた　もっと違うのかも　わかりません

BASIC風だと　わかるのですが・・・

**向こうから** ◆tr.t4dJfuU · NG

>>853
int aaaa(int a,int x,int p);
ここらへんは・・・

ユーザー定義型
Type ステートメントを使って、異なるデータ型を組み合わせた独自のデータ型を作成できます。ユーザー定義型には 1 つまたは複数のデータ型の要素、配列、または事前に定義したユーザー定義型を格納することができます。次に例を示します。

Type aaaa
a As As Integer ' 整数型変数
ｘ As As Integer ' 整数型変数
ｐ As As Integer ' 整数型変数
End Type

なのか？？？　わかりません。。。

**名無しさん＠お腹いっぱい。** · NG

a,b は0以上の整数
p は自然数

( a + b ) mod p == ( ( a mod p ) + ( b mod p ) ) mod p
( a * b ) mod p == ( ( a mod p ) * ( b mod p ) ) mod p
a mod p == ( a + b*p ) mod p

**名無しさん＠お腹いっぱい。** · NG

**向こうから** ◆tr.t4dJfuU · NG

えっと目的は　=MOD(（9^47）,21)　で・・・・

書き換えると

（９＾４７）　MOD　２１　　　で・・・

これ「( a * b ) mod p == ( ( a mod p ) * ( b mod p ) ) mod p 」にあてはめると

（9*47）mod21　＝　（（9　mod　21）＊（47　mod　２１））　mod　２１　で・・・

関数表現では　＝mod（mod（9,21）*mod（47,21）,21）　　　かな・・

とりあえずエクセルに入れたら、「３」がでました・・

で・・　いいのかな・・

１６進でも　３は　３で
00　00　00　00　00　00　00　03
のなか？
でも　ASCIIコードに　00　も　03　も　文字は　割り当てられてないです・・

それに
これと＞( a + b ) mod p == ( ( a mod p ) + ( b mod p ) ) mod p
これ＞a mod p == ( a + b*p ) mod p
を使ってないので
まだまだ　だめなんでしょうか・・・

**向こうから** ◆tr.t4dJfuU · NG

もしかして　ここのスレは私語禁止ですか？（ｗ

暗号で　話してるんですか？

**名無しさん＠お腹いっぱい。** · NG

a^0 == 1
a^1 == a
a^2 == a*a
a^3 == a*a*a
a^4 == a*a*a*a
a^5 == a*a*a*a*a

a^n == (a^(n-1))*a
a^(n+1) == (a^n)*a

2^2 == 4
10^3 == 1000
9^2 == 81

**向こうから** ◆tr.t4dJfuU · NG

ん？

９＾４７＝（９＾（47-1））*9
はい
わかります

その次も

９＾４８＝（９＾47）＊9

はい・・　で・・・

あ～
なんか　頭わるいみたい

こんなのもOKですか？
９＾４７＝（９＾10）＊（9＾10）＊（9＾10）＊（9＾10）＊（9＾7）

でも・・・　意味ないか・・・

**向こうから** ◆tr.t4dJfuU · NG

９^10=3486784401
で計算できたけど・・・

=MOD((((9^10)*(9^10)*(9^10)*(9^10)*(9^7))),21)
こーすると　エラーだし・・・

**名無しさん＠お腹いっぱい。** · NG

( 9 ^ 47 ) mod 21
== ( ( ( 9 ^ 46 ) mod 21 ) * 9 ) mod 21
== ( ( ( ( ( 9 ^ 45 ) mod 21 ) * 9 ) mod 21 ) * 9 ) mod 21
== ( ( ( ( ( ( ( 9 ^ 44 ) mod 21 ) * 9 ) mod 21 ) * 9 ) mod 21 ) * 9 ) mod 21
中略
== 18

**向こうから** ◆tr.t4dJfuU · NG

さっきの
あまりを　積算した　502　から

502　mod　21　＝　19

19は　１６進で　13

でも　＆H13でも　文字はないなぁ・・

**名無しさん＠お腹いっぱい。** · NG

( 9 ^ 2 ) mod 21 == 18

( 9^3 ) mod 21
== ( (9^2) * 9 ) mod 21
== ( ( ( 9^2 ) mod 21 ) * ( 9 mod 21 ) ) mod 21
== ( 18 * 9 ) mod 21
== 15

( 9^4 ) mod 21
== ( (9^3) * 9 ) mod 21
== ( ( ( 9^3 ) mod 21 ) * ( 9 mod 21 ) ) mod 21
== ( 15 * 9 ) mod 21
== 9

( 9^5 ) mod 21
== ( (9^4) * 9 ) mod 21
== ( ( ( 9^4 ) mod 21 ) * ( 9 mod 21 ) ) mod 21
== ( 9 * 9 ) mod 21
== 18

以下同様に ( 9^47 ) mod 21 まで続ける。

**向こうから** ◆tr.t4dJfuU · NG

ん・・

一番したは、

（（（・・・（（（9＾1）mod21）*9）mod21）*9）・・・・mod21）*9）

になってるはずだから・・・

X＝（9＾1）mod21
for　I＝１　to　47-1

　X＝X＊（Xmod21）*9）

ありゃ・・

（9＾1）mod21　に　mod21）*9）　を　47（か46）　回　掛け合わせるればいいと・・

ここに再帰が　使われる？　のか・・・　な・・

いや・・　これでいいのかな？
ちょっと　実験してきます・・・

**向こうから** ◆tr.t4dJfuU · NG

>>869

== ( ( ( 9^４６ ) mod 21 ) * ( 9 mod 21 ) ) mod 21

で　　　　↑

ここの（９＾４６）で　オーバーフローする

だめだ・・・

再帰を　つかうのか？？？？
こんがらかって　どうどうめぐり

**向こうから** ◆tr.t4dJfuU · NG

ん

（9＾1）mod21 に

* 9 ) mod 21

を

47回　掛けるのか・・

X＝（9＾1）mod21
DIM　Y

for　I＝１　to　47
　Y＝X＊９
　X＝Y　mod　21
next

かな・・

**向こうから** ◆tr.t4dJfuU · NG

Dim A, B, C
Dim I, X, Y
A = 入力A: B = 入力B: C = 入力C
'A=9 B=47 C=21
Y = 0
X = A ^ 1 Mod C
Y = X
For I = 1 To B

Y = Y * 9
X = Y Mod C

Debug.Print I, X

Next I

Debug.Print "余り＝", X

ABEKIBMODC = X

End Function

**向こうから** ◆tr.t4dJfuU · NG

でばぐういんｊんど

開始ーーーーーーー
1 18
2 15
3 9
4 18
5 15
6 9
7 18
8 15
ここで　エラー

>>869　の　答えと　一致（偶然かも）

でも　9回目の　ループ　で　止まった・・・
なんで

**向こうから** ◆tr.t4dJfuU · NG

開始ーーーーーーー
I Y X = 1 81 18
I Y X = 2 729 15
I Y X = 3 6561 9
I Y X = 4 59049 18
I Y X = 5 531441 15
I Y X = 6 4782969 9
I Y X = 7 43046721 18
I Y X = 8 387420489 15

原因

Yの値が　オーバーフロー

馬鹿です　自分

やっぱ　再帰　かな・・
わからん

**向こうから** ◆tr.t4dJfuU · NG

べき余り
218
315
49
518
　　　略
439
4418
4515
469
4718　　＜＜＜＜

余りは　規則的に繰り返す

でも　・・・
プログラムで　やったわけじゃない
エクセルで縦に並べた

**名無しさん＠お腹いっぱい。** · NG

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

合同式については

数学入門下　岩波新書青版 396
遠山啓 (著)
http://www.amazon.co.jp/exec/obidos/ASIN/4004160057/ref%3Dlm%5Flb%5F14/250-0526484-8392254

VIII 数の魔術と科学
が参考になるかも。
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iD8DBQE+iE/+APsqAp/UiEgRAjCDAKCbcAMrdCgeeFsPZEWJ5CB3yvIrpgCdFN90
rWTvP1VNhrmrWT3PZOnq95o=
=t6Po
-----END PGP SIGNATURE-----

**向こうから** ◆tr.t4dJfuU · NG

べき余り
2-18
3-15
4-9

43-9
44-18
45-15
46-9
47-18

**向こうから** ◆tr.t4dJfuU · NG

結局分かりませんでしたが

ありがとう　ございました

18でも　文字コードないですよな・・・

**向こうから** ◆tr.t4dJfuU · NG

>>877
これは　　漏れに対しての　メッセージですか？

ありがとう
ございます

**名無しさん＠お腹いっぱい。** · NG

>>873

× X = A ^ 1 Mod C
○ X = A ^ 0 Mod C

× Y = Y * 9
○ Y = X * 9

**向こうから** ◆tr.t4dJfuU · NG

Option Explicit

Public Function ABEKIBMODC(入力A, 入力B, 入力C) As Variant

Debug.Print "開始ーーーーーーー"

Dim A, B, C
Dim I, X, Y
A = 入力A: B = 入力B: C = 入力C
'A=9 B=47 C=21
Y = 0
X = A ^ 0 Mod C
Y = X
For I = 1 To B

Y = X * 9
X = Y Mod C

Debug.Print "I Y X ="; I, Y, X

Next I

Debug.Print "余り＝", X

ABEKIBMODC = X

End Function

**向こうから** ◆tr.t4dJfuU · NG

開始ーーーーーーー
I Y X = 1 9 9
I Y X = 2 81 18
I Y X = 3 162 15
I Y X = 4 135 9
I Y X = 5 81 18
　略
I Y X = 43 135 9
I Y X = 44 81 18
I Y X = 45 162 15
I Y X = 46 135 9
I Y X = 47 81 18

余り＝ 18

でました！！！！！！！！！！！！！！！！！！！！！！！！！！！！

**名無しさん＠お腹いっぱい。** · NG

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

ところで
向こうって何処？
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iD8DBQE+iFVgAPsqAp/UiEgRAgzAAKDmiCW/qNlnG6vqd4EM9vfi/zgegQCfcH0m
GXgaE1WoFQeb1hoGp7vUBhQ=
=yPwa
-----END PGP SIGNATURE-----

**向こうから** ◆tr.t4dJfuU · NG

あれ？　漏れを　ここに　誘導してくれた
人じゃ　ないんですか？

他のスレでPGPって暗号が　簡単に　使えると　紹介が　あって、

漏れが興味を持ったのですが・・

そのほかのスレでは、スレチガイ！　の　お叱りが　あって　

暗号解読の続きを　ここで　やってたんです

**向こうから** ◆tr.t4dJfuU · NG

18で　いいんですか？？

**名無しさん＠お腹いっぱい。** · NG

あってる！

これを応用してeとnとdの値を大きくすると
伝えたい数字=mを大きくする事が出来るのです

n=210682641866528392339924267919521486832254575626011849551005435185793837676391
952488587737546451362177622385218482600517540050364571844864529848980677135592
71048127665947018785888345270242137737997411

e=5

dは秘密鍵だから公開しては駄目

**名無しさん＠お腹いっぱい。** · NG

送る側は
c=Mod(m^e,n)を出して

c=698554217608521722285159656025858094842043344042897409638522493078199478097402
453624389362145671555027608884321004068910953767391333601595127856237419999890
2499

=
7f32d8993f8fdbeeddf283513ebc3cf6c163b804690a7ca90387970f8d4cdbcfb66bec39dc37f
25b1f8c92a20edebe3e3df0d5dbdb20d52231535af0c2e25efbf70e3

を送る

**向こうから** ◆tr.t4dJfuU · NG

>>887
来てくれたんですね　ありがとです

でも・・

そんな　桁　エクセルでは　無理　ですね・・・

でも　ありがとう　ございました

m^eをnで割った余りをcとし、このスレで晒す

ｍが1234
として

1234＾５　mod　2106・・・・・7411

もう　１２３４＾５で　フローします
それに、ｎの100桁とか　入らない。。

でも　頭の体操になりました

**名無しさん＠お腹いっぱい。** · NG

受け取った側は
m'=Mod(c^d,n)

=93076495688256089536609610280499

=496ca60b7bb3f3690289336ae33

を出して

（下位）８バイトを文字列に直して
キーを受け取る

**名無しさん＠お腹いっぱい。** · NG

>>889
どうにかして桁を増やす方法ないかな？
上の方の応用で出来ると思う

**名無しさん＠お腹いっぱい。** · NG

>>889
PGP使えば？

**向こうから** ◆tr.t4dJfuU · NG

桁は　そんな　１００桁とかは　無理かと・・・

応用できる　頭は　ありません

もしかしたら　10文字くらいの　ミニPGPくらいなら　できるかも（ｗ

＞PGP使えば？

暗号がやりたいんではなく

暗号の作成と解読の仕組みに興味を　持ったので・・
自分で（手計算かVBA）やってみたかったのです。

**向こうから** ◆tr.t4dJfuU · NG

風呂も入らず
メシもくわずやってたので　疲れました（ｗ

**名無しさん＠お腹いっぱい。** · NG

>>893
小さめのnとeとdを作ってnとeを晒してみて

**名無しさん＠お腹いっぱい。** · NG

>>894
乙

**向こうから** ◆tr.t4dJfuU · NG

>>895
では、近日中にやります
明日　仕事なもんで・・

こんど晒しておきますから　また　遊んでください

　