REPLACE kodstik1 WITH my_rep('kodstik1',ALIAS())

PROCEDURE my_rep
	PARAMETERS my_fields, my_alias, stat_f
	STORE  1  TO begunok
	my_new = IIF(stat_f,shifr_1(ALLTRIM(&my_alias..&my_fields),'', 1 ),shifr_2(ALLTRIM(&my_alias..&my_fields),'', 1 ))
	DO WHILE LEN(my_new) > FSIZE(my_fields,my_alias) AND begunok <  1000  AND TYPE(FIELD(my_fields,my_alias)) # "M"
		my_new = IIF(stat_f,shifr_1(ALLTRIM(&my_alias..&my_fields),'', 1 ),shifr_2(ALLTRIM(&my_alias..&my_fields),'', 1 ))
		begunok = begunok +  1 
		IF begunok >=  1000 
			MESSAGEBOX('mlya')
			susp
		ENDIF
	ENDDO
RETURN my_new

PROCEDURE shifr_2
	PARAMETERS pervay, vtoroy, chto
	STORE  1  TO begunok
	pervay = ALLTRIM(pervay)
	vtoroy = ALLTRIM(vtoroy)
	chto = IIF(TYPE("chto")#"N", 0 ,chto)
	my_can_ret = vernul(pervay,'',chto) && получаю шифрованные данные
	IF !EMPTY(chto)
		my_true_znach = vernul(my_can_ret,'', 2 ) && получаю разшифрованные данные
		DO WHILE pervay # my_true_znach AND begunok <  1000 
			my_can_ret = vernul(pervay,vtoroy,chto) && получаю шифрованные данные
			my_true_znach = vernul(my_can_ret,'', 2 ) && получаю разшифрованные данные
			begunok = begunok +  1 
		ENDDO
		IF begunok >=  1000 
			MESSAGEBOX('mlya')
			susp
		ENDIF
	ENDIF
RETURN ALLTRIM(my_can_ret)

	DO CASE
		CASE my_err =  2027 
			RETRY
		OTHERWISE
			susp
	ENDCASE

tmps:=tmps+chr(ord(text[i]) xor ord(key[j]));

func(alltrim(my_can_ret),'', 2 ) &&Вызов

function func(chto_kod1, chto_kod2 :string; kodir_ras :integer) : Pchar; stdcall; export;
  nado_uznat := Pchar(chto_kod1);
  if chto_kod1='' then
  begin
...
  end;
end;

chr(ord(text[i]) xor ord(key[j]))

  for i :=  1  to  256  do
  begin
    for j :=  1  to  256  do
    begin
      chto_kod1:= chto_kod1 + chr(i xor j)+# 10 ;
    end;
  end;