function MakeResultString(Source: PChar): PChar;
var Len: DWORD;
begin
  result := nil;
  Len := StrLen(Source) + 1;
  result := ib_util_malloc(Len);
  if (Source = nil) or (Len = 1) then
    result[0] := #0
  else
    Move(Source^, result^, Len);
end;

function ValidateStr(Value, KodType : PChar): PChar; cdecl; export;
var
  res: string;
  r: Extended;
  pos_m, l_len, r_len, mant: integer;

  procedure GetLRLen(Value: string; out l_len, r_len: integer);
  var
    pos_, l_val: integer;
  begin
    pos_ := pos('.', Value);
    if pos_ > 0 then begin
      l_val := StrToInt(copy(Value, 1, pos_-1));
      if l_val = 0 then l_len := 0
      else l_len := length(IntToStr(l_val));
      r_len := length(copy(Value, pos_+1,length(Value)-pos_));
    end
    else begin
      l_len := length(Value);
      r_len := 0;
    end;
  end;

begin
  try
    if KodType = 'INTEGER' then res := IntToStr(StrToIntDef(Value, 0))
    else if KodType = 'REAL' then begin
      try
        DecimalSeparator := '.';
        res := ReplaceStr(Value, ',', '.');
        r := StrToFloatDef(res, 0);
        pos_m := pos('E', res);

        if pos_m > 0 then begin
          GetLRLen(copy(res, 1, pos_m-1), l_len, r_len);
          mant := StrToInt(copy(res, pos_m+1, length(res)-pos_m));
          if mant > 0 then begin
            l_len := l_len + mant;
            r_len := r_len - mant;
            if r_len < 0 then r_len := 0;
          end
          else begin
            l_len := l_len + mant;
            r_len := r_len - mant;
            if l_len < 0 then l_len := 0;
          end;
        end
        else GetLRLen(res, l_len, r_len);
        res := FloatToStrF(r, ffFixed, l_len+r_len, r_len)
      except
        res := '0';
      end;
    end
    else if KodType = 'TIMESTAMP' then res := DateTimeToStr(StrToDateTimeDef(Value, Now))
    else if KodType = 'STRING' then res := copy(Value, 1, 254);
    result := MakeResultString(PChar(res));
  except
  end;
end;

function MD5(str:PChar):PChar; cdecl; export;
begin
  try
    result := MakeResultString(PChar(strMD5(str)));
  except
    result := MakeResultString('');
  end;
end;