[ScriptCoderPro]

I found base64 encode/decode in Delphi here: http://www.swissdelphicenter.ch/torr...de.php?id=1524 and translate it to Pawn. Please check it and help with this functions, I'm newbie in Pawn.

#include <amxmodx>

static const Codes64[] = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/"

public Encode64(s[])
{
new i=0,a=0,x=0,b=0,Result
  for (i=1;i<strlen(s);i++) {
    x = str_to_num(s[i])
    b = b * 256 + x
    a = a + 8
    while (a >= 6) {
      a = a - 6
      x = b / (1 << a)
      b = b % (1 << a)
      Result += Codes64[x + 1]
   }
  }
  if (a > 0) {
    x = b << (6 - a);
    Result += Codes64[x + 1];
 }
 return Result;
}

public Decode64(s[])
{
  new i=0,a=0,x=0,b=0,Result,ch[1]
  for (i = 1; i< strlen(s);i++) {
      for (new index = 0; Codes64[index]; index++)
    if (s[i]==Codes64[index]) {
    x=index-1
    break
    }
    if (x >= 0) {
      b = b * 64 + x
      a = a + 6
      if (a >= 8) {
        a = a - 8
        x = b >> a
        b = b % (1 << a)
        x = x % 256
        Result += num_to_word(x,ch,1)
     }
    }
    else exit;
}
return Result;
}

[[ --<-@ ] Black Rose]

What's the problem?

Easiest way is to try it out.

[ScriptCoderPro]

I updated my first post. Check it now.

[[ --<-@ ] Black Rose]

I used another C++ source. I don't know anything about delphi. I have no clue what it does. It works.

I hope you were looking for the function and not learning how to do it.

[ScriptCoderPro]

Very very big thx!!! Man (or woman ) it's excellently made work! For simple test it works. I will test it more and write if it's not work. Now I can realize crypto algorithm with xor and non standart symbols.

[ScriptCoderPro]

I have a question how I can emulate two delphi functions in Pawn?
1) Ord("A") - returns number of symbol - 65
2) Chr(65) - returns from number symbol - "A"
Thx!

[[ --<-@ ] Black Rose]

You don't have to. 'A' is equal to 65 in pawn.

so if you have a string like this:
string[3] = "ABC"

and use it like this:
server_print("%c/%d", string[0], string[0]);

it would print "A/65"

[ScriptCoderPro]

thx

[Exolent[jNr]]

What is the purpose of a base64 string?

[Hawk552]

Originally Posted by Exolent[jNr] What is the purpose of a base64 string?

It's just like any form of encoding.