Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Brute-force u delphiju

[es] :: Pascal / Delphi / Kylix :: Brute-force u delphiju

[ Pregleda: 2800 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Nemanja Avramović
Software architect
Tap medical
Beograd, Srbija

Član broj: 32202
Poruke: 4389
*.verat.net.

Sajt: https://avramovic.info


+46 Profil

icon Brute-force u delphiju30.01.2005. u 10:31 - pre 211 meseci
Da li neko ima neki algoritamchic :) koji ce da izredja sve kombinacije svih karaktera, kako bih ja, jel'te, simulirao brute-force?

(ovo je nastavak na http://www.elitesecurity.org/tema/92572)
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.co.yu.



+1 Profil

icon Re: Brute-force u delphiju30.01.2005. u 11:45 - pre 211 meseci
Code:

const
  BrojSlova=5;
  zamena:array[1..BrojSlova]of char =('a','W','c','x','e');

// U zamenu stavis sva slova koja zelis da isprobas posto se za pass ne mogu
// staviti svi karakteri, pa bi to samo produzilo proveru
// U BrojSlova, koliko ima tih karaktera
// duzina je duzina zeljenog pass koja moze da se menja u programu
// naprimer krenes sa duzinom od 6 pa sve do 12

var
  i,duzina:integer;
  rec: string;
  br:array[1..BrojSlova] of integer;


  function povecaj(x:integer):boolean;
  begin
    br[x]:=succ(br[x]);
      if br[x]>BrojSlova then
        begin
          if x=1 then
            povecaj:=true
          else
            begin
              br[x]:=1;
              povecaj:=povecaj(x-1);
            end;
        end
      else
        povecaj:=false;
  end;

begin
  duzina:=3;
  for i:= 1 to duzina do br[i]:=1;
  repeat
    begin
        rec:='';
        for i:= 1 to duzina do
            rec:=rec+zamena[br[i]];
// U varijabli rec se nalazi kombinacija "aaa" zatim "aaW" tako sve do "eee"
    end;
  until povecaj(duzina);
end.

 
Odgovor na temu

Nemanja Avramović
Software architect
Tap medical
Beograd, Srbija

Član broj: 32202
Poruke: 4389
*.verat.net.

Sajt: https://avramovic.info


+46 Profil

icon Re: Brute-force u delphiju30.01.2005. u 11:57 - pre 211 meseci
sad cu da pogledam, evo mozete da vidite ovde dictionary attack na md5 koji radiiiiii :)


p.s. BRUTE FORCE JOS ne radi
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
Prikačeni fajlovi
 
Odgovor na temu

morlic
Milos Orlic
Beograd

Član broj: 6081
Poruke: 735
*.205.EUnet.yu.



+1 Profil

icon Re: Brute-force u delphiju30.01.2005. u 22:03 - pre 211 meseci
Kada naidjes na ozbiljan password, javi nam koje godine ce biti razbijen
 
Odgovor na temu

Nemanja Avramović
Software architect
Tap medical
Beograd, Srbija

Član broj: 32202
Poruke: 4389
*.verat.net.

Sajt: https://avramovic.info


+46 Profil

icon Re: Brute-force u delphiju30.01.2005. u 22:14 - pre 211 meseci
vazi, samo mi ostavi mob, da te lakse nadjem
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Brute-force u delphiju

[ Pregleda: 2800 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.