Seedrnd(1000)

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

BladeRunner

Moderator

Betreff: Seedrnd(1000)

BeitragMi, Nov 17, 2004 18:43
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Nov 17, 2004 18:47
Antworten mit Zitat
Benutzer-Profile anzeigen
Zitat:

558
294
172
328
Erledige alles Schritt um Schritt - erledige alles. - Holzchopf
CC BYBinaryBorn - 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

BeitragMi, Nov 17, 2004 18:47
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Nov 17, 2004 18:50
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Nov 17, 2004 18:57
Antworten mit Zitat
Benutzer-Profile anzeigen
ach, aber mir nicht glauben wollen?! Razz Wink
 

Sibitiger

BeitragMi, Nov 17, 2004 19:02
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Nov 17, 2004 19:04
Antworten mit Zitat
Benutzer-Profile anzeigen
Weiß zwar nicht, warum das so ist, aber es ist so Laughing
 

OJay

BeitragMi, Nov 17, 2004 19:11
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Nov 17, 2004 19:22
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Nov 17, 2004 19:40
Antworten mit Zitat
Benutzer-Profile anzeigen
OJay hat Folgendes geschrieben:


@sibtiger: huh? o_O


[/quote]
Question
was meinst du?
 

OJay

BeitragMi, Nov 17, 2004 19:46
Antworten mit Zitat
Benutzer-Profile anzeigen
Sibitiger hat Folgendes geschrieben:
OJay hat Folgendes geschrieben:


@sibtiger: huh? o_O



Question
was meinst du?[/quote]

Sibitiger hat Folgendes geschrieben:
warum sollte er dir nich glauben is da vorher schon was gelaufen?


shizo?

BladeRunner

Moderator

BeitragMi, Nov 17, 2004 19:51
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Nov 17, 2004 20:44
Antworten mit Zitat
Benutzer-Profile anzeigen
Houston, wir haben ein Problem:

Zitat:

90
411
823
904


MfG
D2006

BladeRunner

Moderator

BeitragMi, Nov 17, 2004 20:59
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Nov 17, 2004 21:02
Antworten mit Zitat
Benutzer-Profile anzeigen
@ 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

BeitragMi, Nov 17, 2004 21:03
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Nov 17, 2004 21:10
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Nov 17, 2004 21:14
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Nov 17, 2004 21:36
Antworten mit Zitat
Benutzer-Profile anzeigen
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

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group