| 1 | XUS4 ;SEA/FDS - ACCESS CODE GENERATOR ;03/23/2001 08:45
|
|---|
| 2 | ;;8.0;KERNEL;**180**;Jul 10, 1995
|
|---|
| 3 | S G 2 ;Change to select auto generate style.
|
|---|
| 4 | ;
|
|---|
| 5 | 1 S XUG=$R(4)+5,XUL=0,XUA="" F XUW=0:0 S XUD=XUG-XUL Q:XUD=0 S:XUD=5 XUD=$R(2)+2 S:XUD>5 XUD=$R(3)+2 D A
|
|---|
| 6 | S %=$R(1000),XUW=$R(2),XUU=$S(XUW=0:XUA_%,XUW=1:%_XUA) K XUA,%,XUX3,XUW,XUG,XUL,XUD Q
|
|---|
| 7 | A S XUL=XUL+XUD S:XUD=2 XUC="TC1",XUV="TV1" S:XUD=4 XUC="TC2",XUV="TV2" I XUD=3 S XUW=$R(2) S:XUW=0 XUC="TC1",XUV="TV2" S:XUW=1 XUC="TC2",XUV="TV1"
|
|---|
| 8 | S XUA=XUA_$P($T(@XUC),";",($R($P($T(@XUC),";",3))+4))_$P($T(@XUV),";",($R($P($T(@XUV),";",3))+4)) Q
|
|---|
| 9 | TC1 ;;16;B;D;F;L;H;J;K;M;N;P;R;S;T;V;W;Z
|
|---|
| 10 | TC2 ;;26;CH;PH;SH;TH;WH;BL;CL;FL;GL;KL;PL;BR;CR;DR;FR;GR;KR;PR;TR;SC;SK;SM;SN;SP;ST;SW
|
|---|
| 11 | TV1 ;;6;A;E;I;O;U;Y
|
|---|
| 12 | TV2 ;;51;EA;OA;AE;EE;IE;OE;UE;AF;EF;IF;OF;UF;AH;EH;IH;OH;UH;AI;EI;OI;UI;AL;EL;IL;OL;UL;AM;EM;IM;OM;UM;AN;EN;IN;ON;UN;OO;AR;ER;IR;OR;UR;AS;ES;IS;OS;US;OU;AY;EY;OY
|
|---|
| 13 | ;
|
|---|
| 14 | AC() ;Do 2
|
|---|
| 15 | N XUU,% D 2 Q XUU
|
|---|
| 16 | 2 ;Generate 3.4 alpha 3.4 numeric, random order
|
|---|
| 17 | S XUU="",%=$P($H,",",2)#10
|
|---|
| 18 | D @$S(%>6:"A2(1),N2(0)",1:"N2(1),A2(0)") K %
|
|---|
| 19 | Q
|
|---|
| 20 | VC() ;Generate a 8 char alpha, numeric, punctuation
|
|---|
| 21 | N XUU,%,%1
|
|---|
| 22 | S XUU="",%1=$P($H,",",2)#10
|
|---|
| 23 | D @$S(%1<4:"A2(1),P2,N2(0)",%1<7:"A2(0),P2,N2(1)",1:"N2(1),A2(0),P2")
|
|---|
| 24 | Q XUU
|
|---|
| 25 | ;
|
|---|
| 26 | A2(F) S %=$R(100000000)+100000000,XUU=XUU_$C($E(%,2,3)#26+65)_$C($E(%,4,5)#26+65)_$C($E(%,6,7)#26+65)_$S(F:$C($E(%,8,9)#26+65),1:"") Q
|
|---|
| 27 | N2(F) S XUU=XUU_$E($R(100000)+100000,3,$S(F:6,1:5)) Q
|
|---|
| 28 | P2 S XUU=XUU_$E("~`!@#$%&*()_-+=|\{}[]'<>,.?/",$R(28)+1) Q
|
|---|
