Lieber Besucher, herzlich willkommen bei: Silkroad Online Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Ghinrael« (12.11.2006, 23:09)
Zitat
Original von Ghinrael
Ich empfehle dir Turbo Pascal.
//Ist nicht objektorientiert.
Zitat
Original von Ghinrael
//Visual Basic ist auch noch zu empfehlen. Da kannste objektorientiert programmieren^^ - buttons einfügen, etc..
Quellcode |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 |
program codeknackOr; uses crt, dos; var code,codeknack:string; Stunde, Minute, Sekunde, Hundertstel, Stunde1, Minute1, Sekunde1, Hundertstel1:WORD; procedure eingabe; var zaehler:integer; buchstabe:char; begin code:=''; clrscr; zaehler:=0; gotoXY(3,5); writeln('Geben Sie Ihr Code-Wort ein - nur Groábuchstaben!'); repeat gotoXY(12,13); write('******'); gotoXY(12+zaehler,13); buchstabe:=readkey; if (buchstabe>='A') and (Buchstabe<='Z') then begin code:=code+buchstabe; zaehler:=zaehler+1; end; until zaehler=6; end; procedure codeknacken; var i,j,k,l,m,n:integer; erg1, erg2, erg3, erg4:INTEGER; r,x,Zahl,zaehler:LONGINT; y:BOOLEAN; begin GETTIME (Stunde, Minute, Sekunde, Hundertstel); for i:=65 to 90 do begin codeknack:=chr(i); gotoxy(4,18); writeln('Ich arbeite...'); for j:=65 to 90 do begin for k:=65 to 90 do begin for l:=65 to 90 do begin for m:=65 to 90 do begin for n:=65 to 90 do begin codeknack:=chr(i) +chr(j) +chr(k) +chr(l) +chr(m); if codeknack=code then begin GETTIME (Stunde1, Minute1, Sekunde1, Hundertstel1); writeln('Erfolg, der Code lautet: ',codeknack); erg1:=(Stunde1-Stunde) *60+minute1-minute; erg2:=erg1*60+(sekunde1-sekunde); erg3:=erg2*100+hundertstel1-hundertstel; writeln(''); WRITELN ('Zeit ben”tigt: ',erg3); sound(300);delay(2000);nosound; READLN; EXIT; end; end; end; end; end; end; end; end; procedure menu; var x,fehler:integer; menuzahl:string; begin REPEAT REPEAT CLRSCR; writeln('Welcome ý \\bruteforcer v2// ...'); writeln(''); writeln('Menu'); writeln('[1] Password vergeben'); writeln('[2] Password Knacken'); writeln('[3] EXIT'); readln(menuzahl); VAL(menuzahl,x,fehler); UNTIL (FEHLER=0) AND (x>=1) AND (x<=3); clrscr; case x of 1:Begin eingabe; end; 2:Begin codeknacken; end; end; until x=3; end; begin clrscr; menu; end. |
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »phreeak« (13.11.2006, 02:34)
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Toby« (13.11.2006, 13:22)
Zitat
Original von Azfares
Turbo Pascal ist mittlerweile eine tote Programmiersprache.
Zitat
Heute findet Turbo Pascal auf dem PC selten Anwendung. Neuere Pascalversionen sind besonders in sicherheitskritischen Anwendungsbereichen verbreitet. Eine pascalähnliche Notation wird seit jeher in der Informatik und Mathematik zur Darstellung von Algorithmen benutzt. Dies, und frei verfügbare portierbare Pascalcompiler (FreePascal, Lazarus), erklärt warum im aktuellen Informatikunterricht teilweise Pascal eingesetzt wird.
Zitat
Original von Crazy_Legs
o.O FREEEEEEAKS ... sry wollts nur mal so s :aufgeb:agen