Druckbare Version
Moin Leutings :D
Habe momentan ein kleines Problem! Undzwar bin ich gerade dabei ein kleines Allzweck-Tool zu schreiben... Sitze jetzt seit 3 Stunden an einem Problem, bei dem mir weiß Gott warum die Lösung nicht einfallen will :(
Naja, Quellcode: FrEe-hAcK.com :: NoPaste
Wäre sehr nett wenn mir jemand helfen könnte :D (THX is klar ;))
mfg
Randomize vielleicht.
Klappt auch nicht, EDIT: Fehelermeldung, Sry, war in Eile^^
Wie kriegt man da denn nen Error? Genaue Fehlerbeschreibung + code in CODEtag.Zitat:
Zitat von DeR_EvO
[DCC Fehler] Unit9.pas(100): E2034 Zu viele Parameter
[DCC Fehler] Unit9.pas(100): E2008 Inkompatible Typen
was soll ich mit dem fehler ohne code. Biiiiiiitte-.-Zitat:
Zitat von der_evo
Omg. BISSCHEN Eigeninitiative wär schon schön. Nicht einfach blind Randomize lesen und einsetzen... Vielleicht hätteste lieber mal nach Randomize gegoogelt und dann hinterher auch VERSTANDEN warum ich das vorgeschlagen habe...
Code:SetLength(Result,len); // Speicher im Result-String reservieren
Randomize;
pResult := PChar(Result);
assignfile(f, 'pwlist.txt');
for i := 1 to le do
begin
append(f);
for il := 1 to len do
begin
pResult^ := Charset[1+Random(Length(Charset))];
Inc(pResult);
end;
writeln(f, result);
sleep(10);
flush(f);
closefile(f);
end;
Soo^^ Erstmal danke für deine Hilfe, muss jedoch sagen, dass es immernoch nicht funktioniert! Es kommen keine Fehler mehr, jedoch gibt er immernoch immer das selbe PW aus!
UND ich habe das randomize im nachhinein auch so eingesetzt... Hat auch nichts gebracht! (Nur damit du nicht denkst, ich lasse mir hier alles vorkauen^^)
MfG
Dann beschreibe den Fehler doch nochmal bitte genauer. Und zeig hier mal die Ausgabe.Zitat:
Zitat von DeR_EvO
http://img69.imageshack.us/img69/39/fehlerb.jpg
So sieht der Fehler aus und die "Ausgabe" die er in die Datei Schreibt ist immer das selbe Wort, 50 Mal, 100 Mal, egal wie viele PW´s er machen soll, es gibt keine Abweichungen...
Ich verzweifel langsam...
Wenn ich dich richtig verstanden habe, versuchst du x zufällige Strings in eine Datei zu schreiben. Das kannst du so machen:
Das Beispiel schreibt 10 zufällige 8-stellige Strings mit dem Charset a-z in die Datei c:\test.txtCode:function rndstr(const cs:string;len:word):string;
var
p:pchar;
i,le:integer;
begin
setlength(result,len);
p:=pchar(result);
le:=length(cs);
for i := 1 to len do
begin
p^:=cs[succ(random(le))];
inc(p);
end;
end;
const
cs='abcdefghijklmnopqrstuvwxyz';
cnt=10;
len=8;
var
f:textfile;
i:integer;
begin
assignfile(f,'c:\test.txt');
try
rewrite(f);
try
randomize;
for i := 1 to cnt do
writeln(f,rndstr(cs,len));
finally
closefile(f);
end;
except
on e:exception do showmessage(e.Message);
end;
end;
Größten Dank an dich inout! Klappt wunderbar!
MfG!
Kann geclosed werden!