Jak w Delphi zrobić Brute-Force ?
Dzięki {browar} --
0
0
hmm... mi przyszedl do glowy na razie 1 pomysl:
kazdej literze przypisz cyfre np a-1 b-2 c-3
i brute-force bedzie dzialal np ab(12) nastepna (12+1=13)ac itd
ale tu jest duzo roboty :( moze ktos wymysli cos prostszego?
powodzenia {browar} --Faszczu - Delphi 6 Personal Programmer
0
No a gdybyś sobie zrobił tablice od a do z.
Teraz zaczynasz po kolei a potem b itd czyli poszczególne pola tablicy potem dodajesz stringi np
procedure dodajstring;
var suma:string[2];
i:byte;
begin *wcześniej już miałeś zadeklarowaną tablicą np.:t i miała 27 pól.np!
for i:=1 to 27 do
suma:='a+t[i]' * nie pamietm jak sie dodaje stringi
end;
możesz tak zrobić dla 3 4 i więcej liter np po zakończeniu pętli bedziesz miał zmieną np jakieś a:integer; i będziesz dodawał ale wtedy bedziesz musiał zrobić coś tkiego przed pętlą że ta suma(jak wyżej) bedzie wcześniej dodawana np dla a:=1 suma =a;
dla a=2 suma =ab np i tak sobie robisz pętelke taka zewnętrzną wykorzystując repeat i until ogólnie mam nadzieje ze mnei zrozumiałeś ale ta mtoda jest doś czasochłonna jesli chodzi o wykorzystanie jej.
Ale sie rozpisałem.
Powodzenia {hello} -- Waldi Koronowo
[email protected]
0
nie Panowie!!! Należy napisać sobie procedurkę na permutacje i wszystko OK. Całš procedura zajeła mi około
od 4 do 9 lini. Jednak jej nie podam od czego jest głowa papier i ołówek :)
POZDRAWIAM
--Radek B.