ГОСТ Р ИСО 28640 - 2012
Примечание I - Текст программы для линейного конгруэнтного метода на языке Basic
приведен для информации.
КЕМ/*****************4*4*************’4******4****************
КЕМ Программные коды линейного конгруэнтного метода на языке BASIC
КЕМ *4**4*»*********************9*****************************/
КЕМ
КЕМ/*******************************************************4*
КЕМ Часть 1. Modulus = 2Л32
КЕМ ******* т************* *************i#******4*i**т********/
OPTION BASE О
КЕМ
/*94*4*949**44*4*4***44*4**********»4***4*449494***9**4*4*94*4*4 4*4********** 4*/
DECLARE NUMERIC MULTIPLIER
LET MULTIPLIER = I664525
{«define MULTIPLIER I664525UL
DECLARE NUMERIC INCREMENT
LET INCREMENT = I
{«define INCREMENT IUL
DECLARE NUMERIC state32
’static unsigned long statc32;
REM
/
4
*
4
*
4
*
9 4 9 4
*
4 4 9
*
4 4
*
4
*
4 4 9 4
*
4
*
4 4 9 4
*
4
*
9
*
9
****
4
*
9 4 9 4
*
4 4 9 4
*
4
*
4 4 9 4
*
4
*
4 4 9 4 9 4
**
4 9 4
*
4
**
4
/
FUNCTION lcong32{unsigned long lcong32u< void )(
LET statc32 = And32((statc32
INCREMENT . MskF_f)
* MULTIPLIER) + ! statc32 = ( statc32 * MULTIPLIER +
INCREMENT ) & OxFFFFFFFFUL:
LET lcong32 = statc32
!return state32:
END FUNCTION
!)
REM
/
4 9 4
**
4 9 4 9 4
*
4
*
9 4
*
4
*
4
*
4
*******
9 4
*
4
*
9 4
*
4
***
9 4 9 4
*
4
*
9 4 9 4
*
4 4 9 4 9 4
*
4
*
9 4 9 4
*
4
*
9
*
9 4
**
4 4 4 9
/
FUNCTION lcong32_3lllong lcong32( void )j
! statc32 = ( statc32 * MULTIPLIER
♦INCREMENT ) & OxFFFFFFFFUL:
LET lcong32_3l = SR32U(lcong32 , I)
! return statc32»l;
END FUNCTION
!}
REM
/ 4 » 4 * 4 4 9 4 9 4 * 4 4 9 4 * 4 * 4 * 4 4 9 4 * 4 * 4 4 9 4 * 4 * 9 * 9 * * 4 *
FUNCTION init_lcong32(s)
4 » 4 *-4 * * 4 * 4 * 4 * 4 4 * 4 * 4 * 4 4 * 4 * 4 * 4 4 » 4 * 4 * 4 4/
{void init_lcong32(unsigncd long s) |
КЕМ /* начальное число должно быть нечетны’ . если слагаемое INCREMENT равно 0 */
IF (INCREMENT = 0> AND (REMAINDERS , 2 = 0) !
THEN
if ( (INCREMENT==0) && (s%2 == 0) ) j
LET s = s + I!
s++;
END IF
!
)
LET statc32 = s!
statc32 = s;
END FUNCTION
!}
39