Thread: I have a request on SS-Rat...

Please, can someone post a module for encrypting connections in SS-Rat?
PLEASE
Thanks.

Go Crazy.
from: http://www.delphi3000.com/articles/article_4029.asp

Code:

function XorStr(Stri, Strk: String): String;
var
    Longkey: string;
    I: Integer;
    Next: char;
begin
    for I := 0 to (Length(Stri) div Length(Strk)) do
    Longkey := Longkey + Strk;
    for I := 1 to length(Stri) do
    begin
        Next := chr((ord(Stri[i]) xor ord(Longkey[i])));
        Result := Result + Next;
    end;
end;