Encrypt/Decrypt string using only ASCII output

Hello,

I have a function (description below) that I use in Delphi programs that I'd like to start using on a website using ASP/VBScript. I'd place it into a small console app and run it as a CGI but the server won't allow this so a serverside script (ASP if pos) is required.

The Delphi version used is...

function ASCIIEncrypt(Data, Cipher : String) : String;
var
  I, Z : integer;
  C : char;
  Code : byte;
begin
  Result:= '';
  if length(Data) > 0 then begin
    Z:= length(Cipher);
    for I:= 1 to length(Data) Do begin
      Code:= ord(Cipher[(I - 1) mod Z + 1]);
      if Data[I] >= #128 then
        C:= Chr(ord(Data[I]) xor (Code and $7F))
      else if Data[I] >= #64 then
        C:= Chr(ord(Data[I]) xor (Code and $3F))
      else if Data[I] >= #32 then
        C:= Chr(ord(Data[I]) xor (Code and $1F))
      else
        C:= Data[I];
      Result:= Result + C;
      end;
    end;
end;

It is a 2 way encrypt function that outputs ASCII. Place a string into it and it outputs an encrypted string. Place that back into the function and you get the original string back.

To help show the output of the Delphi function I have compiled a small example app that can be downloaded from http://janmulder.co.uk/download/AEncrypt.zip - basically, I need an ASP/VB function that can emulate this.

Does anyone out there also read Delphi syntax and know what this would look like in ASP/VB? Many thanks in advance.

Kind regards,

Jan.
Start Free Trial