Forum: Sonstige Fragen zu Delphi
Delphi
by MasterTobi,
11. Jul 2009
ihr assis xD
genau das letzte funktioniert :)
ich hätte nie gedacht das sich soviele darüber ein kopf machen
deswegen danke ich hier allen =) VIELEN DANK
Forum: Sonstige Fragen zu Delphi
Delphi
by MasterTobi,
11. Jul 2009
ah sry schau nochma ein post über dir :)
aso hier das fehlt glaub ich auch noch :(
if(string > (0xff))
{
string -= 256;
}
Forum: Sonstige Fragen zu Delphi
Delphi
by MasterTobi,
11. Jul 2009
also schaut :
var x:Integer;
PW :string;
begin
PW:='king007';
for x:=1 to length(pw) do
PW := Chr(Ord(PW) + (3 xor X) * (X mod 15));
edit3.text:=PW;
Forum: Sonstige Fragen zu Delphi
Delphi
by MasterTobi,
11. Jul 2009
egnau das hat ich auch ma un da sagt er mir
Unit1.pas(34): E2008 Inkompatible Typen
:(
Forum: Sonstige Fragen zu Delphi
Delphi
by MasterTobi,
11. Jul 2009
Guten Morgen,
also ich habe hier folgenden Code
public Encrypt(string)
{
for(new x=0; x < strlen(string); x++)
{
string += (3^x) * (x % 15);
if(string > (0xff))