RU/2: Форум. Общение пользователей и разработчиков OS/2 (eCS). : Получить GUID в Rexx


Список сообщений | Написать новое | Ответить на сообщение | Домой Поиск:
Предыдущее сообщение | Следующее сообщение
From : Aleksey Tarasow, 2:5053/57, librexx.ru azimut21.ru azimut64.ru
To : Slavik Gnatenko
Subj : Получить GUID в Rexx

> > Для подготовки файлов для гос.органов мне потребовалось сгенерировать GUID на Rexx.
> > Не смог найти ни одного описания алгоритма или готовой функции. Может у кого нибудь есть решение проблемы.
> КАК на такую стандартную вещь можно не найти алгоритма генерации? Его спека ( rfc4122.txt ) на добрую четверть из этих алгоритмов на разные случаи жизни и состоит.

Наткнулся вот на страничку с несколькими алгоритмами guid-javascript.html
Самый простой перенес на Rexx. Это простой генератор случайных чисел, не думаю что этот алгоритм подойдет для генерации GUID для гос.органов. Анализирую остальные алгоритмы на этой странице.

===
s4:
return left(substr(d2x(((1+(random()/10))*d2x(10000))),2),4,0)

GUID:
return S4()S4()"-"S4()"-"S4()"-"S4()"-"S4()S4()S4()
===


Fri 11 Mar 2016 15:59 Mozilla/5.0 (Windows NT 6.3; WOW64; rv:44.0) Gecko/20100101




Programmed by Dmitri Maximovich, Dmitry I. Platonoff, Eugen Kuleshov.
25.09.99 (c) 1999, RU/2. All rights reserved.
Rewritten by Dmitry Ban. All rights ignored.