Creador de diccionarios en pascal para ataques de fuerza bruta

Solo disponible en BuenasTareas
  • Páginas : 7 (1685 palabras )
  • Descarga(s) : 0
  • Publicado : 10 de febrero de 2010
Leer documento completo
Vista previa del texto
Program Diccionarios (input, output, diccionario);

Const esc = chr(27) + '[';

Var numero:integer value 5;
palabra:string(5);
diccionario:text;
incio,final:timestamp;
salir:boolean value false;

Procedure Letras3;

Var i:integer value 0;
a1,b1,c1:char;
completado:real value 0;

BEGIN
GetTimeStamp(incio);

For a1:='a' to 'z' do begin
For b1:='a' to 'z' do beginFor c1:='a' to 'z' do begin
Write(diccionario, a1, b1, c1);
Write(a1, b1, c1, 'Completado: ':30, completado:2:0, '%');
i:=i+1;
Writeln;
Writeln(diccionario);
End;
completado:=completado + 0.137174211;
End;
End;
GetTimeStamp(final);
Writeln('Finalizado. Palabras generadas: ', i:0, '. Hora de comienzo: ', Time(incio), ', hora de finalizacion: ', Time(final));
END;Procedure Letras4;

Var i:integer value 0;
a1,b1,c1,d1:char;
completado:real value 0;

BEGIN
GetTimeStamp(incio);

For a1:='a' to 'z' do begin
For b1:='a' to 'z' do begin
For c1:='a' to 'z' do begin
For d1:='a' to 'z' do begin
Write(diccionario, a1, b1, c1, d1);
Write(a1, b1, c1, d1, 'Completado: ':30, completado:2:0, '%');
i:=i+1;
Writeln(diccionario);Writeln;
End;
End;
completado:=completado + 0.137174211;
End;
End;
GetTimeStamp(final);
Writeln('Finalizado. Palabras generadas: ', i:0, '. Hora de comienzo: ', Time(incio), ', hora de finalizacion: ', Time(final));
END;

Procedure Letras5;

Var i:integer value 0;
a1,b1,c1,d1,e1:char;
completado:real value 0;

BEGIN
GetTimeStamp(incio);

For a1:='a' to 'z' do beginFor b1:='a' to 'z' do begin
For c1:='a' to 'z' do begin
For d1:='a' to 'z' do begin
For e1:='a' to 'z' do begin
Write(diccionario, a1, b1, c1, d1, e1);
Write(a1, b1, c1, d1, e1, 'Completado: ':30, completado:2:0, '%');
i:=i+1;
Writeln(diccionario);
Writeln;
End;
End;
End;
completado:=completado + 0.137174211;
End;
End;
GetTimeStamp(final);Writeln('Finalizado. Palabras generadas: ', i:0, '. Hora de comienzo: ', Time(incio), ', hora de finalizacion: ', Time(final));
END;

Procedure Letras6;

Var i:integer value 0;
a1,b1,c1,d1,e1,f1:char;
completado:real value 0;

BEGIN
GetTimeStamp(incio);

For a1:='a' to 'z' do begin
For b1:='a' to 'z' do begin
For c1:='a' to 'z' do begin
For d1:='a' to 'z' do begin
Fore1:='a' to 'z' do begin
For f1:='a' to 'z' do begin
Write(diccionario, a1, b1, c1, d1, e1, f1);
Write(a1, b1, c1, d1, e1, f1, 'Completado: ':30, completado:2:0, '%');
i:=i+1;
Writeln(diccionario);
Writeln;
End;
End;
End;
End;
completado:=completado + 0.137174211;
End;
End;
GetTimeStamp(final);
Writeln('Finalizado. Palabras generadas: ',i:0, '. Hora de comienzo: ', Time(incio), ', hora de finalizacion: ', Time(final));
END;
Procedure Letras7;

Var i:integer value 0;
a1,b1,c1,d1,e1,f1,g1:char;
completado:real value 0;

BEGIN
GetTimeStamp(incio);

For a1:='a' to 'z' do begin
For b1:='a' to 'z' do begin
For c1:='a' to 'z' do begin
For d1:='a' to 'z' do begin
For e1:='a' to 'z' do begin
For f1:='a'to 'z' do begin
For g1:='a' to 'z' do begin
Write(diccionario, a1, b1, c1, d1, e1, f1, g1);
Write(a1, b1, c1, d1, e1, f1, g1, 'Completado: ':30, completado:2:0, '%');
i:=i+1;
Writeln(diccionario);
Writeln;
End;
End;
End;
End;
End;
completado:=completado + 0.137174211;
End;
End;
GetTimeStamp(final);
Writeln('Finalizado. Palabrasgeneradas: ', i:0, '. Hora de comienzo: ', Time(incio), ', hora de finalizacion: ', Time(final));
END;
Procedure Letras8;

Var i:integer value 0;
a1,b1,c1,d1,e1,f1,g1,h1:char;
completado:real value 0;

BEGIN
GetTimeStamp(incio);

For a1:='a' to 'z' do begin
For b1:='a' to 'z' do begin
For c1:='a' to 'z' do begin
For d1:='a' to 'z' do begin
For e1:='a' to 'z' do...
tracking img