Verfügbare Informationen zu "64-bit PWD - Creation...and yes ! I know that I'm a noob..."
Qualität des Beitrags: 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:1164-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)
