]>
Commit | Line | Data |
---|---|---|
b50f996d | 1 | /* $Id$ |
2 | * | |
3 | * 6 Magic Words generation | |
4 | * | |
5 | * Copyright (C) 1998 by the Massachusetts Institute of Technology | |
6 | * For copying and distribution information, please see the file | |
7 | * <mit-copyright.h>. | |
8 | * | |
9 | */ | |
10 | ||
11 | #include <mit-copyright.h> | |
12 | #include <moira.h> | |
13 | #include "reg_svr.h" | |
14 | ||
15 | #include <sys/stat.h> | |
16 | #include <sys/times.h> | |
17 | ||
18 | #include <fcntl.h> | |
19 | #include <stdlib.h> | |
20 | #include <string.h> | |
21 | #include <unistd.h> | |
22 | ||
23 | /* RSARef includes */ | |
24 | #include "global.h" | |
25 | #include "rsaref.h" | |
26 | ||
27 | RCSID("$Header$"); | |
28 | ||
29 | /* One-Time Password dictionary, as specified by RFC 1938 */ | |
30 | ||
31 | char *dict[] = | |
32 | { "A", "ABE", "ACE", "ACT", "AD", "ADA", "ADD", | |
33 | "AGO", "AID", "AIM", "AIR", "ALL", "ALP", "AM", "AMY", | |
34 | "AN", "ANA", "AND", "ANN", "ANT", "ANY", "APE", "APS", | |
35 | "APT", "ARC", "ARE", "ARK", "ARM", "ART", "AS", "ASH", | |
36 | "ASK", "AT", "ATE", "AUG", "AUK", "AVE", "AWE", "AWK", | |
37 | "AWL", "AWN", "AX", "AYE", "BAD", "BAG", "BAH", "BAM", | |
38 | "BAN", "BAR", "BAT", "BAY", "BE", "BED", "BEE", "BEG", | |
39 | "BEN", "BET", "BEY", "BIB", "BID", "BIG", "BIN", "BIT", | |
40 | "BOB", "BOG", "BON", "BOO", "BOP", "BOW", "BOY", "BUB", | |
41 | "BUD", "BUG", "BUM", "BUN", "BUS", "BUT", "BUY", "BY", | |
42 | "BYE", "CAB", "CAL", "CAM", "CAN", "CAP", "CAR", "CAT", | |
43 | "CAW", "COD", "COG", "COL", "CON", "COO", "COP", "COT", | |
44 | "COW", "COY", "CRY", "CUB", "CUE", "CUP", "CUR", "CUT", | |
45 | "DAB", "DAD", "DAM", "DAN", "DAR", "DAY", "DEE", "DEL", | |
46 | "DEN", "DES", "DEW", "DID", "DIE", "DIG", "DIN", "DIP", | |
47 | "DO", "DOE", "DOG", "DON", "DOT", "DOW", "DRY", "DUB", | |
48 | "DUD", "DUE", "DUG", "DUN", "EAR", "EAT", "ED", "EEL", | |
49 | "EGG", "EGO", "ELI", "ELK", "ELM", "ELY", "EM", "END", | |
50 | "EST", "ETC", "EVA", "EVE", "EWE", "EYE", "FAD", "FAN", | |
51 | "FAR", "FAT", "FAY", "FED", "FEE", "FEW", "FIB", "FIG", | |
52 | "FIN", "FIR", "FIT", "FLO", "FLY", "FOE", "FOG", "FOR", | |
53 | "FRY", "FUM", "FUN", "FUR", "GAB", "GAD", "GAG", "GAL", | |
54 | "GAM", "GAP", "GAS", "GAY", "GEE", "GEL", "GEM", "GET", | |
55 | "GIG", "GIL", "GIN", "GO", "GOT", "GUM", "GUN", "GUS", | |
56 | "GUT", "GUY", "GYM", "GYP", "HA", "HAD", "HAL", "HAM", | |
57 | "HAN", "HAP", "HAS", "HAT", "HAW", "HAY", "HE", "HEM", | |
58 | "HEN", "HER", "HEW", "HEY", "HI", "HID", "HIM", "HIP", | |
59 | "HIS", "HIT", "HO", "HOB", "HOC", "HOE", "HOG", "HOP", | |
60 | "HOT", "HOW", "HUB", "HUE", "HUG", "HUH", "HUM", "HUT", | |
61 | "I", "ICY", "IDA", "IF", "IKE", "ILL", "INK", "INN", | |
62 | "IO", "ION", "IQ", "IRA", "IRE", "IRK", "IS", "IT", | |
63 | "ITS", "IVY", "JAB", "JAG", "JAM", "JAN", "JAR", "JAW", | |
64 | "JAY", "JET", "JIG", "JIM", "JO", "JOB", "JOE", "JOG", | |
65 | "JOT", "JOY", "JUG", "JUT", "KAY", "KEG", "KEN", "KEY", | |
66 | "KID", "KIM", "KIN", "KIT", "LA", "LAB", "LAC", "LAD", | |
67 | "LAG", "LAM", "LAP", "LAW", "LAY", "LEA", "LED", "LEE", | |
68 | "LEG", "LEN", "LEO", "LET", "LEW", "LID", "LIE", "LIN", | |
69 | "LIP", "LIT", "LO", "LOB", "LOG", "LOP", "LOS", "LOT", | |
70 | "LOU", "LOW", "LOY", "LUG", "LYE", "MA", "MAC", "MAD", | |
71 | "MAE", "MAN", "MAO", "MAP", "MAT", "MAW", "MAY", "ME", | |
72 | "MEG", "MEL", "MEN", "MET", "MEW", "MID", "MIN", "MIT", | |
73 | "MOB", "MOD", "MOE", "MOO", "MOP", "MOS", "MOT", "MOW", | |
74 | "MUD", "MUG", "MUM", "MY", "NAB", "NAG", "NAN", "NAP", | |
75 | "NAT", "NAY", "NE", "NED", "NEE", "NET", "NEW", "NIB", | |
76 | "NIL", "NIP", "NIT", "NO", "NOB", "NOD", "NON", "NOR", | |
77 | "NOT", "NOV", "NOW", "NU", "NUN", "NUT", "O", "OAF", | |
78 | "OAK", "OAR", "OAT", "ODD", "ODE", "OF", "OFF", "OFT", | |
79 | "OH", "OIL", "OK", "OLD", "ON", "ONE", "OR", "ORB", | |
80 | "ORE", "ORR", "OS", "OTT", "OUR", "OUT", "OVA", "OW", | |
81 | "OWE", "OWL", "OWN", "OX", "PA", "PAD", "PAL", "PAM", | |
82 | "PAN", "PAP", "PAR", "PAT", "PAW", "PAY", "PEA", "PEG", | |
83 | "PEN", "PEP", "PER", "PET", "PEW", "PHI", "PI", "PIE", | |
84 | "PIN", "PIT", "PLY", "PO", "POD", "POE", "POP", "POT", | |
85 | "POW", "PRO", "PRY", "PUB", "PUG", "PUN", "PUP", "PUT", | |
86 | "QUO", "RAG", "RAM", "RAN", "RAP", "RAT", "RAW", "RAY", | |
87 | "REB", "RED", "REP", "RET", "RIB", "RID", "RIG", "RIM", | |
88 | "RIO", "RIP", "ROB", "ROD", "ROE", "RON", "ROT", "ROW", | |
89 | "ROY", "RUB", "RUE", "RUG", "RUM", "RUN", "RYE", "SAC", | |
90 | "SAD", "SAG", "SAL", "SAM", "SAN", "SAP", "SAT", "SAW", | |
91 | "SAY", "SEA", "SEC", "SEE", "SEN", "SET", "SEW", "SHE", | |
92 | "SHY", "SIN", "SIP", "SIR", "SIS", "SIT", "SKI", "SKY", | |
93 | "SLY", "SO", "SOB", "SOD", "SON", "SOP", "SOW", "SOY", | |
94 | "SPA", "SPY", "SUB", "SUD", "SUE", "SUM", "SUN", "SUP", | |
95 | "TAB", "TAD", "TAG", "TAN", "TAP", "TAR", "TEA", "TED", | |
96 | "TEE", "TEN", "THE", "THY", "TIC", "TIE", "TIM", "TIN", | |
97 | "TIP", "TO", "TOE", "TOG", "TOM", "TON", "TOO", "TOP", | |
98 | "TOW", "TOY", "TRY", "TUB", "TUG", "TUM", "TUN", "TWO", | |
99 | "UN", "UP", "US", "USE", "VAN", "VAT", "VET", "VIE", | |
100 | "WAD", "WAG", "WAR", "WAS", "WAY", "WE", "WEB", "WED", | |
101 | "WEE", "WET", "WHO", "WHY", "WIN", "WIT", "WOK", "WON", | |
102 | "WOO", "WOW", "WRY", "WU", "YAM", "YAP", "YAW", "YE", | |
103 | "YEA", "YES", "YET", "YOU", "ABED", "ABEL", "ABET", "ABLE", | |
104 | "ABUT", "ACHE", "ACID", "ACME", "ACRE", "ACTA", "ACTS", "ADAM", | |
105 | "ADDS", "ADEN", "AFAR", "AFRO", "AGEE", "AHEM", "AHOY", "AIDA", | |
106 | "AIDE", "AIDS", "AIRY", "AJAR", "AKIN", "ALAN", "ALEC", "ALGA", | |
107 | "ALIA", "ALLY", "ALMA", "ALOE", "ALSO", "ALTO", "ALUM", "ALVA", | |
108 | "AMEN", "AMES", "AMID", "AMMO", "AMOK", "AMOS", "AMRA", "ANDY", | |
109 | "ANEW", "ANNA", "ANNE", "ANTE", "ANTI", "AQUA", "ARAB", "ARCH", | |
110 | "AREA", "ARGO", "ARID", "ARMY", "ARTS", "ARTY", "ASIA", "ASKS", | |
111 | "ATOM", "AUNT", "AURA", "AUTO", "AVER", "AVID", "AVIS", "AVON", | |
112 | "AVOW", "AWAY", "AWRY", "BABE", "BABY", "BACH", "BACK", "BADE", | |
113 | "BAIL", "BAIT", "BAKE", "BALD", "BALE", "BALI", "BALK", "BALL", | |
114 | "BALM", "BAND", "BANE", "BANG", "BANK", "BARB", "BARD", "BARE", | |
115 | "BARK", "BARN", "BARR", "BASE", "BASH", "BASK", "BASS", "BATE", | |
116 | "BATH", "BAWD", "BAWL", "BEAD", "BEAK", "BEAM", "BEAN", "BEAR", | |
117 | "BEAT", "BEAU", "BECK", "BEEF", "BEEN", "BEER", "BEET", "BELA", | |
118 | "BELL", "BELT", "BEND", "BENT", "BERG", "BERN", "BERT", "BESS", | |
119 | "BEST", "BETA", "BETH", "BHOY", "BIAS", "BIDE", "BIEN", "BILE", | |
120 | "BILK", "BILL", "BIND", "BING", "BIRD", "BITE", "BITS", "BLAB", | |
121 | "BLAT", "BLED", "BLEW", "BLOB", "BLOC", "BLOT", "BLOW", "BLUE", | |
122 | "BLUM", "BLUR", "BOAR", "BOAT", "BOCA", "BOCK", "BODE", "BODY", | |
123 | "BOGY", "BOHR", "BOIL", "BOLD", "BOLO", "BOLT", "BOMB", "BONA", | |
124 | "BOND", "BONE", "BONG", "BONN", "BONY", "BOOK", "BOOM", "BOON", | |
125 | "BOOT", "BORE", "BORG", "BORN", "BOSE", "BOSS", "BOTH", "BOUT", | |
126 | "BOWL", "BOYD", "BRAD", "BRAE", "BRAG", "BRAN", "BRAY", "BRED", | |
127 | "BREW", "BRIG", "BRIM", "BROW", "BUCK", "BUDD", "BUFF", "BULB", | |
128 | "BULK", "BULL", "BUNK", "BUNT", "BUOY", "BURG", "BURL", "BURN", | |
129 | "BURR", "BURT", "BURY", "BUSH", "BUSS", "BUST", "BUSY", "BYTE", | |
130 | "CADY", "CAFE", "CAGE", "CAIN", "CAKE", "CALF", "CALL", "CALM", | |
131 | "CAME", "CANE", "CANT", "CARD", "CARE", "CARL", "CARR", "CART", | |
132 | "CASE", "CASH", "CASK", "CAST", "CAVE", "CEIL", "CELL", "CENT", | |
133 | "CERN", "CHAD", "CHAR", "CHAT", "CHAW", "CHEF", "CHEN", "CHEW", | |
134 | "CHIC", "CHIN", "CHOU", "CHOW", "CHUB", "CHUG", "CHUM", "CITE", | |
135 | "CITY", "CLAD", "CLAM", "CLAN", "CLAW", "CLAY", "CLOD", "CLOG", | |
136 | "CLOT", "CLUB", "CLUE", "COAL", "COAT", "COCA", "COCK", "COCO", | |
137 | "CODA", "CODE", "CODY", "COED", "COIL", "COIN", "COKE", "COLA", | |
138 | "COLD", "COLT", "COMA", "COMB", "COME", "COOK", "COOL", "COON", | |
139 | "COOT", "CORD", "CORE", "CORK", "CORN", "COST", "COVE", "COWL", | |
140 | "CRAB", "CRAG", "CRAM", "CRAY", "CREW", "CRIB", "CROW", "CRUD", | |
141 | "CUBA", "CUBE", "CUFF", "CULL", "CULT", "CUNY", "CURB", "CURD", | |
142 | "CURE", "CURL", "CURT", "CUTS", "DADE", "DALE", "DAME", "DANA", | |
143 | "DANE", "DANG", "DANK", "DARE", "DARK", "DARN", "DART", "DASH", | |
144 | "DATA", "DATE", "DAVE", "DAVY", "DAWN", "DAYS", "DEAD", "DEAF", | |
145 | "DEAL", "DEAN", "DEAR", "DEBT", "DECK", "DEED", "DEEM", "DEER", | |
146 | "DEFT", "DEFY", "DELL", "DENT", "DENY", "DESK", "DIAL", "DICE", | |
147 | "DIED", "DIET", "DIME", "DINE", "DING", "DINT", "DIRE", "DIRT", | |
148 | "DISC", "DISH", "DISK", "DIVE", "DOCK", "DOES", "DOLE", "DOLL", | |
149 | "DOLT", "DOME", "DONE", "DOOM", "DOOR", "DORA", "DOSE", "DOTE", | |
150 | "DOUG", "DOUR", "DOVE", "DOWN", "DRAB", "DRAG", "DRAM", "DRAW", | |
151 | "DREW", "DRUB", "DRUG", "DRUM", "DUAL", "DUCK", "DUCT", "DUEL", | |
152 | "DUET", "DUKE", "DULL", "DUMB", "DUNE", "DUNK", "DUSK", "DUST", | |
153 | "DUTY", "EACH", "EARL", "EARN", "EASE", "EAST", "EASY", "EBEN", | |
154 | "ECHO", "EDDY", "EDEN", "EDGE", "EDGY", "EDIT", "EDNA", "EGAN", | |
155 | "ELAN", "ELBA", "ELLA", "ELSE", "EMIL", "EMIT", "EMMA", "ENDS", | |
156 | "ERIC", "EROS", "EVEN", "EVER", "EVIL", "EYED", "FACE", "FACT", | |
157 | "FADE", "FAIL", "FAIN", "FAIR", "FAKE", "FALL", "FAME", "FANG", | |
158 | "FARM", "FAST", "FATE", "FAWN", "FEAR", "FEAT", "FEED", "FEEL", | |
159 | "FEET", "FELL", "FELT", "FEND", "FERN", "FEST", "FEUD", "FIEF", | |
160 | "FIGS", "FILE", "FILL", "FILM", "FIND", "FINE", "FINK", "FIRE", | |
161 | "FIRM", "FISH", "FISK", "FIST", "FITS", "FIVE", "FLAG", "FLAK", | |
162 | "FLAM", "FLAT", "FLAW", "FLEA", "FLED", "FLEW", "FLIT", "FLOC", | |
163 | "FLOG", "FLOW", "FLUB", "FLUE", "FOAL", "FOAM", "FOGY", "FOIL", | |
164 | "FOLD", "FOLK", "FOND", "FONT", "FOOD", "FOOL", "FOOT", "FORD", | |
165 | "FORE", "FORK", "FORM", "FORT", "FOSS", "FOUL", "FOUR", "FOWL", | |
166 | "FRAU", "FRAY", "FRED", "FREE", "FRET", "FREY", "FROG", "FROM", | |
167 | "FUEL", "FULL", "FUME", "FUND", "FUNK", "FURY", "FUSE", "FUSS", | |
168 | "GAFF", "GAGE", "GAIL", "GAIN", "GAIT", "GALA", "GALE", "GALL", | |
169 | "GALT", "GAME", "GANG", "GARB", "GARY", "GASH", "GATE", "GAUL", | |
170 | "GAUR", "GAVE", "GAWK", "GEAR", "GELD", "GENE", "GENT", "GERM", | |
171 | "GETS", "GIBE", "GIFT", "GILD", "GILL", "GILT", "GINA", "GIRD", | |
172 | "GIRL", "GIST", "GIVE", "GLAD", "GLEE", "GLEN", "GLIB", "GLOB", | |
173 | "GLOM", "GLOW", "GLUE", "GLUM", "GLUT", "GOAD", "GOAL", "GOAT", | |
174 | "GOER", "GOES", "GOLD", "GOLF", "GONE", "GONG", "GOOD", "GOOF", | |
175 | "GORE", "GORY", "GOSH", "GOUT", "GOWN", "GRAB", "GRAD", "GRAY", | |
176 | "GREG", "GREW", "GREY", "GRID", "GRIM", "GRIN", "GRIT", "GROW", | |
177 | "GRUB", "GULF", "GULL", "GUNK", "GURU", "GUSH", "GUST", "GWEN", | |
178 | "GWYN", "HAAG", "HAAS", "HACK", "HAIL", "HAIR", "HALE", "HALF", | |
179 | "HALL", "HALO", "HALT", "HAND", "HANG", "HANK", "HANS", "HARD", | |
180 | "HARK", "HARM", "HART", "HASH", "HAST", "HATE", "HATH", "HAUL", | |
181 | "HAVE", "HAWK", "HAYS", "HEAD", "HEAL", "HEAR", "HEAT", "HEBE", | |
182 | "HECK", "HEED", "HEEL", "HEFT", "HELD", "HELL", "HELM", "HERB", | |
183 | "HERD", "HERE", "HERO", "HERS", "HESS", "HEWN", "HICK", "HIDE", | |
184 | "HIGH", "HIKE", "HILL", "HILT", "HIND", "HINT", "HIRE", "HISS", | |
185 | "HIVE", "HOBO", "HOCK", "HOFF", "HOLD", "HOLE", "HOLM", "HOLT", | |
186 | "HOME", "HONE", "HONK", "HOOD", "HOOF", "HOOK", "HOOT", "HORN", | |
187 | "HOSE", "HOST", "HOUR", "HOVE", "HOWE", "HOWL", "HOYT", "HUCK", | |
188 | "HUED", "HUFF", "HUGE", "HUGH", "HUGO", "HULK", "HULL", "HUNK", | |
189 | "HUNT", "HURD", "HURL", "HURT", "HUSH", "HYDE", "HYMN", "IBIS", | |
190 | "ICON", "IDEA", "IDLE", "IFFY", "INCA", "INCH", "INTO", "IONS", | |
191 | "IOTA", "IOWA", "IRIS", "IRMA", "IRON", "ISLE", "ITCH", "ITEM", | |
192 | "IVAN", "JACK", "JADE", "JAIL", "JAKE", "JANE", "JAVA", "JEAN", | |
193 | "JEFF", "JERK", "JESS", "JEST", "JIBE", "JILL", "JILT", "JIVE", | |
194 | "JOAN", "JOBS", "JOCK", "JOEL", "JOEY", "JOHN", "JOIN", "JOKE", | |
195 | "JOLT", "JOVE", "JUDD", "JUDE", "JUDO", "JUDY", "JUJU", "JUKE", | |
196 | "JULY", "JUNE", "JUNK", "JUNO", "JURY", "JUST", "JUTE", "KAHN", | |
197 | "KALE", "KANE", "KANT", "KARL", "KATE", "KEEL", "KEEN", "KENO", | |
198 | "KENT", "KERN", "KERR", "KEYS", "KICK", "KILL", "KIND", "KING", | |
199 | "KIRK", "KISS", "KITE", "KLAN", "KNEE", "KNEW", "KNIT", "KNOB", | |
200 | "KNOT", "KNOW", "KOCH", "KONG", "KUDO", "KURD", "KURT", "KYLE", | |
201 | "LACE", "LACK", "LACY", "LADY", "LAID", "LAIN", "LAIR", "LAKE", | |
202 | "LAMB", "LAME", "LAND", "LANE", "LANG", "LARD", "LARK", "LASS", | |
203 | "LAST", "LATE", "LAUD", "LAVA", "LAWN", "LAWS", "LAYS", "LEAD", | |
204 | "LEAF", "LEAK", "LEAN", "LEAR", "LEEK", "LEER", "LEFT", "LEND", | |
205 | "LENS", "LENT", "LEON", "LESK", "LESS", "LEST", "LETS", "LIAR", | |
206 | "LICE", "LICK", "LIED", "LIEN", "LIES", "LIEU", "LIFE", "LIFT", | |
207 | "LIKE", "LILA", "LILT", "LILY", "LIMA", "LIMB", "LIME", "LIND", | |
208 | "LINE", "LINK", "LINT", "LION", "LISA", "LIST", "LIVE", "LOAD", | |
209 | "LOAF", "LOAM", "LOAN", "LOCK", "LOFT", "LOGE", "LOIS", "LOLA", | |
210 | "LONE", "LONG", "LOOK", "LOON", "LOOT", "LORD", "LORE", "LOSE", | |
211 | "LOSS", "LOST", "LOUD", "LOVE", "LOWE", "LUCK", "LUCY", "LUGE", | |
212 | "LUKE", "LULU", "LUND", "LUNG", "LURA", "LURE", "LURK", "LUSH", | |
213 | "LUST", "LYLE", "LYNN", "LYON", "LYRA", "MACE", "MADE", "MAGI", | |
214 | "MAID", "MAIL", "MAIN", "MAKE", "MALE", "MALI", "MALL", "MALT", | |
215 | "MANA", "MANN", "MANY", "MARC", "MARE", "MARK", "MARS", "MART", | |
216 | "MARY", "MASH", "MASK", "MASS", "MAST", "MATE", "MATH", "MAUL", | |
217 | "MAYO", "MEAD", "MEAL", "MEAN", "MEAT", "MEEK", "MEET", "MELD", | |
218 | "MELT", "MEMO", "MEND", "MENU", "MERT", "MESH", "MESS", "MICE", | |
219 | "MIKE", "MILD", "MILE", "MILK", "MILL", "MILT", "MIMI", "MIND", | |
220 | "MINE", "MINI", "MINK", "MINT", "MIRE", "MISS", "MIST", "MITE", | |
221 | "MITT", "MOAN", "MOAT", "MOCK", "MODE", "MOLD", "MOLE", "MOLL", | |
222 | "MOLT", "MONA", "MONK", "MONT", "MOOD", "MOON", "MOOR", "MOOT", | |
223 | "MORE", "MORN", "MORT", "MOSS", "MOST", "MOTH", "MOVE", "MUCH", | |
224 | "MUCK", "MUDD", "MUFF", "MULE", "MULL", "MURK", "MUSH", "MUST", | |
225 | "MUTE", "MUTT", "MYRA", "MYTH", "NAGY", "NAIL", "NAIR", "NAME", | |
226 | "NARY", "NASH", "NAVE", "NAVY", "NEAL", "NEAR", "NEAT", "NECK", | |
227 | "NEED", "NEIL", "NELL", "NEON", "NERO", "NESS", "NEST", "NEWS", | |
228 | "NEWT", "NIBS", "NICE", "NICK", "NILE", "NINA", "NINE", "NOAH", | |
229 | "NODE", "NOEL", "NOLL", "NONE", "NOOK", "NOON", "NORM", "NOSE", | |
230 | "NOTE", "NOUN", "NOVA", "NUDE", "NULL", "NUMB", "OATH", "OBEY", | |
231 | "OBOE", "ODIN", "OHIO", "OILY", "OINT", "OKAY", "OLAF", "OLDY", | |
232 | "OLGA", "OLIN", "OMAN", "OMEN", "OMIT", "ONCE", "ONES", "ONLY", | |
233 | "ONTO", "ONUS", "ORAL", "ORGY", "OSLO", "OTIS", "OTTO", "OUCH", | |
234 | "OUST", "OUTS", "OVAL", "OVEN", "OVER", "OWLY", "OWNS", "QUAD", | |
235 | "QUIT", "QUOD", "RACE", "RACK", "RACY", "RAFT", "RAGE", "RAID", | |
236 | "RAIL", "RAIN", "RAKE", "RANK", "RANT", "RARE", "RASH", "RATE", | |
237 | "RAVE", "RAYS", "READ", "REAL", "REAM", "REAR", "RECK", "REED", | |
238 | "REEF", "REEK", "REEL", "REID", "REIN", "RENA", "REND", "RENT", | |
239 | "REST", "RICE", "RICH", "RICK", "RIDE", "RIFT", "RILL", "RIME", | |
240 | "RING", "RINK", "RISE", "RISK", "RITE", "ROAD", "ROAM", "ROAR", | |
241 | "ROBE", "ROCK", "RODE", "ROIL", "ROLL", "ROME", "ROOD", "ROOF", | |
242 | "ROOK", "ROOM", "ROOT", "ROSA", "ROSE", "ROSS", "ROSY", "ROTH", | |
243 | "ROUT", "ROVE", "ROWE", "ROWS", "RUBE", "RUBY", "RUDE", "RUDY", | |
244 | "RUIN", "RULE", "RUNG", "RUNS", "RUNT", "RUSE", "RUSH", "RUSK", | |
245 | "RUSS", "RUST", "RUTH", "SACK", "SAFE", "SAGE", "SAID", "SAIL", | |
246 | "SALE", "SALK", "SALT", "SAME", "SAND", "SANE", "SANG", "SANK", | |
247 | "SARA", "SAUL", "SAVE", "SAYS", "SCAN", "SCAR", "SCAT", "SCOT", | |
248 | "SEAL", "SEAM", "SEAR", "SEAT", "SEED", "SEEK", "SEEM", "SEEN", | |
249 | "SEES", "SELF", "SELL", "SEND", "SENT", "SETS", "SEWN", "SHAG", | |
250 | "SHAM", "SHAW", "SHAY", "SHED", "SHIM", "SHIN", "SHOD", "SHOE", | |
251 | "SHOT", "SHOW", "SHUN", "SHUT", "SICK", "SIDE", "SIFT", "SIGH", | |
252 | "SIGN", "SILK", "SILL", "SILO", "SILT", "SINE", "SING", "SINK", | |
253 | "SIRE", "SITE", "SITS", "SITU", "SKAT", "SKEW", "SKID", "SKIM", | |
254 | "SKIN", "SKIT", "SLAB", "SLAM", "SLAT", "SLAY", "SLED", "SLEW", | |
255 | "SLID", "SLIM", "SLIT", "SLOB", "SLOG", "SLOT", "SLOW", "SLUG", | |
256 | "SLUM", "SLUR", "SMOG", "SMUG", "SNAG", "SNOB", "SNOW", "SNUB", | |
257 | "SNUG", "SOAK", "SOAR", "SOCK", "SODA", "SOFA", "SOFT", "SOIL", | |
258 | "SOLD", "SOME", "SONG", "SOON", "SOOT", "SORE", "SORT", "SOUL", | |
259 | "SOUR", "SOWN", "STAB", "STAG", "STAN", "STAR", "STAY", "STEM", | |
260 | "STEW", "STIR", "STOW", "STUB", "STUN", "SUCH", "SUDS", "SUIT", | |
261 | "SULK", "SUMS", "SUNG", "SUNK", "SURE", "SURF", "SWAB", "SWAG", | |
262 | "SWAM", "SWAN", "SWAT", "SWAY", "SWIM", "SWUM", "TACK", "TACT", | |
263 | "TAIL", "TAKE", "TALE", "TALK", "TALL", "TANK", "TASK", "TATE", | |
264 | "TAUT", "TEAL", "TEAM", "TEAR", "TECH", "TEEM", "TEEN", "TEET", | |
265 | "TELL", "TEND", "TENT", "TERM", "TERN", "TESS", "TEST", "THAN", | |
266 | "THAT", "THEE", "THEM", "THEN", "THEY", "THIN", "THIS", "THUD", | |
267 | "THUG", "TICK", "TIDE", "TIDY", "TIED", "TIER", "TILE", "TILL", | |
268 | "TILT", "TIME", "TINA", "TINE", "TINT", "TINY", "TIRE", "TOAD", | |
269 | "TOGO", "TOIL", "TOLD", "TOLL", "TONE", "TONG", "TONY", "TOOK", | |
270 | "TOOL", "TOOT", "TORE", "TORN", "TOTE", "TOUR", "TOUT", "TOWN", | |
271 | "TRAG", "TRAM", "TRAY", "TREE", "TREK", "TRIG", "TRIM", "TRIO", | |
272 | "TROD", "TROT", "TROY", "TRUE", "TUBA", "TUBE", "TUCK", "TUFT", | |
273 | "TUNA", "TUNE", "TUNG", "TURF", "TURN", "TUSK", "TWIG", "TWIN", | |
274 | "TWIT", "ULAN", "UNIT", "URGE", "USED", "USER", "USES", "UTAH", | |
275 | "VAIL", "VAIN", "VALE", "VARY", "VASE", "VAST", "VEAL", "VEDA", | |
276 | "VEIL", "VEIN", "VEND", "VENT", "VERB", "VERY", "VETO", "VICE", | |
277 | "VIEW", "VINE", "VISE", "VOID", "VOLT", "VOTE", "WACK", "WADE", | |
278 | "WAGE", "WAIL", "WAIT", "WAKE", "WALE", "WALK", "WALL", "WALT", | |
279 | "WAND", "WANE", "WANG", "WANT", "WARD", "WARM", "WARN", "WART", | |
280 | "WASH", "WAST", "WATS", "WATT", "WAVE", "WAVY", "WAYS", "WEAK", | |
281 | "WEAL", "WEAN", "WEAR", "WEED", "WEEK", "WEIR", "WELD", "WELL", | |
282 | "WELT", "WENT", "WERE", "WERT", "WEST", "WHAM", "WHAT", "WHEE", | |
283 | "WHEN", "WHET", "WHOA", "WHOM", "WICK", "WIFE", "WILD", "WILL", | |
284 | "WIND", "WINE", "WING", "WINK", "WINO", "WIRE", "WISE", "WISH", | |
285 | "WITH", "WOLF", "WONT", "WOOD", "WOOL", "WORD", "WORE", "WORK", | |
286 | "WORM", "WORN", "WOVE", "WRIT", "WYNN", "YALE", "YANG", "YANK", | |
287 | "YARD", "YARN", "YAWL", "YAWN", "YEAH", "YEAR", "YELL", "YOGA", | |
288 | "YOKE" }; | |
289 | ||
290 | void hmac_md5(unsigned char *text, int text_len, | |
291 | unsigned char *key, int key_len, | |
292 | unsigned char *digest); | |
293 | char *hmac_key; | |
294 | ||
295 | int read_hmac_key(void) | |
296 | { | |
297 | struct stat statbuf; | |
298 | int fd; | |
299 | ||
300 | if (stat(REG_SVR_HMAC_KEY, &statbuf)) | |
301 | return 0; | |
302 | ||
303 | fd = open(REG_SVR_HMAC_KEY, O_RDONLY); | |
304 | if (!fd) | |
305 | return 0; | |
306 | ||
307 | hmac_key = malloc(statbuf.st_size); | |
308 | if (!hmac_key) | |
309 | return 0; | |
310 | ||
311 | if (read(fd, hmac_key, statbuf.st_size) != statbuf.st_size) | |
312 | return 0; | |
313 | ||
314 | close(fd); | |
315 | if (hmac_key[statbuf.st_size - 1] == '\n') | |
316 | hmac_key[statbuf.st_size - 1] = '\0'; | |
317 | return 1; | |
318 | } | |
319 | ||
320 | /* This isn't amazingly random, but then, it doesn't especially need to be */ | |
321 | unsigned short *init_rand(void *foo) | |
322 | { | |
323 | struct tms tms; | |
324 | unsigned short *rand = xmalloc(16); | |
325 | ||
326 | tms.tms_cutime = times(&tms); | |
327 | tms.tms_cstime = (long)foo; | |
328 | hmac_md5((char *)&tms, sizeof(tms), hmac_key, strlen(hmac_key), | |
329 | (unsigned char *)rand); | |
330 | return rand; | |
331 | } | |
332 | ||
333 | void getwordlist(char *input, char *words[]) | |
334 | { | |
335 | unsigned char digest[16]; | |
336 | int i; | |
337 | ||
338 | memset(digest, 0, sizeof(digest)); | |
339 | hmac_md5(input, strlen(input), hmac_key, strlen(hmac_key), digest); | |
340 | ||
341 | /* "Fold" the digest onto itself... */ | |
342 | for(i = 0; i < 8; i++) | |
343 | digest[i] ^= digest[i+8]; | |
344 | ||
345 | words[0] = dict[(digest[0] << 1) | (digest[1] >> 7)]; | |
346 | words[1] = dict[((digest[1] & 0x7f) << 4) | (digest[2] >> 4)]; | |
347 | words[2] = dict[((digest[2] & 0x0f) << 7) | (digest[3] >> 1)]; | |
348 | words[3] = dict[((digest[3] & 0x01) << 10) | (digest[4] << 2) | |
349 | | (digest[5] >> 6)]; | |
350 | words[4] = dict[((digest[5] & 0x3f) << 5) | (digest[6] >> 3)]; | |
351 | words[5] = dict[((digest[6] & 0x03) << 8) | digest[7]]; | |
352 | } | |
353 | ||
354 | ||
355 | /* HMAC MD5 (RFC 2104) */ | |
356 | ||
357 | void hmac_md5(unsigned char *text, int text_len, | |
358 | unsigned char *key, int key_len, | |
359 | unsigned char *digest) | |
360 | { | |
361 | MD5_CTX context; | |
362 | unsigned char k_ipad[65]; /* inner padding - key XORd with ipad */ | |
363 | unsigned char k_opad[65]; /* outer padding - key XORd with opad */ | |
364 | unsigned char tk[16]; | |
365 | int i; | |
366 | ||
367 | /* if key is longer than 64 bytes reset it to key=MD5(key) */ | |
368 | if (key_len > 64) { | |
369 | MD5_CTX tctx; | |
370 | ||
371 | MD5Init(&tctx); | |
372 | MD5Update(&tctx, key, key_len); | |
373 | MD5Final(tk, &tctx); | |
374 | ||
375 | key = tk; | |
376 | key_len = 16; | |
377 | } | |
378 | ||
379 | /* | |
380 | * the HMAC_MD5 transform looks like: | |
381 | * | |
382 | * MD5(K XOR opad, MD5(K XOR ipad, text)) | |
383 | * | |
384 | * where K is an n byte key | |
385 | * ipad is the byte 0x36 repeated 64 times | |
386 | * opad is the byte 0x5c repeated 64 times | |
387 | * and text is the data being protected | |
388 | */ | |
389 | ||
390 | /* start out by storing key in pads */ | |
391 | memset(k_ipad, 0, sizeof(k_ipad)); | |
392 | memset(k_opad, 0, sizeof(k_opad)); | |
393 | memcpy(k_ipad, key, key_len); | |
394 | memcpy(k_opad, key, key_len); | |
395 | ||
396 | /* XOR key with ipad and opad values */ | |
397 | for (i = 0; i < 64; i++) | |
398 | { | |
399 | k_ipad[i] ^= 0x36; | |
400 | k_opad[i] ^= 0x5c; | |
401 | } | |
402 | ||
403 | /* perform inner MD5 */ | |
404 | MD5Init(&context); | |
405 | MD5Update(&context, k_ipad, 64); | |
406 | MD5Update(&context, text, text_len); | |
407 | MD5Final(digest, &context); | |
408 | ||
409 | /* perform outer MD5 */ | |
410 | MD5Init(&context); | |
411 | MD5Update(&context, k_opad, 64); | |
412 | MD5Update(&context, digest, 16); | |
413 | MD5Final(digest, &context); | |
414 | } |