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