Отправлено: 26.07.12 08:47. Заголовок: Как открыт это поля

У меня есть dbf файл.Кодирование поля charxor() функция как можно открыт другой программирований Delphi...

http://www.dir.uz/ru/files/get/57882/kod_ochishga_dbf

FUNCTION RCRI_()

PARAMETER I, N, K, X
PRIVATE A1, R, P
MEMVAR->P := "пбЁмоз¬вЎ"
MEMVAR->A1 := &("BDVI")->INVEI&I

IF EMPTY(A1)

MEMVAR->R := SPACE(K)

ELSE

MEMVAR->X := SB4(A1, N, K)

IF EMPTY(X)

MEMVAR->R := SPACE(K)

ELSE

MEMVAR->R := CHARXOR(X, P)

ENDIF

ENDIF

 Отправлено: 26.07.12 10:55. Заголовок: anvar пишет: как мо..

anvar пишет:

цитата:

как можно открыт другой программирований Delphi...

1. Найти аналог на Delphi
2. Глянуть исходник Charxor в Harbour и написать свою функцию

 Отправлено: 26.07.12 11:33. Заголовок: anvar пишет: http:/..

anvar пишет:

цитата:

http://www.dir.uz/ru/files/get/57882/kod_ochishga_dbf

Выложить файл на платный обменник это круто.
Сложи сюда files.mail.ru

 Отправлено: 26.07.12 12:11. Заголовок: Я анолог Delphi нен..

Я анолог Delphi ненайдено
Какой функия ест на дельфи

 Отправлено: 26.07.12 12:14. Заголовок: Файл http://files.ma..

Файл
http://files.mail.ru/797VLA

 Отправлено: 26.07.12 12:28. Заголовок: Что то не пойму чем ..

Что то не пойму чем же все таки Вы хотите дешифровать эти поля ?
Вот в этой теме Вашей нет и намека на Delphi
http://forum.vingrad.ru/forum/topic-354464/anchor-entry2505678/0.html
Если на Clipper у Вас получается дешифровать поля , тогда в чем проблема ?

anvar пишет:

цитата:

MEMVAR->P := "пбЁмоз¬вЎ"

Одни крякозяблы в пароле.

 Отправлено: 27.07.12 05:24. Заголовок: DESCRIPTION The ..

DESCRIPTION



The CHARXOR() function constructs a new string from the two strings passed as parameters. To do this, it combines the ASCII values of the corresponding characters of both strings with a bitwise XOR-operation and places a character in the resulting string whose ASCII value equals to the result of that operation.If the first string is passed by reference, the resulting string is stored in <cString1>, too. By setting the CSETREF()-switch to .T.,the return value can be omitted.If <cString2> is shorter than <cString1> and the last character of<cString2> has been processed, the function restarts with the first character of <cString2>.

реализуй это описание в Дельфи - и будет тебе счастье