Форум » Clipper » Как открыт это поля » Ответить
Как открыт это поля
anvar: У меня есть 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
Ответов - 6
Dima: anvar пишет: как можно открыт другой программирований Delphi... 1. Найти аналог на Delphi 2. Глянуть исходник Charxor в Harbour и написать свою функцию
Dima: anvar пишет: http://www.dir.uz/ru/files/get/57882/kod_ochishga_dbf Выложить файл на платный обменник это круто. Сложи сюда files.mail.ru
anvar: Я анолог Delphi ненайдено Какой функия ест на дельфи
anvar: Файл http://files.mail.ru/797VLA
Dima: Что то не пойму чем же все таки Вы хотите дешифровать эти поля ? Вот в этой теме Вашей нет и намека на Delphi http://forum.vingrad.ru/forum/topic-354464/anchor-entry2505678/0.html Если на Clipper у Вас получается дешифровать поля , тогда в чем проблема ? anvar пишет: MEMVAR->P := "пбЁмоз¬вЎ" Одни крякозяблы в пароле.
SADSTAR4: 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>. реализуй это описание в Дельфи - и будет тебе счастье
полная версия страницы