Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: eine passwort abfrage vor dem prog start

   
    by ichbins, 15. Aug 2005
  Ich habe gerade einen kleinen Algorithmus zur Passwortverschlüsselung geschrieben. Er verschlüsselt das Passwort mit sich selbst in einem XOR-Verfahren:
  
  
  function encodepassword(password:string):string;
  var
  i:integer;
  begin
  result:='';
  for i:=1 to length(password) do
  result:=result+char(byte(password) xor byte(password));
• Forum: Programmieren allgemein

  Re: eine passwort abfrage vor dem prog start

   
    by ichbins, 15. Aug 2005
  Du kannst auch in der form1.create das machen (form2 ist das Passwortfenster. Das erstellst du unter Datei -> Neu -> Formular):
  
  
  procedure tform1.form1create(sender:tobject);
  begin
  form2:=tform2.create(self);
  form2.showmodal;
  end;