begin process at 2008 07 20 04:40:33
1 213 129 membres
50 nouveaux aujourd'hui
14 166 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

GÉNÉRATEUR DE FICHIERS ALÉATOIRES : CLIENT DU SITE : HTTP://WWW.RANDOM.ORG/


Information sur la source

Catégorie :Sécurité Classé sous : aléatoire, générateur, fichier, random Niveau : Débutant Date de création : 23/07/2005 Date de mise à jour : 17/08/2005 20:30:43 Vu / téléchargé: 7 244 / 345

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Description

Ce logiciel sert a créer des fichiers aléatoires à partir du site http://www.random.org/
Le prog. télécharge d'abord les fichiers de 16384 octets pour en reformer un unique.
Niveau source ce soft n'apprend rien qu'il n'y ai pas sur ce forum...
Cette source est intéressante par l'utilité de l'aléatoire et la difficulté a en fabriquer...

En ce qui concerne la fabriquation tout est expliquée sur http://www.random.org/

Executable téléchargeable :
http://poulphunter1.free.fr/Download/Mesprogs/Random.exe





This software is useful to create random files from the http://www.random.org/ site
The soft. download initially the files of 16384 bytes to make one.
This source is interesting by the utility of random and the difficulty has to manufacture some…

With regard to the fabriquation all is explained on http://www.random.org/

Achievable downloadable:
http://poulphunter1.free.fr/Download/Mesprogs/Random.exe

Source

  • if not SaveDialog1.Execute then
  • begin
  • exit;
  • end;
  • label5.Caption:=tell+' : 0 %';
  • cmax:=strtoint(edit1.text);
  • ProgressBar1.Min:=0;
  • ProgressBar1.Max:=cmax;
  • for countt := 1 to cmax do
  • begin
  • File1:='check.txt';
  • urll:='http://www.random.org/cgi-bin/checkbuf';
  • telecharger();
  • AssignFile(F, File1);
  • Reset(F,1);
  • a:=0;
  • For I := 0 to 1 do
  • begin
  • Seek(F,I);
  • blockread(F,a,1);
  • b:=b+chr(a);
  • end;
  • CloseFile(F);
  • if strtoint(b[1]+b[2])<=20 then
  • begin
  • exit;
  • end;
  • File1:='Rand.'+FormatFloat('000', countt);
  • urll:='http://www.random.org/cgi-bin/randbyte?nbytes=16384&format=f';
  • telecharger();
  • ProgressBar1.Position:=countt;
  • label5.Caption:='Téléchargement : '+IntToStr(trunc(countt/cmax*100))+' %';
  • end;
  • deletefile('check.txt');
  • FilePath:='Rand.001';
  • label5.Caption:=rec;
  • ProgressBar1.Position := 0;
  • Counter := 1;
  • BuildFile := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmShareExclusive);
  • while FileExists(FilePath) do
  • begin
  • BuildFileCopy := TFileStream.Create(FilePath, fmOpenRead or fmShareDenyWrite);
  • BuildFile.CopyFrom(BuildFileCopy, 0);
  • Counter := Counter + 1;
  • BuildFileCopy.Free;
  • deletefile(FilePath);
  • FilePath := ChangeFileExt(FilePath, '.' + FormatFloat('000', Counter));
  • ProgressBar1.Position := Round(BuildFile.Position / BuildFile.Size * 100);
  • end;
  • BuildFile.Free;
  • label5.Caption:=ter;
if not SaveDialog1.Execute then
begin
exit;
end;
label5.Caption:=tell+' : 0 %';
cmax:=strtoint(edit1.text);
ProgressBar1.Min:=0;
ProgressBar1.Max:=cmax;

for countt := 1 to cmax do
begin
File1:='check.txt';
urll:='http://www.random.org/cgi-bin/checkbuf';
telecharger();
  AssignFile(F, File1);
  Reset(F,1);
a:=0;
  For I := 0 to 1 do
     begin
     Seek(F,I);
     blockread(F,a,1);
     b:=b+chr(a);
     end;
CloseFile(F);
if strtoint(b[1]+b[2])<=20 then
begin
exit;
end;
File1:='Rand.'+FormatFloat('000', countt);
urll:='http://www.random.org/cgi-bin/randbyte?nbytes=16384&format=f';
telecharger();
ProgressBar1.Position:=countt;
label5.Caption:='Téléchargement : '+IntToStr(trunc(countt/cmax*100))+' %';
end;
deletefile('check.txt');
FilePath:='Rand.001';
label5.Caption:=rec;
ProgressBar1.Position := 0;
            Counter := 1;
            BuildFile := TFileStream.Create(SaveDialog1.FileName, fmCreate or fmShareExclusive);
            while FileExists(FilePath) do
            begin
                BuildFileCopy := TFileStream.Create(FilePath, fmOpenRead or fmShareDenyWrite);
                BuildFile.CopyFrom(BuildFileCopy, 0);
                Counter := Counter + 1;
                BuildFileCopy.Free;
                deletefile(FilePath);
                FilePath := ChangeFileExt(FilePath, '.' + FormatFloat('000', Counter));
                ProgressBar1.Position := Round(BuildFile.Position / BuildFile.Size * 100);
            end;
            BuildFile.Free;
label5.Caption:=ter;

Conclusion

Tout est marqué ici :

http://www.random.org/essay.html

(pour les anglophobes : version traduite a la google
http://translate.google.com/translate?u=http%3A%2F%2Fwww.random.org%2Fessay.html&langpair=en%7Cfr&hl=fr&ie=UTF-8&oe=UTF-8&prev=%2Flanguage_tools )

Sinon je dois aussi préciser que ce prog. utilise les composants Indy pour télécharger...
(IdAntiFreezeBase, IdAntiFreeze,IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP)
Indy version 9.00.10
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

23 juillet 2005 22:29:52 :
Précision des composants Indy utilisés
17 août 2005 20:30:43 :
Waoups : Losque le check était a 100% il croyait que c'était à 10% Mais maintenant sa va...
    Aucun commentaire pour le moment.

Ajouter un commentaire

Pub



Appels d'offres

Dessins techniques
Budget : 60€
Animation Flash - Doma...
Budget : 370€
Application flash medi...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS