(define (zahlenblock block blocklaenge)
  (cond ((equal? 0 blocklaenge) 0)
        (else (+ (hunderter (char->integer (first block)) blocklaenge) (zahlenblock (rest block) (- blocklaenge 1))))))


(define (hunderter zahl stelle)
  (cond ((= 1 stelle) zahl)
        (else (* (hunderter zahl (- stelle 1)) 100))))

(define (verschluesseln text schluessel blocklaenge)
  (cond ((equal? 0 blocklaenge) schluessel)
        (else (+ (hunderter (char->integer (first (string->list text))) blocklaenge) (verschluesseln (list->string (rest (string->list text))) schluessel (- blocklaenge 1))))))