Seedrnd(1000)

Übersicht

BlitzBasic

Beginners-Corner

	BladeRunner Moderator Betreff: Seedrnd(1000)	Mi, Nov 17, 2004 18:43 Antworten mit Zitat
Wie wir ja alle wissen gibt eine mit festem wert initialisierte Rand-Funktion immer die gleichen Werte aus. Bei mir wäre das bei folgendem Code: Code: [AUSKLAPPEN] [EINKLAPPEN] SeedRnd(1000) For i=1 To 4 a= Rand (1000) Print a DebugLog a Next WaitKey() die folgende Ausgabe: Zitat: 558 294 172 328 Meine Frage nun: Ist diese Zahlenfolge computerspezifisch? Könntet ihr das Proggie kurz starten und mir sagen was bei euch rauskommt? Danke.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Betreff: Seedrnd(1000)

Mi, Nov 17, 2004 18:43
Antworten mit Zitat

Wie wir ja alle wissen gibt eine mit festem wert initialisierte Rand-Funktion immer die gleichen Werte aus.
Bei mir wäre das bei folgendem Code: Code: [AUSKLAPPEN]

SeedRnd(1000)
For i=1 To 4
a= Rand (1000)
Print a
DebugLog a

Next
WaitKey()

die folgende Ausgabe:
Zitat:

558
294
172
328

Meine Frage nun: Ist diese Zahlenfolge computerspezifisch? Könntet ihr das Proggie kurz starten und mir sagen was bei euch rauskommt?

Danke.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Holzchopf Meisterpacker	Mi, Nov 17, 2004 18:47 Antworten mit Zitat
Zitat: 558 294 172 328
Erledige alles Schritt um Schritt - erledige alles. - Holzchopf CC BY ♫ BinaryBorn - Yogurt ♫ (31.10.2018) Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm

Holzchopf

Meisterpacker

Mi, Nov 17, 2004 18:47
Antworten mit Zitat

Zitat:

558
294
172
328

Erledige alles Schritt um Schritt - erledige alles. - Holzchopf
CC BY ♫ BinaryBorn - Yogurt ♫ (31.10.2018)
Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm

Zuletzt bearbeitet von Holzchopf am Mi, Nov 17, 2004 18:47, insgesamt einmal bearbeitet

	Hubsi	Mi, Nov 17, 2004 18:47 Antworten mit Zitat
Ist bei mir dasselbe. Ich denke die Werte werden von BB selbst berechnet, wenn nicht... ähh... eben nicht
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mi, Nov 17, 2004 18:47
Antworten mit Zitat

Ist bei mir dasselbe. Ich denke die Werte werden von BB selbst berechnet, wenn nicht... ähh... eben nicht Very Happy

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	BladeRunner Moderator	Mi, Nov 17, 2004 18:50 Antworten mit Zitat
Ich danke herzlich
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mi, Nov 17, 2004 18:50
Antworten mit Zitat

Ich danke herzlich Smile

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	OJay	Mi, Nov 17, 2004 18:57 Antworten mit Zitat
ach, aber mir nicht glauben wollen?!

OJay

Mi, Nov 17, 2004 18:57
Antworten mit Zitat

ach, aber mir nicht glauben wollen?! Razz

	Sibitiger	Mi, Nov 17, 2004 19:02 Antworten mit Zitat
warum sollte er dir nich glauben is da vorher schon was gelaufen? Is ja auch egal geht mich nich wirklich was an. Bei mir sind die Zahlen auch 558 294 127 328 Sibitiger

Sibitiger

Mi, Nov 17, 2004 19:02
Antworten mit Zitat

warum sollte er dir nich glauben is da vorher schon was gelaufen?
Is ja auch egal geht mich nich wirklich was an.
Bei mir sind die Zahlen auch
558
294
127
328
Sibitiger

	Spikespine	Mi, Nov 17, 2004 19:04 Antworten mit Zitat
Weiß zwar nicht, warum das so ist, aber es ist so

Spikespine

Mi, Nov 17, 2004 19:04
Antworten mit Zitat

Weiß zwar nicht, warum das so ist, aber es ist so Laughing

	OJay	Mi, Nov 17, 2004 19:11 Antworten mit Zitat
huch sorry, blade war nemesis ^^ ist auch schon etwas länger her... irclog: Zitat: <OJay> zwecks netzwerkverschlüsselung <OJay> schonmal was von vorhersagbaren zufallszahlen gehört? <@DarkCorner> [16:38:12] <OJay> schonmal was von vorhersagbaren zufallszahlen gehört? <- niemals. erklärs. <OJay> nunja. ich muss doch einen zufallsgenerator mit SeedRnd() initialisieren nicht wahr? tue ich das nicht, werden immer diesselben zahlen generiert. <OJay> nun kann ich ja auf dem server sowie auf dem client denselben parameter angeben <OJay> somit müssten dann auf beiden seiten, unabhängig voneinander, diesselben zufallszahlen in derselben reihenfolger erzeugt werden, oder? <@N3m\aw> nein <OJay> d.h. ich kann meine pakete immer mit einem anderen (zufällig generierten) schlüssel ver-/entschlüsseln, OHNE jemals den schlüssel selbst übertragen zu haben...genial! <OJay> wie nein? D: <@N3m\aw> naja der computer erzeugt ja die zufallszahlen durch eine interne liste <@N3m\aw> wer sagt das die bei allen gleich ist? <OJay> weil alle diesselbe blitzversion verwenden? <@N3m\aw> ich weiß nicht wo die liste ist aber ich denk das das eher betriebsystem oder hardware abhängig ist hätte doch ein patent anmelden sollen @sibtiger: huh? o_O

OJay

Mi, Nov 17, 2004 19:11
Antworten mit Zitat

huch sorry, blade war nemesis ^^ ist auch schon etwas länger her...

irclog:
Zitat:

<OJay> zwecks netzwerkverschlüsselung
<OJay> schonmal was von vorhersagbaren zufallszahlen gehört? Very Happy

<@DarkCorner> [16:38:12] <OJay> schonmal was von vorhersagbaren zufallszahlen gehört? Very Happy

<- niemals. erklärs.
<OJay> nunja. ich muss doch einen zufallsgenerator mit SeedRnd() initialisieren nicht wahr? tue ich das nicht, werden immer diesselben zahlen generiert.
<OJay> nun kann ich ja auf dem server sowie auf dem client denselben parameter angeben
<OJay> somit müssten dann auf beiden seiten, unabhängig voneinander, diesselben zufallszahlen in derselben reihenfolger erzeugt werden, oder?
<@N3m\aw> nein
<OJay> d.h. ich kann meine pakete immer mit einem anderen (zufällig generierten) schlüssel ver-/entschlüsseln, OHNE jemals den schlüssel selbst übertragen zu haben...genial! Very Happy

<OJay> wie nein? D:
<@N3m\aw> naja der computer erzeugt ja die zufallszahlen durch eine interne liste
<@N3m\aw> wer sagt das die bei allen gleich ist?
<OJay> weil alle diesselbe blitzversion verwenden?
<@N3m\aw> ich weiß nicht wo die liste ist aber ich denk das das eher betriebsystem oder hardware abhängig ist

hätte doch ein patent anmelden sollen Very Happy

@sibtiger: huh? o_O

	Timo	Mi, Nov 17, 2004 19:22 Antworten mit Zitat
Die Zufallsfunktion ist auch nichts anderes als eine Funktion. Sie tut eigentlich ungefähr das, was dieser Zufallsgenerator (Delphi) tut: Code: [AUSKLAPPEN] [EINKLAPPEN] procedure TZufall; Var i,Zn,ZZ:integer; procedure Init; begin ZZ:=32; end; Function Zufall(A,E,D:Integer) : Integer; Const Multiplikator = 19683; Increment = 17; Modul = 32767; begin ZZ:= (ZZMultiplikator+Increment) Mod Modul; Zufall := A + ( ZZ Mod (E-A) D end; begin Init; For i:= 1 to 20 Do begin Zn:= Zufall(1,6,1) Memo1.Lines.Add(IntToStr(Zn)); end; end; Sprich: RndSeed setzt (hier die Variable ZZ) einen Anfangswert auf eine bestimte Zahl. Wie gesagt, die Zahlen wirken nur zufällig, und der Computer besitzt kein eigenes Feld oder ne eigene Liste mit Zufallszahlen oder so.. aber warum auch, man kann ja ne Funktion für schreiben

Timo

Mi, Nov 17, 2004 19:22
Antworten mit Zitat

Die Zufallsfunktion ist auch nichts anderes als eine Funktion. Sie tut eigentlich ungefähr das, was dieser Zufallsgenerator (Delphi) tut:

Code: [AUSKLAPPEN]

procedure TZufall;
Var
i,Zn,ZZ:integer;
procedure Init;
begin
ZZ:=32;
end;

Function Zufall(A,E,D:Integer) : Integer;
Const
Multiplikator = 19683;
Increment = 17;
Modul = 32767;
begin
ZZ:= (ZZ*Multiplikator+Increment) Mod Modul;
Zufall := A + ( ZZ Mod (E-A) * D
end;

begin
Init;
For i:= 1 to 20 Do
begin
Zn:= Zufall(1,6,1)
Memo1.Lines.Add(IntToStr(Zn));
end;
end;

Sprich: RndSeed setzt (hier die Variable ZZ) einen Anfangswert auf eine bestimte Zahl. Wie gesagt, die Zahlen wirken nur zufällig, und der Computer besitzt kein eigenes Feld oder ne eigene Liste mit Zufallszahlen oder so.. aber warum auch, man kann ja ne Funktion für schreiben Very Happy

	Sibitiger	Mi, Nov 17, 2004 19:40 Antworten mit Zitat
OJay hat Folgendes geschrieben: @sibtiger: huh? o_O [/quote] was meinst du?

Sibitiger

Mi, Nov 17, 2004 19:40
Antworten mit Zitat

OJay hat Folgendes geschrieben:

@sibtiger: huh? o_O

[/quote]

was meinst du?

	OJay	Mi, Nov 17, 2004 19:46 Antworten mit Zitat
Sibitiger hat Folgendes geschrieben: OJay hat Folgendes geschrieben: @sibtiger: huh? o_O was meinst du?[/quote] Sibitiger hat Folgendes geschrieben: warum sollte er dir nich glauben is da vorher schon was gelaufen? shizo?

OJay

Mi, Nov 17, 2004 19:46
Antworten mit Zitat

Sibitiger hat Folgendes geschrieben:

OJay hat Folgendes geschrieben:

@sibtiger: huh? o_O

was meinst du?[/quote]

Sibitiger hat Folgendes geschrieben:

warum sollte er dir nich glauben is da vorher schon was gelaufen?

shizo?

	BladeRunner Moderator	Mi, Nov 17, 2004 19:51 Antworten mit Zitat
Wie gesagt, ich danke herzlich. Der Gedanke mit dem Verschlüsseln kam mir heut nämlich auch und es ist eine hübscher kleiner Keygen daraus geworden.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mi, Nov 17, 2004 19:51
Antworten mit Zitat

Wie gesagt, ich danke herzlich.
Der Gedanke mit dem Verschlüsseln kam mir heut nämlich auch und es ist eine hübscher kleiner Keygen daraus geworden. Very Happy

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	D2006 Administrator	Mi, Nov 17, 2004 20:44 Antworten mit Zitat
Houston, wir haben ein Problem: Zitat: 90 411 823 904 MfG D2006

D2006

Administrator

Mi, Nov 17, 2004 20:44
Antworten mit Zitat

Houston, wir haben ein Problem:

Zitat:

90
411
823
904

MfG
D2006

	BladeRunner Moderator	Mi, Nov 17, 2004 20:59 Antworten mit Zitat
Du hast auch ganz sicher mein Proggie gepasted und Verwendet ? Wenn ihr testet schreibt bitte eue BB-Version Hin- vielleicht gibt es da Unterschiede. TestProg Und testet Bitte dieses Prog (470KB)- es ist das Obige als B3D exe.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mi, Nov 17, 2004 20:59
Antworten mit Zitat

Du hast auch ganz sicher mein Proggie gepasted und Verwendet ?
Wenn ihr testet schreibt bitte eue BB-Version Hin- vielleicht gibt es da Unterschiede.

TestProg

Und testet Bitte dieses Prog (470KB)- es ist das Obige als B3D exe.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	DA	Mi, Nov 17, 2004 21:02 Antworten mit Zitat
@ D2006 Bei mir genau das gleiche! Hast du BlitzPlus? Wen ja dan denke ich das es bei BlitzPlus eine etwas andere Funktion dafür gibt. Thx Darkangel
Deutscher Blitz Basic Chat

DA

Mi, Nov 17, 2004 21:02
Antworten mit Zitat

@ D2006
Bei mir genau das gleiche!
Hast du BlitzPlus?
Wen ja dan denke ich das es bei BlitzPlus eine etwas andere Funktion dafür gibt.

Thx
Darkangel

Deutscher Blitz Basic Chat

	Hubsi	Mi, Nov 17, 2004 21:03 Antworten mit Zitat
Also zwischen B3D und B2D gibts offensichtlich keinen Unterschied. Bleibt alles gleich.
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Mi, Nov 17, 2004 21:03
Antworten mit Zitat

Also zwischen B3D und B2D gibts offensichtlich keinen Unterschied. Bleibt alles gleich.

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	DA	Mi, Nov 17, 2004 21:10 Antworten mit Zitat
Jo, habe dein Programm gestartet und kam genau die gleiche zahl raus wie oben steht. Aber wen ich dein programm mit paste kopiere und dann starte dann kommen andere Zahlen heraus. Und zwar die hier: 90 411 823 904 PS: Habe BlitzPlus.
Deutscher Blitz Basic Chat

DA

Mi, Nov 17, 2004 21:10
Antworten mit Zitat

Jo, habe dein Programm gestartet und kam genau die gleiche zahl raus wie oben steht. Aber wen ich dein programm mit paste kopiere und dann starte dann kommen andere Zahlen heraus.

Und zwar die hier:
90
411
823
904

PS: Habe BlitzPlus.

Deutscher Blitz Basic Chat

	BladeRunner Moderator	Mi, Nov 17, 2004 21:14 Antworten mit Zitat
Herzlichsten Dank DarkAngel. Damit bin ich beruhigt- solange ich also Encrypter und Decrypter mit derselben BB-Version Kompiliere wird es keine Probleme geben. Nochmal herzlichen Dank @ all .
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

Mi, Nov 17, 2004 21:14
Antworten mit Zitat

Herzlichsten Dank DarkAngel.

Damit bin ich beruhigt- solange ich also Encrypter und Decrypter mit derselben BB-Version Kompiliere wird es keine Probleme geben.

Nochmal herzlichen Dank @ all
.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	D2006 Administrator	Mi, Nov 17, 2004 21:36 Antworten mit Zitat
will mal nicht so sein und das bestätigen. Bei mir kommen auch die korrekten Zahlen raus mit dem B3D Ding. @DarkAngel liegt auf alle Fälle daran. Hab B+ 1.39 MfG

D2006

Administrator

Mi, Nov 17, 2004 21:36
Antworten mit Zitat

will mal nicht so sein und das bestätigen. Bei mir kommen auch die korrekten Zahlen raus mit dem B3D Ding.

@DarkAngel
liegt auf alle Fälle daran. Hab B+ 1.39

MfG

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Seedrnd(1000)

Betreff: Seedrnd(1000)