PGPってすごく良いの？

[0001 おぺけぺ NG NG]

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

[0839 向こうから ◆tr.t4dJfuU NG NG]

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

[0840 名無しさん＠お腹いっぱい。 NG NG]

なんやねん（ｗ

[0841 合同式 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

[0842 向こうから ◆tr.t4dJfuU NG NG]

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

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

ＶＢＡでどうしろと？

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

でも　まぁ　このへんで

ありがとございました

[0843 向こうから ◆tr.t4dJfuU NG NG]

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

ムズイです・・

[0844 名無しさん＠お腹いっぱい。 NG NG]

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

[0845 844訂正 NG NG]

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

[0846 名無しさん＠お腹いっぱい。 NG 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;
}

[0847 向こうから ◆tr.t4dJfuU NG NG]

ん！

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

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

[0848 向こうから ◆tr.t4dJfuU NG 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

[0849 向こうから ◆tr.t4dJfuU NG 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

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

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

[0850 向こうから ◆tr.t4dJfuU NG NG]

>>845
ちなみに

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

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

[0851 名無しさん＠お腹いっぱい。 NG NG]

>>849

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

[0852 名無しさん＠お腹いっぱい。 NG 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";

[0853 名無しさん＠お腹いっぱい。 NG 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;
}

[0854 向こうから ◆tr.t4dJfuU NG 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

[0855 向こうから ◆tr.t4dJfuU NG NG]

でばぐういんど

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

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

[0856 向こうから ◆tr.t4dJfuU NG NG]

A＝9
B＝47
ｃ＝21

が　代入されてます

=ABEKIBMODC(9,47,21)

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

[0857 向こうから ◆tr.t4dJfuU NG NG]

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

[0858 向こうから ◆tr.t4dJfuU NG 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風だと　わかるのですが・・・

[0859 向こうから ◆tr.t4dJfuU NG 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

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

[0860 名無しさん＠お腹いっぱい。 NG 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

[0861 名無しさん＠お腹いっぱい。 NG NG]

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

qANQR1DBjgPWp+EIWSWCcxAB/3tw9qlJERkDAJgmOUogIBPhU8aM1AR7Ifb9Ne7V
zK0BjnP/PzcMpQLS16nLmQBu7m3HCWfgndGcgUej9sUA16AB/0Ai5snlu3UuEgtU
wIEvEgmMseCLrfu4OEogWWX8cG3+IxnReQarW0sGihUV0TBs/ulkRtbZvpb5HbIc
3i7oK+3Jc9OlkW4kVm/yAWx4VzFzr6lQp1R7tpyTQMM9NZev6A+tMaiw6EnoVKfI
ZWsFbvv9SSdqpMxN/Uoq8r2ChmmBAtz9x8jVeahZeQf6Nq5Gz/CBh3m3hyS4Z7Ks
heLrmU1qhmxOkAOk9Yfd+9ldDd2c9MKLYQI=
=mSQu
-----END PGP MESSAGE-----

[0862 向こうから ◆tr.t4dJfuU NG 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
を使ってないので
まだまだ　だめなんでしょうか・・・

[0863 向こうから ◆tr.t4dJfuU NG NG]

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

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

[0864 名無しさん＠お腹いっぱい。 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

[0865 向こうから ◆tr.t4dJfuU NG NG]

ん？

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

その次も

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

はい・・　で・・・

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

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

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

[0866 向こうから ◆tr.t4dJfuU NG NG]

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

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

[0867 名無しさん＠お腹いっぱい。 NG 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

[0868 向こうから ◆tr.t4dJfuU NG NG]

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

502　mod　21　＝　19

19は　１６進で　13

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

[0869 名無しさん＠お腹いっぱい。 NG 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 まで続ける。

[0870 向こうから ◆tr.t4dJfuU NG 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）　回　掛け合わせるればいいと・・

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

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

[0871 向こうから ◆tr.t4dJfuU NG NG]

>>869

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

で　　　　↑

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


だめだ・・・

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

[0872 向こうから ◆tr.t4dJfuU NG 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

かな・・

[0873 向こうから ◆tr.t4dJfuU NG 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

[0874 向こうから ◆tr.t4dJfuU NG NG]

でばぐういんｊんど

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

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

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

[0875 向こうから ◆tr.t4dJfuU NG 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の値が　オーバーフロー

馬鹿です　自分

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

[0876 向こうから ◆tr.t4dJfuU NG NG]

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

余りは　規則的に繰り返す

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

[0877 名無しさん＠お腹いっぱい。 NG 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-----

[0878 向こうから ◆tr.t4dJfuU NG NG]

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

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

[0879 向こうから ◆tr.t4dJfuU NG NG]

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

ありがとう　ございました

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

[0880 向こうから ◆tr.t4dJfuU NG NG]

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

ありがとう
ございます

[0881 名無しさん＠お腹いっぱい。 NG NG]

>>873

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

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

[0882 向こうから ◆tr.t4dJfuU NG 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

[0883 向こうから ◆tr.t4dJfuU NG 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

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

[0884 名無しさん＠お腹いっぱい。 NG 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-----

[0885 向こうから ◆tr.t4dJfuU NG NG]

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

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

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

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

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

[0886 向こうから ◆tr.t4dJfuU NG NG]

18で　いいんですか？？

[0887 名無しさん＠お腹いっぱい。 NG NG]

あってる！

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

n=210682641866528392339924267919521486832254575626011849551005435185793837676391
952488587737546451362177622385218482600517540050364571844864529848980677135592
71048127665947018785888345270242137737997411

e=5

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

[0888 名無しさん＠お腹いっぱい。 NG NG]

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

c=698554217608521722285159656025858094842043344042897409638522493078199478097402
453624389362145671555027608884321004068910953767391333601595127856237419999890
2499

=
7f32d8993f8fdbeeddf283513ebc3cf6c163b804690a7ca90387970f8d4cdbcfb66bec39dc37f
25b1f8c92a20edebe3e3df0d5dbdb20d52231535af0c2e25efbf70e3

を送る

[0889 向こうから ◆tr.t4dJfuU NG NG]

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

でも・・

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

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

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

ｍが1234
として

1234＾５　mod　2106・・・・・7411

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

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

[0890 名無しさん＠お腹いっぱい。 NG NG]

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

=93076495688256089536609610280499

=496ca60b7bb3f3690289336ae33

を出して

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

[0891 名無しさん＠お腹いっぱい。 NG NG]

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

[0892 名無しさん＠お腹いっぱい。 NG NG]

>>889
PGP使えば？

[0893 向こうから ◆tr.t4dJfuU NG NG]

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

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

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

＞PGP使えば？

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

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

[0894 向こうから ◆tr.t4dJfuU NG NG]

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

[0895 名無しさん＠お腹いっぱい。 NG NG]

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

[0896 名無しさん＠お腹いっぱい。 NG NG]

>>894
乙

[0897 向こうから ◆tr.t4dJfuU NG NG]

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

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

　

[0898 bloom NG NG]

http://www.agemasukudasai.com/bloom/

[0899 名無しさん＠お腹いっぱい。 NG NG]

>>897
乙〜

pとqがバレるとnとeから誰でもdが出せてしまう
pとqを見つけるにはnを因数分解するしかない
nを大きくしなきゃいけない理由は
容易に因数分解出来てしまうから

[0900 名無しさん＠お腹いっぱい。 NG NG]

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

jA0EAgMBudCOxORtJM9gpCTQF9tuStvI2eyRIC5AhZJk1QWDqlT1e0uPFODI77C+
wmNVw7k=
=0/gF
-----END PGP MESSAGE-----

[0901 名無しさん＠お腹いっぱい。 NG NG]

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


　　　　　　　　　　　　　　　　＼　│　／
　　　　　　　　　　　　　　　　　／￣＼　　 ／￣￣￣￣￣￣￣￣￣
　　　　　　　　　　　　　　　─（ ﾟ ∀ ﾟ ）＜　ＰＧＰＰＧＰ！
　　　　　　　　　　　　　　　　　＼＿／　　 ＼＿＿＿＿＿＿＿＿＿
　　　　　　　　　　　　　　　　／　│　＼
　　　　　　　　　　　　　　　　　　　 ∩ ∧　∧　　／￣￣￣￣￣￣￣￣￣￣
￣￣￣￣￣￣￣￣＼∩ ∧　∧　＼（ ﾟ∀ﾟ）＜　ＰＧＰＰＧＰ！
ＰＧＰ〜〜〜〜！ 　 ＞（ ﾟ∀ﾟ ）/ ｜　　　　/　＼＿＿＿＿＿＿＿＿＿＿
＿＿＿＿＿＿＿＿／ ｜　　　 〈　｜　　　｜
　　　　　　　　　　　　　 /　／＼_」　/　／＼」
　　　　　　　　　　　　　 ￣　　　　 / ／
　　　　　　　　　　　　　　　　　　　￣
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iEYEARECAAYFAj6JgzoACgkQAPsqAp/UiEiLcACgk/FWFcu3CCoAyD/HmjY71lPB
iP4AoKCZUW6fT/iDlpq+lA/t7Qkk7iuI
=VJR4
-----END PGP SIGNATURE-----

[0902 向こうから ◆tr.t4dJfuU NG NG]

おじゃまします
P＝17
ｑ＝23

として、
ｎ＝ｐ*ｑ＝17*23＝391
ｓ＝（ｐ−１）*（ｑ−１）＝16*22＝352

で・・
＞1　大きな素数(１００桁くらい)を２つ作りp,qとする
＞2　n=p*qとし、s=(p-1)(q-1)と互いに素(公約数が無い）なeを決める

この　eを決めるところが、文章から理解できません。

[0903 名無しさん＠お腹いっぱい。 NG NG]

>>902


352を2で割ってみると割り切れてしまう→×
352を3で割ってみると割り切れない→e=3


こうやってeを決めます

[0904 向こうから ◆tr.t4dJfuU NG NG]

>>903
eは、尚且つ　素数で、

任意の数で　いいんですね。

順番に2、3、5、7　・・・
と　割っていって、割れなかった一番初めの素数である　必要はないですね？

では　e＝109
109は素数　で、352を割れない

[0905 名無しさん＠お腹いっぱい。 NG NG]

>>904
オッケーです

でも
c=Mod(m^e,n)を出す時にeが小さい方が都合がいいですよね

そのかわりdが大きくなってしまうわけですが

[0906 向こうから ◆tr.t4dJfuU NG NG]

すみません・・・
もうちょっと検討します・・

なにかというと、
eが小さい方がいいのですが・・・

ｄ*109　が　352　の倍数+1　に　なるところの　計算が　浮かばない

なんか　ヒントいただけると　うれしい

ちなみに素数を吐き出す　関数を作ってました

[0907 向こうから ◆tr.t4dJfuU NG NG]

Public Function SOSUU(欲しい個数)
Debug.Print "素数の検索　開始ーーーーーーーーーーーーーー"
'欲しい個数分の素数を検索する

Dim 素数格納配列上限
Dim 素数配列()
素数格納配列上限 = 欲しい個数
Debug.Print "素数格納配列上限", 素数格納配列上限
ReDim 素数配列(素数格納配列上限)
素数配列(1) = 2 '素数の2は入れておく
素数配列(2) = 3 '素数３も入れておく
Dim 今の個数, 検索対象, 判定, i, j, k
今の個数 = 2

[0908 向こうから ◆tr.t4dJfuU NG NG]

検索対象 = 5 '5から検索開始

For 検索対象 = 5 To 999999999 Step 2
判定 = "素数です"
For j = 3 To 検索対象 - 1

If 検索対象 Mod j = 0 Then
'割れたら素数ではない
判定 = "ダメ"
Exit For
End If
Debug.Print 検索対象; "/"; j; 判定
Next j

If 判定 = "素数です" Then
今の個数 = 今の個数 + 1
素数配列(今の個数) = 検索対象
If 今の個数 = 素数格納配列上限 Then
Exit For
End If
End If
Next 検索対象

[0909 向こうから ◆tr.t4dJfuU NG NG]

Debug.Print "結果出力"
For k = 1 To 素数格納配列上限
'
Debug.Print k; "個目は、"; 素数配列(k)
Next

Debug.Print "以上"; 素数格納配列上限; "個の検索終了）"

SOSUU = "完了"

End Function

[0910 向こうから ◆tr.t4dJfuU NG NG]

結果出力
1 個目は、 2
2 個目は、 3
3 個目は、 5
4 個目は、 7
5 個目は、 11
6 個目は、 13
7 個目は、 17
略
22 個目は、 79
23 個目は、 83
24 個目は、 89
25 個目は、 97
26 個目は、 101
27 個目は、 103
28 個目は、 107
29 個目は、 109
30 個目は、 113
以上 30 個の検索終了）

多分　いいと　おもいます

[0911 名無しさん＠お腹いっぱい。 NG NG]

>>906

#include<stdio.h>
main()
{
int k,i;
for(i=1;i<352;i++){
if((i*352+1)%109==0) {i=352;k=(i*352+1)/109;}
}
printf("%d\n",k);
}


cですがこんな感じです

[0912 向こうから ◆tr.t4dJfuU NG NG]

>>911
ん？

わかりそうで　わかりません　構文の意味からして・・・

こんなんは　どうですか？

for　i=1　to　352

if　（i*109）　mod　352　＝1　then
　print　i
endif

next

すみません　今日はこのへんまでに　しておきます

また、暗号で話してるかたには　スレ消費して　すみません。

[0913 名無しさん＠お腹いっぱい。 NG NG]

>>912
それだとdが見つからないです
なぜならeが小さい場合dは大抵大きな数になるからです
くり返しが多くなってしまい効率が悪くなります


その構文で書くならば

for　i=1　to　352

if　(i*352+1)　mod　109　=　0　then
　print　i
endif

next

にした方がいいです

[0914 名無しさん＠お腹いっぱい。 NG NG]

>>913
訂正です

for　i=1　to　352

if　(i*352+1)　mod　109　=　0　then
　print　(i*352+1)/109
endif

next

[0915 向こうから ◆tr.t4dJfuU NG NG]

>>913
んんん？？？

(i*352+1)　mod　109　=　0　と

（i*109）　mod　352　＝1　は

同じなんですか？
違うんですか？

言葉で　現すと　どんな感じでしょう？

ちょっと　風呂はいります・・・　悩む（ｗ

[0916 向こうから ◆tr.t4dJfuU NG NG]

>>914
よけい　こんらんです（ｗ
風呂いきます

[0917 名無しさん＠お腹いっぱい。 NG NG]

>>915-916
こう考えてみてください

s=2898443842392832878
e=5

の場合どちらの方が効率がいいのかわかると思います

[0918 向こうから ◆tr.t4dJfuU NG NG]

>>917
えっと、
意味がしりたいのです
漏れのは、そのまま

i*109　を　352　で　割った　余りが　1　に　なった時の　i　を　見つける
（繰り返しの上限は　352回では　足りないかもしれないけど）

意味か・・

もしくは
　両辺を109　で　割って・・
　両辺から1引いて・・
　・・・・
みたいに、その判定式で　i（ｄのこと）が導き出せる　確信が欲しいんです。

教えられた判定式を　意味も分からず　使うのは　イヤなんです。
（すみません　生意気で）
暗号がやりたいのではなく、仕組に興味があるんです。。。

[0919 向こうから ◆tr.t4dJfuU NG NG]

>>918
時間かけて　考えてみます・・・

[0920 名無しさん＠お腹いっぱい。 NG NG]

>>918

a*b　MOD　c　=　1　‥‥‥(1)
⇒
∃a'　s.t.　(a'*c+1)　MOD　b　=　0　　　


∵
(1)より
a*b　-　1　=　a'*c
⇔
a*b　=　a'*c　+　1
⇔
a　=　(a'*c　+　1)　÷　b

∴(a'*c+1)　MOD　b　=　0

[0921 名無しさん＠お腹いっぱい。 NG NG]

>>918


>>912は
i*109　を　352　で　割った　余りが　1　に　なった時の　i　を　見つける

です


>>914は
j*352+1　を　109　で　割った　余りが　0　に　なった時の　j　を　見つける
[ちなみに　i　=　(j*352+1)/9]

です

[0922 名無しさん＠お腹いっぱい。 NG NG]

訂正
[ちなみに　i　=　(j*352+1)/9] 　→　 [ちなみに　i　=　(j*352+1)/109]

[0923 名無しさん＠お腹いっぱい。 NG NG]

>>902
RSAの話なら、
s=(p-1)*(q-l)
ではなくて
s=LCM(p-1,q-1)
ではないのでつか？

[0924 向こうから ◆tr.t4dJfuU NG NG]

>>920
なんとなく　・・・　でもないか・・・　むずいです・・

できたら　「∃a'　s.t.　」の意味を　教えてください



自分で考えてたのは・・
ｄ*109　が、　352の？倍　より　1少ない
↓
ｄ*109＋1　＝　352の？倍
↓
行き詰まる・・・

もう少し　>>920　を　考え（理解）させてください・・

今日は寝ます・・

[0925 向こうから ◆tr.t4dJfuU NG NG]

>>922
これは、OKです。
気づきました

[0926 名無しさん＠お腹いっぱい。 NG NG]

>>923
それでも合ってますね
s=φ(n)を求める方式しか知りませんでした

[0927 名無しさん＠お腹いっぱい。 NG NG]

AI=1234
BI=4567

IF B>A
THEN
A=BI
B=AI
ELSE
A=AI
B=BI
ENDIF

WHILE (A MOD B) != 0
X=A MOD B
A=B
B=X
ENDWHILE

IF B==1
THEN
PRINT AI ,"と",BI,"は互いに素"
ENDIF

[0928 名無しさん＠お腹いっぱい。 NG NG]

>>927
ユークリッドの互除法ですね

[0929 名無しさん＠お腹いっぱい。 NG NG]

http://aitech.ac.jp/~koikelab/webp/cipher/cipher_02.html#2-3

[0930 名無しさん＠お腹いっぱい。 NG NG]

教えていただきたいのですが、PCがクラッシュ
してしまい、バックアップのFDも息子が
使ってしまい秘密鍵が完全になくなってしまいました。
サーバに登録してある公開鍵を削除したい
のですが、当然秘密鍵がないので、削除できません。
このような場合どうしたらよいでしょうか？

[0931 向こうから ◆tr.t4dJfuU NG NG]

独り言

紙と鉛筆で　いろいろ考え中です

[0932 名無しさん＠お腹いっぱい。 NG NG]

>>930
http://pgp.nic.ad.jp/faq/

[0933 932 NG NG]

言葉が足りなかった。

「どうすることも出来ない」(のではないか?)と、932に付け加えておく。

[0934 向こうから ◆tr.t4dJfuU NG NG]

独り言（というより、930さんとは　別と言う意味で）

!!!
小さい数字で・・・
ｐ＝3　　　、ｑ＝5
ｎ＝　3*5　＝　15
ｓ＝（3-1）＊（5-1）　＝　2　*　4　＝　8
e＝7　は　、８を割れない素数で　7　とする。

求めたいのは、
ｄ＊７　mod　８　＝　１

余ってしまう１を、ｄ＊７から　引いておけば、余りは出ない。
↓
ｄ＊７-1　mod　8　＝　0

ｄ＊７−１　は、８で割り切れる
いくつで割れるのかは不明なので、Xとすると、、、
↓
ｄ＊７−１　＝　8＊X　　　　・・・・・式A

両辺に１を足して、
ｄ＊７　＝　８＊X＋１

両辺を７で割ると、
ｄ　＝　（８＊X＋１）/７

８＊X＋１　を　７　で割ると、答えがｄになるので、この割り算に　余りは　発生しない
だから、
８＊X＋１　mod　７　＝　０　となる・・・・・・・

[0935 向こうから ◆tr.t4dJfuU NG NG]

さらに、ここで　判明したX’（確定したXのこと）は、
式Aの　X　であるから、

ｄ＊７−１　＝　８　＊　X’
↓
ｄ＊７　＝　８　＊　X'　＋１
↓
ｄ＝　（８　＊　X’　＋　１）/7


>>918　と、>>924　を　併せて　考えました。

早速　打ち込みます（エクセルに）

[0936 向こうから ◆tr.t4dJfuU NG NG]

訂正

>>920　と　、　>>924　を　併せて・・・

[0937 名無しさん＠お腹いっぱい。 NG NG]

>>934-935
ばっちりです

ところでエクセルの桁数の上限はいくつですか？

[0938 名無しさん＠お腹いっぱい。 NG NG]

上限を回避するために

493849238498129381298839284123981231みたいな数を
セルA1に4123981231
セルA2に8129883928
セルA3に2384981293
セルA4に493849
としてみたらどうでしょう
計算も工夫たらうまくいくと思います