anchor.diff:  (fast-expt 102788927505630524891970060280564889176 65537)
   
   
  -(defun fast-expt (base power)
  -  (labels ((square (x) (* x x))
  -	   (expt-iter (b p a)
  -	     (cond ((= p 0) a)
  -		   ((evenp p) (expt-iter (square b) (/ p 2) a))
  -		   (t (expt-iter b (- p 1) (* b a))))))
  -    (expt-iter base power 1)))
  +;150567550686072292363869403688778150467
  +
  +;65537
  +
  +;157794750267131502212476817800345498121872783333389747424011531025366277535262539913701806290766479189477533597854989606803194253978660329941980786072432806427833685472618792592200595694346872951301770580765135349259590167490536138082469680638514416594216629258349130257685001248172188325316586707301643237607
  +
  +;68557821992394062405528844047665704020814692746684528905862705136112325609042677156688581857248282426978568312910163338913186472129471867307582877886816795339495146041100956742853165375758535520523151336907528791932972437914671790607051349903777553468473075307016998698227997606532624536443854468962699856094
  +
  +
  
positive.code: ;    post parameters:
  ;        params = enc-text
  ;        encSecKey = enc-sec-key
  
  (defun string+ (&rest s)
    (apply #'concatenate 'string s))
  
negative.code:   (let ((n-text (parse-integer (convert-utf8-to-hex (reverse text)) :radix 16))
  	(n-pubkey (parse-integer pubkey :radix 16))
  	(n-modulus (parse-integer modulus :radix 16)))
      (add-padding (write-to-string (expt-mod n-text n-pubkey n-modulus) :base 16) modulus)))
  
  (defun encrypt-user-account (username password &optional
  						 (remember "true")
  