Brauche hilfe bei passwort abfrage !

[xeon2000]

Hi !

ich habe eine kleine Log-in Passwort abfrage gebastelt, die bei jedem windows start erscheint (am registry eintrag arbeite ich noch). der taskmanager wird deaktiviert und die taskleiste und die desktop symbole werden ausbeblendet.

meine probleme :

1)wenn man die windows taste drückt poppt trotzdem noch das startmenü auf (kann man irgendwie die windows taste sperren?

2)mit alt+F4 kann man mein programm auch schließen...kann ich diese tasten auch irgendwie sperren?

3)ich bekomme es einfach net hin mit der blöden passwortabfrage !!!! ich kann immer nur zahlen als passwort nehmen, sobald ich buchstaben benutze bringt er mir n error...

könnt ihr mir n paar tipps geben ?

:coder2:

der source liegt bei !

[Nikolas]

zu 3) Was für'n Error denn? Da gibt's ein paar Dutzend Möglichkeiten

[xeon2000]

kein plan ! bin nochn anfänger... :roll:

aber ichglaub er kommt net klar mit StrToInt oder so...(hab den source doch geschickt)

[alcaeus]

Hi xeon2000,

Zitat:

Zitat von xeon2000

1)wenn man die windows taste drückt poppt trotzdem noch das startmenü auf (kann man irgendwie die windows taste sperren?

Guckste hier: http://www.delphi-treff.de/content/e...ex.php4?id=150

Zitat:

Zitat von xeon2000

2)mit alt+F4 kann man mein programm auch schließen...kann ich diese tasten auch irgendwie sperren?

TForm kennt OnCloseQuery. Schreibe eine Behandlungsroutine für dieses Ereignis und setze dort CloseAction := caNone. Beachte aber dass das Programm dann überhaupt nicht mehr geschlossen werden kann (also mit Bool-Variable abfragen ob das Passwort stimmt, wenn ja dann darf es geschlossen werden).

Zitat:

Zitat von xeon2000

3)ich bekomme es einfach net hin mit der blöden passwortabfrage !!!! ich kann immer nur zahlen als passwort nehmen, sobald ich buchstaben benutze bringt er mir n error...

Dann hast du irgendwo ein StrToInt verwendet. Warum versteh ich auch nicht, und ich hab ehrlich gesagt im Moment keine Lust irgendwelchen Source durchzuwühlen.

Greetz
alcaeus

PS: Das war wieder mal die falsche Sparte :roll: In dieser Sparte werden nur fertige Tipps gepostet, keine Probleme

[DP-Maintenance]

Dieses Thema wurde von "Daniel" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Sonstige Fragen zu Delphi" verschoben.

[xeon2000]

sry ! :roll:

mann ! ich verzweifle bald...

naja trotzdem thx...

krasses board !

[Wuaegner]

Bis jetzt hast du in deinem Programm ja noch gar keine Passwortabfrage.
Poste doch mal deinen Versuch, dann kann man dir helfen.

[xeon2000]

genau daran scheitere ich au...hab einfach kein plan wie ich des machen soll........

[malo]

Zitat:

Zitat von xeon2000

genau daran scheitere ich au...hab einfach kein plan wie ich des machen soll........

Ähm... ungefähr so:

Delphi-Quellcode:

//zuerst Benutzername-Abfrage:
if Edit1.Text = 'Ich' then
  begin
    // jetzt Passwort-Abfrage in Edit2
    if Edit2.Text = 'Passwort' then
      close;
  end;

So ungefähr... das wäre dann aber ein vorgegebens Passwort, mit Benutzernamen "Ich".

[xeon2000]

THX !!!!!!

jetzt hab ich nur noch 1 einziges problem: wie kann ich realisieren, dass das passwort von einer .ini file gelesen wird, so dass man das passwort einfach mit nem 2.programm definieren kann?



THX !!!!

[alcaeus]

Hi xeon2000,

verwend bitte mal die Suchfunktion. Das Thema hatten wir schon oft genug. Evtl. solltest du auch TIniFile versuchen.

Greetz
alcaeus

[fkerber]

Hi!

Zu den INIs hätten wir da auch noch
www.delphi-source.de/tutorials/ini


Ciao Frederic

[xeon2000]

also ich will ja echt net nerven, aber wenn ich das mit dem if mach,dann is des genauso wie vorher...kann mit biddö jemand des mit dem if mal richtig in den source integrieren? ICH WÄR EUCH SOOOOOOOOOO DANKBAR !!!!!!!

thx !

http://www.delphipraxis.net/download.php?id=8367

[fkerber]

Hi!

Habe folgendes eingebaut/geändert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var hTaskBar: THandle;
begin
 if ((Edit1.Text = 'Username') and (Edit2.Text = 'Passwort')) then
  begin
    ShowWindow(FindWindow(nil, 'Program Manager'), SW_SHOW);
    //Taskbar wieder sichtbar machen
    hTaskBar:=FindWindow('Shell_TrayWnd', nil);
    ShowWindow(hTaskBar, SW_SHOWNORMAL);

    sndPlaySound(PChar('Granted.wav'),SND_ASYNC);
    Timer1.Enabled:=false;
    Application.Terminate;
  end
 else
  sndPlaySound(PChar('denied.wav'),SND_ASYNC);
end;


//im onCloseQuery-Event des Forms folgendes hingeschrieben:
CanClose:=false;

Das mit dem Ini solltest du ja dann selbst hinbekommen.


Ciao Frederic

[Nikolas]

Eine der Regeln im Forum ist, dass hier geholfen wird und keine Programme jemandem frei Haus geschrieben wird.
Wenn du damit nicht selbst klarkommst, solltest du vielleicht etwas anderes programmieren. Vor allem bei Programmen wie deinem mit denen man auch gut Unfug anstellen kann...

[xeon2000]

@fkerber Danke !!!!!!!!!!!!!!!!!!!!!!!

@Toxman sry....jetzt nerv ich euch nimma ! :roll: aber was für unfug soll man mit ner log-in abfrage anstellen können? :confused:



DANKE AN ALLE!!!!!!

[fkerber]

Hi!

Zitat:

Zitat von xeon2000

aber was für unfug soll man mit ner log-in abfrage anstellen können? :confused:

Ich denke mal, er spielt darauf an, dass du Taskmanager und Startleiste deaktivierst und somit schon ziemlich stark die Rechte des Anwenders beschränkst.


Ciao Frederic


P.S.: Das von mir gepostete Beispiel dient nur dazu das Prinzip aufzuzeigen und es dauert keine 2 Minuten es zu knacken.

[xeon2000]

wie kann man es knacken?

und weisst du wie man die windows taste deaktivieren kann?

[fkerber]

Hi!

Es reicht denke ich schon sich mit einem Hex-Editor die Exe anzuschauen und dann sieht man das hardgecodete Passwort.

Ciao Frederic


P.S. Was die Windows-Taste angeht: Neue Frage - neuer Thread, ABER vorher Suchfunktion benutzen.