|
| Посл.отвђт | Сообщенiе |
|
|
Дата: Ноя 26, 2003 11:12:23 Пытаюсь написать keygen для проги на FoxPro. В FoxPro неразбираюсь. Многие ф-ции похожи на VB.При проверке на валидность там в числе прочего имеется такой код. Про ALLTRIM прочитал в MSDN, но видно не правильно понял. Мой код на Delphi оказался не верен. Как он будет выглядеть на Delphi?
FUNCTION DeShifr
LPARAMETER z1
LOCAL z3, i, n
LOCAL az
z3 = ''
FOR i = 1 TO LEN(z1)
n = VAL(SUBSTR(z1, i, 1))
n = MOD((n+(n+1)*(n+2)), 100)
z3 = z3+ ;
ALLTRIM(STR(ABS(VAL(neXtword(az,n,"O"))-
VAL(neXtword(az, VAL(LEFT(ALLTRIM(STR(n)), 1)),"O"))- ;
VAL(neXtword(az, VAL(RIGHT(ALLTRIM(STR(n)), 1)),"O")))))
ENDFOR
RETURN VAL(z3)
ENDFUNC
FUNCTION NextWord
LPARAMETER lcLine, lnWord, lcTab
RETURN MLINE(STRTRAN(lcLine, IIF(VARTYPE(lcTab)<>'C', ',', lcTab), ;
CHR(13)), lnWord)
ENDFUNC
Победителю - название программы :)) |
|
|
Дата: Ноя 27, 2003 11:45:57 по поводу ALLTRIM - то он обрезает пробелы перед и после текста " йцукен " = "йцукен" |
|
|
Дата: Ноя 28, 2003 08:27:25 MoKC0DeR Твой полный? Где инициализация az? |
|
|
Дата: Дек 8, 2003 13:22:13 Эта прога случаянно не "налогоплательщик" ? Если да , поделись плиз результатами. |
|
|
Дата: Дек 9, 2003 09:30:01 ll13 угадал! Результатов пока нет, так как нет времени. Как только напишу кейген кину в форум. |
|
|
Дата: Дек 9, 2003 11:46:18 MoKC0DeR Спасибо, буду очень признателен :))) сам с ней 3 дня копаюсь, но т.к. фокспро не знаю - результаты пока не утешительные ... :( |
|
|
Дата: Янв 19, 2004 10:34:03 ll13 Keygen есть но сделал его на ФоксПро (переставил все на оборот). Ключики делает на уря. |