64-bit PWD - Creation...and yes ! I know that I'm a noob...

APD - Associated Programers Division
Verfügbare Informationen zu "64-bit PWD - Creation...and yes ! I know that I'm a noob..."

  • Qualität des Beitrags: 0 Sterne
  • Beteiligte Poster: bellerophones24
  • Forum: APD - Associated Programers Division
  • Forenbeschreibung: APD - Delphi and Visual Basic Community
  • aus dem Unterforum: Bellerophones' Edge
  • Antworten: 1
  • Forum gestartet am: Samstag 13.01.2007
  • Sprache: englisch
  • Link zum Originaltopic: 64-bit PWD - Creation...and yes ! I know that I'm a noob...
  • Letzte Antwort: vor 15 Jahren, 7 Monaten, 20 Tagen, 15 Stunden, 11 Minuten
  • Alle Beiträge und Antworten zu "64-bit PWD - Creation...and yes ! I know that I'm a noob..."

    Re: 64-bit PWD - Creation...and yes ! I know that I'm a noob...

    bellerophones24 - 08.08.2007, 19:11

    64-bit PWD - Creation...and yes ! I know that I'm a noob...
    function Createpwd64(PWD:string;param1:string;param2,param3:integer;key:double) :string;
    var mix,mix1,mix2:string;
    count,i:integer;
    calc:double;
    begin
    result:='';
    //first mix parameter
    mix:=copy(param1,0,1);
    mix:=mix+(copy(param1,(length(param1)-1),length(param1)));
    mix1:=mix+copy(pwd,0,2);
    Uppercase(mix1);
    //second mix parameter
    count:=length(param1);
    i:=count div 3;
    if not I=count then
    begin
    mix:=copy(param1,i,length(param1));
    mix:=mix+copy(param1,0,i);
    mix2:=Lowercase(mix)+copy(pwd,3,2);
    end;
    //calculate last parameter..(with key)
    calc:=((param2+param3)*(param2*param3)*(param3-param2)*key)+((key-param2)*(key-param3)*(param2+param2)*key);
    calc:=calc-((key+param2)*(key+param3)*(param3+param3)*key);
    //return PWD
    Result:=mix1+floattostr(calc)+mix2;
    end;



    Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken



    Weitere Beiträge aus dem Forum APD - Associated Programers Division



    Ähnliche Beiträge wie "64-bit PWD - Creation...and yes ! I know that I'm a noob..."

    yes baby - santas (Donnerstag 02.09.2004)
    yes - tomSawyer (Samstag 07.01.2006)
    Yes, Wir haben die 1000er-Marke geknackt! - jagger (Sonntag 02.10.2005)
    Kadett C Teile - AEROPILOT (Mittwoch 06.06.2012)
    Account Creation - []ADMIN[]Emmefel (Mittwoch 05.07.2006)
    YES! US GOT SPEED - hunterhh (Mittwoch 20.09.2006)
    Yes, a boy - Murkus (Sonntag 21.03.2004)
    Yes I Am - Jolene (Dienstag 06.11.2007)
    Abba cameos in the movie? Yes or No? - merton (Donnerstag 26.04.2007)
    Account Creation - <ADMIN>Emmefel (Dienstag 08.08.2006)