Имеется код на foxPro
я в нем вообще не шарю только зная принципы программирования понимаю некоторые фрагменты, а врмя изучать нету, может кто поможет..
а форма содержит 6 Editov в нечетные генерируется код, а в четные необходимо вести код, каждый Edit вмещает в себя 4 цифры...

следующего содержания:
***
*** ReFox MMII (Win) #UK813760 OSCAR VALENTE LINCKER S.R.L. [VFP50]
***
*
PROCEDURE vhod
thisform.text1.value = CHRTRAN(STR(INT(ROUND(RAND(SECONDS()), ;
12) * ;
(1000000000000^1)), ;
12), ' ', ;
'0')
thisform.text3.value = SUBSTR(thisform.text1.value, ;
5, 4)
thisform.text5.value = SUBSTR(thisform.text1.value, ;
9, 4)
thisform.text1.value = LEFT(thisform.text1.value, ;
4)
ENDPROC
*
FUNCTION vhdprv
thisform.delta = SECONDS() - ;
thisform.delta
IF EMPTY(thisform.text2.value) ;
.OR. ;
EMPTY(thisform.text4.value) ;
.OR. ;
EMPTY(thisform.text6.value)
RETURN .F.
ENDIF
LOCAL x1, x2, xvar, xfile, nfile
IF .F. .AND. .NOT. this.prvkod() ;
.OR. thisform.delta < 10 .OR. ;
thisform.delta > 15
WAIT WINDOW NOWAIT ;
STR(thisform.delta)
RETURN .F.
ENDIF
LOCAL xvar
xvar = LEFT(thisform.text1.value, ;
2) + STR((1073741824^1) - ;
thisform.ltxt1.mytxt1.value) + ;
LEFT(thisform.text3.value, ;
3)
xvar = STR((1073741824^1) - ;
thisform.ltxt1.mytxt1.value)
= writeprivstr('Параметры', ;
"Цвет зоны 4",xvar,smr.fini)
= writeprivfilestr('Параметры', ;
"Цвет зоны 4",xvar,smr.fini)
RETURN .T.
ENDFUNC
*
PROCEDURE regu
dsmr.filekod = PADR('', 199, '*') + ;
'~'
thisform.delta = SECONDS() - ;
VAL('1' + '1')
this.vhdprv
ENDPROC
*
FUNCTION prvkod
LPARAMETERS pnumfunction
LOCAL x2, x3, x4, x5
x4 = thisform.text1.value
STORE VAL('0') TO x5, x2
FOR x3 = 1 TO 4
x5 = x5 + VAL(SUBSTR(x4, x3, ;
1))
ENDFOR
RETURN VAL(SUBSTR(STR(x5), 10)) = ;
VAL(SUBSTR(thisform.text2.value, ;
2, 1))
ENDFUNC
*
PROCEDURE Init
this.nobj = dsmr
this.vhod
this.smr = smr.reestr
thisform.ltxt1.resize
ENDPROC
*
PROCEDURE KeyPress
LPARAMETERS nkeycode, ;
nshiftaltctrl
IF nkeycode = 27
thisform.release
ENDIF
ENDPROC
*
***
*** ReFox - retrace your steps ...
***


Заранее признателен...

| Сообщение посчитали полезным:

Ага пытаешься сломать классную прогу WSMR? Просто она уже не актуальна, вышла новая версия там другой механиз регистрации! А если есть надобность кейгена на 1.2.1 в личку стучись скину.

| Сообщение посчитали полезным: