English Ver:
DOWNLOAD
Full Version: GKripto v1.0
Releasing some program in an unknown language here at a swedish forum.
Well, I won't download something I can't understand.
GJ anyways.
Well, I won't download something I can't understand.
GJ anyways.
Okay im do translate to English.
Edit: Is now English.
Edit: Is now English.
QUOTE(Retard @ 2007-09-23 14:34) 
Releasing some program in an unknown language here at a swedish forum.
Well, I won't download something I can't understand.
GJ anyways.
Well, I won't download something I can't understand.
GJ anyways.
It's not unknown, it's Turkish
User-99: What method/algorithm is it based on?
QUOTE(swestres @ 2007-09-23 13:58)
User-99: What method/algorithm is it based on?
XOR Crypting
CODE
function GKripto(Str: String; Parola: Integer): String;
var
Int, ChrToplam: Integer;
KriptoStr: String;
begin
SetLength(KriptoStr, Length(Str));
for Int := 1 to Length(Str) do
begin
ChrToplam := Ord(Str[Int]);
KriptoStr[Int] := Char(ChrToplam xor ((Parola*2)+Int));
end;
Result := KriptoStr;
end;
var
Int, ChrToplam: Integer;
KriptoStr: String;
begin
SetLength(KriptoStr, Length(Str));
for Int := 1 to Length(Str) do
begin
ChrToplam := Ord(Str[Int]);
KriptoStr[Int] := Char(ChrToplam xor ((Parola*2)+Int));
end;
Result := KriptoStr;
end;
QUOTE(swestres @ 2007-09-23 14:58)
It's not unknown, it's Turkish
User-99: What method/algorithm is it based on?
User-99: What method/algorithm is it based on?
Jag är halv turk
. Det finns många på http://opensc.ws/ som är duktiga men de kan inte prata Engelska.
Tex han som har gjort Turkojan tror jag den heter. Jag skrev till han och han blev generad att jag var den enda här på svenska forumet
Thanks, it helped me much!
Another Public Crypter, GJ ! 
nice, fast får den inte att funka tsms me min pi server.. servern funkar jätte bra opackad... Förslag?
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.