#!/bin/csi -script
(use md5 message-digest irregex srfi-13)
(define SEC-KEY "bgvyzdsv")

(define (find-digest num)
  (if
   (irregex-match (irregex "000000.*")
                  (message-digest-string
                   (md5-primitive)
                   (string-concatenate `(,SEC-KEY ,(number->string num)))))
   num
   (find-digest (+ num 1))))

(print (find-digest 0))