Экспорт и импорт криптографии за рубежом 3 страница

unsigned short b;

unsigned short c;

unsigned short d;

unsigned long y;

d = x & OxOOFF;

x >>= 8;

C = x & OxOOFF;

x >>= 8;

b = x & OxOOFF;

x >>=- 8;

a = x & OxOOFF;

//* = ((S[0][a] + S[l][b]) * S[2][c:l) + S[3][d]

y = bc>S[0][a] + bc->S[l][b];

y = y bc>S[2][c];

y = y + bc>S[3][d];

return y;

*"id BiOWfish_encipher(blf_ctx *c,unsigned long *xl, unsigned long *xr)

unsigned long X};

unsigned long Xr;

unsigned long temp;

short i;

Xi = *xl;

X r = *x r;

fo r (i = 0; i < N; ++i) {

Xi = Xi c->P[i];

X r = F (c, X i) X r;

temp = Xi;

Xi = Xr;

Xr = temp;

temp =* Xi;

Xi = Xr;

Xr = temp;

X r = X r c > P [ N 1;

Xi = Xi c>P[N + 1];

*xl = Xi;

*x r = X r;

*old BiOwfish_decipher(blf_ctx *c, unsigned long *xl, unsigned long *xr)

unsigned long X};

unsigned long Xr;

unsigned long temp;

short i;

X i = *xl;

X r = *x r;

fo r (i = N + i; i > i; - - i) {

Xi = Xi c->P[i];

Xr = F(c, Xi) Xr;

/* Exchange Xi and Xr */

temp = Xi;

Xi = Xr;

Xr = temp;

/* Exchange Xi and Xr */

temp = Xi;

Xi = Xr;

Xr = temp;

Xr = Xr c->P[l];

Xi = Xi c>P[0];

*xl = Xi;

*x r = X r;

short lnitializeBlowfish(blf_ctx *c, char key[], short keybytes)

short i;

s h o r t j;

s h o r t k;

short error;

short numread;

unsigned long data;

unsigned long datal;

unsigned long datar;

unsigned long ksO[] = {

Oxdl310ba6, Ox98dfb5ac, Ox2ffd72db, Oxd01adfb7, Oxb8elafed, Ox6a267e96,

Oxba/c9045, Oxfl2c7f99, Ox24al9947, Oxb3916cf7, Ox0801f2e2, Ox858efcl6,

Ox636920d8, Ox71574e69, Oxa458fea3, Oxf4933d7e, OxOd95748f, Ox728eb658,

Ox718bcd58, Ox82154aee, Ox7b54a41d, Oxc25a59b5, Ox9c30d539, Ox2af26013,

Oxc5dlb023, Ox286085fO, Oxca417918, Oxb8db38ef, Ox8e79dcbO, Ox603al80e,

Ox6c9eOe8b, Oxb01e8a3e, Oxd71577cl, Oxbd314b27, Ox78af2fda, Ox55605c60,

Oxe65525f3, Oxaa55ab94, Ox57489862, Ox63e81440, Ox55ca396a, Ox2aablOb6,

Oxb4cc5c34, Oxll41e8ce, Oxal5486af, Ox7c72e993, Oxb3eel411, Ox636fbc2a,

Ox2ba9c55d, Ox741831f6, Oxce5c3el6, Ox9b87931e, Oxafd6ba33, Ox6c24cf5c,

Ox7a325381, Ox28958677, Ox3b8f4898, Ox6b4bb9af, Oxc4bfe81b, Ox66282193,

Ox61d809cc, Oxfb21a991, Ox487cac60, Ox5dec8032, Oxef845d5d, Oxe98575bl,

Oxdc262302, Oxeb651b88, Ox23893e81, Oxd396acc5, OxOf6d6ff3, Ox83f44239,

Ox2eOb4482, Oxa4842004, Ox69c8f04a, Ox9elf9b5e, Ox21c66842, Oxf6e96c9a,

Ox670c9c61, Oxabd388fO, Ox6a51aOd2, Oxd8542f68, Ox960fa728, Oxab5133a3,

Ox6eefOb6c, Oxl37a3be4, Oxba3bf050, Ox7efb2a98, Oxalfl651d, Ox39af0176,

Ox66ca593e, Ox82430e88, Ox8cee8619, Ox456f9fb4, Ox7d84a5c3, Ox3b8b5ebe,

Oxe06f75d8, Ox85cl2073, Ox401a449f, Ox56cl6aa6, Ox4ed3aa62, Ox363f7706,

Oxlbfedf72, Ox429b023d, Ox37dOd724, OxdOOal248, OxdbOfead3, nx49flc09b,

Ox075372c9, Ox80991b7b, Ox25d479d8, Oxf6e8def7, Oxe3fe501a, Oxh6794c3b,

Ox976ceObd, Ox04c006ba, Oxcla94fb6, Ox409f60c4, Ox5e5c9ec2, Oxl96a2463,

Ox68fb6faf, Ox3e6c53b5, Oxl339b2eb, Ox3b52ec6f, Ox6dfc511f, Ox9b30952c,

Oxcc814544, Oxaf5ebd09, Oxbee3d004, Oxde334afd, Ox660f2807, Oxl92e4bb3,

OxcOcba857, Ox45c8740f, Oxd20b5f39, Oxb9d3fbdb, Ox5579cObd, Oxla60320a,

Oxd6alOOc6, Ox402c7279, Ox679f25fe, Oxfblfa3cc, Ox8ea5e9f8, Oxdb3222f8,

Ox3c7516df, Oxfd616bl5, Ox2f501ec8, Oxad0552ab, Ox323db5fa, Oxfd238760,

Ox53317b48, Ox3eOOdf82, Ox9e5c57bb, Oxca6f8caO, Oxla87562e, Oxdfl769db,

Oxd542a8f6, Ox287effc3, Oxac6732c6, Ox8c4f5573, Ox695b27bO, Oxbbca58c8,

Oxelffa35d, Oxb8f011aO, OxlOfa3d98, Oxfd2183b8, Ox4afcb56c, Ox2ddld35b,

Ox9a53e479, Oxb6f84565, Oxd28e49bc, Ox4bfb9790, Oxelddf2da, Oxa4cb7e33,

Ox62fbl341, Oxcee4c6e8, Oxef20cada, Ox36774cOi, Oxd07e9efe, Ox2bfllfb4,

Ox95dbda4d, Oxae909198, Oxeaad8e71, Ox6b93d5aO, Oxd08edldO, Oxafc725eO,

Ox8e3c5b2f, Ox8e7594b7, Ox8ff6e2fb, Oxf2122b64, Ox8888b812, Ox900df01c,

Ox4fad5eaO, Ox688fc31c, Oxdlcffl91, Oxb3a8clad, Ox2f2f2218, OxbeOel777,

Oxea752dfe, Ox8b021fal, Oxe5aOccOf, Oxb56f74e8, Oxl8acf3d6, Oxce89e299,

Oxb4a84feO, Oxfdl3eOb7, Ox7cc43b81, Oxd2ada8d9, Oxl65fa266, Ox80957705,

Ox93cc7314, Ox211al477, Oxe6ad2065, Ox77b5fa86, Oxc75442f5, Oxfb9d35cf,

OxebcdafOc, Ox7b3e89aO, Oxd6411bd3, Oxaele7e49, Ox00250e2d, Ox2071b35e,

Ox226800bb, Ox57b8eOaf, Ox2464369b, Oxf009b91e, Ox5563911d, Ox59dfa6aa,

Ox78cl4389, Oxd95a537f, Ox207d5ba2, Ox02e5b9c5, Ox83260376, Ox6295cfa9,

Oxllc81968, Ox4e734a41, Oxb3472dca, Ox7bl4a94a, Oxlb510052, Ox9a532915,

Oxd60f573f, Oxbc9bc6e4, Ox2b60a476, Ox81e67400, Ox08ba6fb5', Ox571be91f,

Oxf296ec6b, Ox2aOdd915, Oxb6636521, Oxe7b9f9b6, Oxff34052e, Oxc5855664,

Ox53b02d5d, Oxa99f8fal, Ox08ba4799, Ox6e85076al;

unsigned long ksl[] = (

Ox4b7a70e9, Oxb5b32944, Oxdb75092e, Oxc4192623, Oxad6ea6bO, Ox49a7df7d,

Ox9cee60b8, Ox8fedb266, Oxecaa8c71, Ox699al7ff, Ox5664526c, Oxc2bl9eel,

Oxl93602a5, Ox75094c29, Oxa0591340, Oxe4183a3e, Ox3f54989a, Ox5b429d65,

Ox6b8fe4d6, Ox99f73fd6, Oxald29c07, Oxefe830f5, Ox4d2d38e6, Oxf0255dcl,

Ox4cdd2086, Ox8470eb26, Ox6382e9c6, Ox021ecc5e, Ox09686b3f, Ox3ebaefc9,

Ox3c971814, Ox6b6a70al, Ox687f3584, Ox52aOe286, Oxb79c5305, Oxaa500737,

Ox3e07841c, Ox7fdeae5c, Ox8e7d44ec, Ox5716f2b8, Oxb03ada37, Oxf0500cOd,

Oxf01clf04, Ox0200b3ff, OxaeOcf51a, Ox3cb574b2, Ox25837a58, Oxdc0921bd,

Oxdl9113f9, Ox7ca92ff6, Ox94324773, Ox22f54701, Ox3ae5e581, Ox37c2dadc,

Oxc8b57634, Ox9af3dda7, Oxa9446146, OxOfd0030e, Oxecc8c73e, Oxa4751e41,

Oxe238cd99, Ox3beaOe2f, Ox3280bbal, Oxl83eb331, Ox4e548b38, Ox4f6db908,

Ox6f420d03, Oxf60a04bf, Ox2cb81290, Ox24977c79, Ox5679b072, Oxbcaf89af,

Oxde9a771f, Oxd9930810, Oxb38bael2, Oxdccf3f2e, Ox5512721f, Ox2e6b7124,

Ox501adde6, Ox9f84cd87, Ox7a584718, Ox7408dal7, Oxbc9f9abc, Oxe94b7d8c,

Oxec7aec3a, Oxdb851dfa, Ox63094366, Oxc464c3d2, Oxeflcl847, Ox3215d908,

Oxdd433b37, Ox24c2bal6, Oxl2al4d43, Ox2a65c451, Ox50940002, Oxl33ae4dd,

Ox71dff89e, Oxl0314e55, Ox81ac77d6, Ox5flll99b, Ox043556fl, Oxd7a3c76b,

Ox3clll83b, Ox5924a509, Oxf28fe6ed, Ox97flfbfa, Ox9ebabf2c, Oxlel53c6e,

Ox86e34570, Oxeae96fbl, Ox860e5eOa, Ox5a3e2ab3, Ox771fe71c, Ox4e3d06fa,

Ox2965dcb9, Ox99e71dOf, Ox803e89d6, Ox5266c825, Ox2e4cc978, Ox9clOb36a,

Oxc6150eba, Ox94e2ea78, Oxa5fc3c53, OxleOa2df4, Oxf2f74ea7, Ox361d2b3d,

Oxl939260f, Oxl9c27960, Ox5223a708, Oxf71312b6, Oxebadfe6e, Oxeac31f66,

Oxe3bc4595, Oxa67bc883, Oxbl7f37dl, Ox018cff28, Oxc332ddef, Oxbe6c5aa5,

Ox65582185, Ox68ab9802, Oxeecea50f, Oxdb2f953b, Ox2aef7dad, Ox5b6e2f84,

Oxl521b628, Ox29076170, Oxecdd4775, Ox619fl510, Oxl3cca830, Oxeb61bd96,

Ox0334fele, Oxaa0363cf, Oxb5735c90, Ox4c70a239, Oxd59e9eOb, Oxcbaadel4,

Oxeecc86bc, Ox60622ca7, Ox9cab5cab, Oxb2f3846e, Ox648bleaf, Oxl9bdfOca,

Oxa02369b9, Ox655abb50, Ox40685a32, Ox3c2ab4b3, Ox319ee9d5, Oxc021b8f7,

Ox9b540bl9, Ox875fa099, Ox95f7997e, Ox623d7da8, Oxf837889a, Ox97e32d7/,

Oxlled935f, Oxl6681281, OxOe358829, Oxc7e61fd6, Ox96dedfal, Ox7858ba99,

Ox57f584a5, Oxlb227263, Ox9b83c3ff, Oxlac24696, Oxcdb30aeb, Ox532e3054,

Ox8fd948e4, Ox6dbc3128, Ox58ebf2ef, Ox34c6ffea, Oxfe28ed61, Oxee7c3c73,

Ox5d4al4d9, Oxe864b7e3, Ox42105dl4, Ox203el3eO, Ox45eee2b6, Oxa3aaabea,

Oxdb6c4fl5, Oxfacb4fdO, Oxc742f442, Oxef6abbb5, Ox654f3bld, Ox41cd2105,

Oxd81e799e, Ox86854dc7, Oxe44b476a, Ox3d816250, Oxcf62alf2, Ox5b8d2646,

OxfC8883aO, Oxclc7b6a3, Ox7fl524c3, Ox69cb7492, Ox47848aOb, Ox5692b285,

Ox095bbfOO, Oxadl9489d, Oxl462bl74, Ox23820eOO, Ox58428d2a, OxOc55f5ea,

Oxldadf43e, Ox233f7061, Ox3372f092, Ox8d937e41, Oxd65fecfl, Ox6c223bdb,

0x7cde3759, Oxcbee7460, Ox4085f2a7, Oxce77326e, Oxa6078084, Oxl9f8509e,

0xe8efd855, Ox61d99735, Oxa969a7aa, Oxc50c06c2, Ox5a04abfc, Ox800bcadc,

0x9e447a2e, Oxc3453484, Oxfdd56705, OxOele9ec9, Oxdb73dbd3, Oxl05588cd,

0x675fda79, Oxe3674340, Oxc5c43465, Ox713e38d8, Ox3d28f89e, Oxfl6dff20,

0xl53e21e7, Ox8fb03d4a, Oxe6e39f2b, Oxdb83adf71;

unsigned long ks2[] = {

0xe93d5a68, Ox948140f7, Oxf64c261c, Ox94692934, Ox411520f7, Ox7602d4f7,

0xbcf46b2e, Oxd4a20068, Oxd4082471, Ox3320f46a, Ox43b/d4b7, Ox500061af,

Oxle39f62e, Ox97244546, Oxl4214f74, Oxbf8b8840, Ox4d95fcld, Ox96b591af,

Ox70f4ddd3, Ox65a02f45, Oxbfbc09ec, Ox03bd9785, Ox7fac6ddO, Ox31cb8504,

Ox96eb27b3, Ox55fd3941, Oxda2547e6, OxabcaOa9a, Ox28507825, Ox530429f4,

OxOa2c86da, Oxe9b66dfb, Ox68dcl462, Oxd7486900, Ox680ecOa4, Ox27al8dee,

Ox4f3ffea2, Oxe887ad8c, Oxb58ce006, Ox7af4d6b6, Oxaacele7c, Oxd3375fec,

Oxce78a399, Ox406b2a42, Ox20fe9e35, Oxd9f385b9, Oxee39d7ab, Ox3bl24e8b,

Oxldc9faf7, Ox4b6dl856, Ox26a36631, Oxeae397b2, Ox3a6efa74, Oxdd5b4332,

Ox6841e7f7, Oxca7820fb, OxfbOaf54e, Oxd8feb397, Ox454056ac, Oxba489527,

Ox55533a3a, Ox20838d87, Oxfe6ba9b7, Oxd096954b, Ox55a867bc, Oxall59a58,

Oxcca92963, Ox99eldb33, Oxa62a4a56, Ox3f3125f9, Ox5ef47elc, Ox9029317c,

Oxfdf8e802, Ox04272f70, Ox80bbl55c, Ox05282ce3, Ox95cll548, Oxe4c66d22,

Ox48cll33f, Oxc70f86dc, Ox07f9c9ee, Ox41041fOf, Ox404779a4, Ox5d886el7,

Ox325f51eb, Oxd59bcOdl, Oxf2bccl8f, Ox41113564, Ox257b7834, Ox602a9c60,

Oxdff8e8a3, Oxlf636clb, OxOel2b4c2, Ox02el329e, Oxaf664fdl, Oxcadl8115,

Ox6b2395eO, Ox333e92el, Ox3b240b62, Oxeebeb922, Ox85b2a20e, Oxe6baOd99,

Oxde720c8c, Ox2da2f728, Oxd0127845, Ox95b794fd, Ox647d0862, Oxe7ccf5fO,

Ox5449a36f, Ox877d48fa, Oxc39dfd27, Oxf33e8dle, OxOa476341, Ox992eff74,

Ox3a6f6eab, Oxf4f8fd3/, Oxa812dc60, Oxalebddf8, Ox991bel4c, Oxdb6e6bOd,

Oxc67b5510, Ox6d672c37, Ox2765d43b, OxdcdOe804, Oxfl290dc7, OxccOOffa3,

Oxb5390f92, Ox690fedOb, Ox667b9ffb, Oxcedb7d9c, Oxa091cfOb, Oxd9155ea3,

Oxbbl32f88, Ox515bad24, Ox7b9479bf, Ox763bd6eb, Ox37392eb3, Oxccll5979,

Ox8026e297, Oxf42e312d, Ox6842ada7, Oxc66a2b3b, Oxl2754ccc, Ox782efllc,

Ox6al24237, Oxb79251e7, Ox06albbe6, Ox4bfb6350, Oxla6bl018, Oxllcaedfa,

Ox3d25bdd8, Oxe2elc3c9, Ox44421659, OxOal21386, Oxd90cec6e, Oxd5abea2a,

Ox64af6/4e, Oxda86a85f, Oxbebfe988, Ox64e4c3fe, Ox9dbc8057, OxfOf7c086,

Ox60787bf8, Ox6003604d, Oxdlfd8346, Oxf6381fbO, Ox7745ae04, Oxd736fccc,

Ox83426b33, Oxf01eab71, Oxb0804187, Ox3c005e5f, Ox77a057be, Oxbde8ae24,

Ox55464299, Oxbf582e61, Ox4e58f48f, Oxf2ddfda2, Oxf4/4ef38, Ox8789bdc2,

Ox5366f9c3, Oxc8b38e74, Oxb475f255, Ox46fcd9b9, Ox7aeb2661, Ox8blddf84,

Ox846aOe79, Ox915f95e2, Ox466e598e, Ox20b45770, Ox8cd55591, Oxc902de4c,

Oxb90bacel, Oxbb8205dO, Oxlla86248, Ox7574a99e, Oxb77fl9b6, OxeOa9dc09,

Ox662d09al, Oxc4324633, Oxe85alf02, Ox09fObe8c, Ox4a99a025, Oxld6efelO,

Oxlab93dld, OxOba5a4df, Oxal86f20f, Ox2868fl69, Oxdcb7da83, Ox573906fe,

Oxale2ce9b, Ox4fcd7f52, Ox50115eOi, Oxa70683fa, Oxa002b5c4, OxOde6d027,

Ox9af88c27, Ox773f8641, Oxc3604c06, Ox61a806b5, Oxf0177a28, *xcOf586eO,

Ox006058aa, Ox30dc7d62, Oxlle69ed/, Ox2338ea63, Ox53c2dd94, Oxc2c21634,

Oxbbcbee56, Ox90bcb6de, Oxebfc/dal, Oxce591d76, Ox6f05e409, Ox4b7c0188,

Ox39720a3d, Ox7c927c24, Ox86e3725f, Ox724d9db9, Oxlacl5bb4, Oxd39eb8fc,

Oxed545578, Ox08fca5b5, Oxd83d7cd3, Ox4dadOfc4, Oxle50ef5e, Oxbl61e6f8,

Oxa28514d9, Ox6c51133c, Ox6fd5c7e7, Ox56el4ec4, Ox362abfce, Oxddc6c837,

Oxd79a3234, Ox92638212, Ox670efa8e, Ox406000eO};

unsigned long ks3[] = {

Ox3a39ce37, Oxd3faf5cf, Oxabc27737, Ox5ac52dlb, Ox5cb0679e, Ox4fa33742,

Oxd3822740, Ox99bc9bbe, Oxd5118e9d, OxbfOf7315, Oxd62dlc7e, Oxc700c47b,

Oxb78clb6b, Ox21al9045, Oxb26eblbe, Ox6a366eb4, Ox5748ab2f, Oxbc946e79,

Oxc6a376d2, Ox6549c2c8, Ox530ff8ee, Ox468dde7d, Oxd5730ald, Ox4cd04dc6,

Ox2939bbdb, Oxa9ba4650, Oxac9526e8, Oxbe5ee304, Oxalfad5fO, Ox6a2d519a,

Ox63ef8ce2, Ox9a86ee22, Oxc089c2b8, Ox43242ef6, Oxa51e03aa, Ox9cf2dOa4,

Ox83c061ba, Ox9be96a4d, Ox8fe51550, Oxba645bd6, Ox2826a2f9, Oxa73a3ael,

Ox4ba99586, Oxef5562e9, Oxc72fefd3, Oxf752f7da, Ox3f046f69, Ox77faOa59,

Ox80e4a915, Ox87b08601, Ox9b09e6ad, Ox3b3ee593, Oxe990fd5a, Ox9e34d797,

Ox2cfOb7d9, Ox022b8b51, Ox96d5ac3a, Ox017da67d, Oxdlcf3ed6, Ox7c7d2d28,

Oxlf9f25cf, Oxadf2b89b, Ox5ad6b472, Ox5a88f54c, Oxe029ac71, Oxe019a5e6,

Ox47bOacfd, Oxed93fa9b, Oxe8d3c48d, Ox283b57cc, Oxf8d56629, Ox79132e28,

Ox785f0191, Oxed756055, Oxf7960e44, Oxe3d35e8c, Oxl5056dd4, Ox88f46dba,

Ox03al6125, Ox0564fObd, Oxc3eb9el5, Ox3c9057a2, Ox97271aec, Oxa93a072a,

Oxlb3f6d9b, Oxle6321f5, Oxf59c66fb, Ox26dcf319, Ox7533d928, Oxbl55fdf5,

Ox03563482, Ox8aba3cbb, Ox28517711, Oxc20ad9f8, Oxabcc5167, Oxccad925f,

Ox4de81751, Ox3830dc8e, Ox379d5862, Ox9320f991, Oxea7aaOc2, Oxfb3e7bce,

Ox5121ce64, Ox774fbe32, Oxa8b6e37e, Oxc3293d46, Ox48de5369, Ox6413e680,

Oxa2ae0810, Oxdd6db224, Ox69852dfd, Ox09072166, Oxb39a460a, Ox6445cOdd,

Ox586cdecf, Oxlc20c8ae, Ox5bbef7dd, Oxlb588d40, Oxccd2017f, Ox6bb4e3bb,

Oxdda26a7e, Ox3a59ff45, Ox3e350a44, Oxbcb4cdd5, Ox72eacea8, Oxfa6484bb,

Ox8d6612ae, Oxbf3c6f47, Oxd29be463, Ox542f5d9e, Oxaec2771b, Oxf64e6370,

Ox740eOd8d, Oxe75bl357, Oxf8721671, Oxaf537d5d, Ox4040cb08, Ox4eb4e2cc,

Ox34d2466a, Ox0115af84, Oxelb00428, Ox95983ald, Ox06b89fb4, Oxce6ea048,

Ox6f3f3b82, Ox3520ab82, Ox011ald4b, Ox277227f8, Ox611560bl, Oxe7933fdc,

Oxbb3a792b, Ox344525bd, Oxa08839el, Ox51ce794b, Ox2f32c9b7, Oxa01fbac9,

Oxe01cc87e, Oxbcc7dlf6, Oxcf0111c3, Oxale8aac7, Oxla908749, Oxd44fbd9a,

OxdOdadecb, Oxd50ada38, Ox0339c32a, Oxc6913667, Ox8df9317c, OxeObl2b4f,

Oxf79e59b7, Ox43f5bb3a, Oxf2d519ff, Ox27d9459c, Oxbf97222c, Oxl5e6fc2a,

OxOf91fc71, Ox9b941525, Oxfae59361, Oxceb69ceb, Oxc2a86459, Oxl2baa8dl,

Oxb6cl075e, Oxe3056aOc, OxlOd25065, Oxcb03a442, OxeOec6eOe, Oxl698db3b,

Ox4c98aObe, Ox3278e964, Ox9flf9532, OxeOd392df, Oxd3a0342b, Ox8971f21e,

OxlbOa7441, Ox4ba3348c, Oxc5be7120, Oxc37632d8, Oxdf359f8d, Ox9b992f2e,

Oxe60b6f47, OxOfe3flld, Oxe54cda54, Oxledad891, Oxce6279cf, Oxcd3e7e6f,

Oxl618bl66, Oxfd2cld05, Ox848fd2c5, Oxf6fb2299, Oxf523f357, Oxa6327623,

Ox93a83531, Ox56cccd02, Oxacf08162, Ox5a75ebb5, Ox6el63697, Ox88d273cc,

Oxde966292, Ox81b949dO, Ox4c50901b, Ox71c65614, Oxe6c6c7bd, Ox327al40a,

Ox45eld006, Oxc3f27b9a, Oxc9aa53fd, Ox62a80fOO, Oxbb25bfe2, Ox35bdd2f6,

Ox71126905, Oxb2040222, Oxb6cbcf7c, Oxcd769c2b, Ox53113ecO, Oxl640e3d3,

Ox38abbd60, Ox2547adfO, Oxba38209c, Oxf746ce76, Ox77afalc5, Ox20756060,

Ox85cbfe4e, Ox8ae88dd8, Ox7aaaf9bO, Ox4cf9aa7e, Oxl948c25c, Ox02fb8a8c,

Ox01c36ae4, Oxd6ebelf9, Ox90d4f869, Oxa65cdeaO, Ox3f09252d, Oxc208e69f,

Oxb74e6132, Oxce77e25b, Ox578fdfe3, Ox3ac372e6);

/* initialize s-b0xes without file read. */

for(i=0; i <256; i ++) {

c>S[0][i] = ksO[i];

c->S[l][i] = ksl[i];

c>S[2][i] = ks2[i];

c->S[3][i] = ks3[i];

j = 0;

for (i = 0; i < N + 2; ++i) {

data = OxOOOOOOOO;

for (k = 0; k < 4; ++k) {

data = (data << 8) 1 key[j];

j = j + i;

if (j >= keybytes) {

j = 0;

c>p[i] = c>P[i] data;

datal = OxOOOOOOOO;

datar = OxOOOOOOOO;

blowfish_encipher(c,&datal, &datar);

c - >P[ i 1 = data i;

c>P[i + 1] = datar;

for (i = 0; i < 4; ++i) {

for (j = 0; j < 256; j += 2) {

blowfish_encipher(c,&datal, &datar);

c >S [ i ] [j ] = data i;

c>S[i][j + 1] = datar;

void blf key(blf ctx *c, char *k, int len){

lni ti a i i zeBi owfi sh (c, k, i en);

void bif_enc(blf_ctx *c, unsigned long *data, int blocks){

unsigned long *d;

int i;

d = d a t a;

for (i =0; i <bl oc ks; i ++) {

b i owfi s h_enc i phe r (c, d, d+l);

d += 2;

void blf dec(blf_ctx *c, unsigned long *data, int blocks){

unsigned long *d;

int i;

d = d a ta;

fo r (i =0; i <bl oc ks; i ++) {

B i omfi s h_dec i phe r (c, d, d+l);

d += 2;

v 0 i d ma i n (v o i d) {

blfctx c;

char key[]="AAAAA";

unsigned long data[10];

int i;

for (i=0; i <10; i ++) data [ i 1 = i;

bl fkey (&c, key, 5);

b i fe n c (&c, d a ta, 5);

bl f_dec (&c, data, i);

bl f_dec (&c, data+2, 4);

for(i=0;i<10;i+=2) printf("Block %01d decrypts to: %081x %081x.\n",

i /2, data [ i ], data [ i +l ]);

3-Way

#define STRT_E OxObOb /* round constant of first encryption round */

#define STRT_D Oxblbl /* round constant of first decryption round */

#define NMBR 11 /* number of rounds is 11 */

typedef unsigned long int mord32;

/* the program only works correctly if long = 32bits */

typedef unsigned long u4;

typedef unsigned char ul;

typedef struct {

u4 k[3],ki[3], ercon[NMBR+l],drcon[NMBR+l];

i twyctx;

/* Note: encrypt and decrypt expect full blocks-padding blocks is

caller's responsibility. All bulk encryption is done in

ECB mode by these calls. Other modes may be added easily

enough. */

/* destroy: Context. */

/* Scrub context of all sensitive data. */

void t<<ydestroy(tmy_ctx *);

/* encrypt: Context, ptr to data block, # of blocks. */

void twy_enc(twy_ctx *, u4 *, int);

/* decrypt: Context, ptr to data block, # of blocks. */

void twydecttwyctx *, u4 *, int);

/* key: Context, ptr to key data. */

void twy_key(twy_ctx *, u4 *);

/ * Ace 0 D E - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *

/4; End of AC code prototypes and structures. *

', * * /

void mu(word32 *a) /* inverts the order of the bits of a */

int i;

lrtord32 b[3];

b[o] = b[l] = bl*2] = 0;

for(i=0; K32; i++)

b[o] <<= i; b[l] <<= i; b[2] <<= i {

if(a[0]&l) b[2] |= i;

if(a[l]&l) b[l] |= i;

if(a[2]&l) b[0] |= i;

a[0] >>= i; a[l] >>= i; a[2] >>= i;

a[o] = b[0]; a[l] = b[l]; a[2] = b[2];

void gamma(word32 *a) /* the nonlinear step */

word32 b[3];

b[0] = a[0] (a[l]l(-a[2]));

b[l] = a[l] (a[2]l(-a[0]));

b[2] = a[2] (a[0]l(-a[l]));

a[0] = b[0]; a[l] = b[l]; a[2] = b[2];

void thetalword32 *a) /* the linear step */

word32 b[3];

b[o] = a[0] * (a[0]>>16) (a[l]<<16) (a[l]>>16) " (a[2]<<16) *

(a[l]>>24) (a[2]<<8) (a[2]>>8) (a[0]<<24)

(a[2]>>16) (a[0]<<16) (a[2]>>24) (a[0]<<8);

b[l] = a[l] " (a[l]>>16) " (a[2]<<16) * (a[2]>>16) * (a[0]<<16) *

(al*2]>>24) (a[0]<<8) (a[0]>>8) (a[l]<<24)

(a[o]>>16) (a[l]<<16) (a[0]>>24) (a[l]<<8);

b[2] = a[2] (a[2]>>16) " (a[0]<<16) * (a[0]>>16) * (a[l]<<16)

(a[o]>>24) (a[l]<<8) (a[l]>>8) * (a[2]<<24) *

(a[l]>>16) * (a[2]<<16) * (a[l]>>24) * (a[2]<<8);

a[0] = b[0]; a[l] = b[l]; a[2] = b[2];

void piKword32 *a)

a[0] = (a[0]>>10) (a[0]<<22);

a[2] = (a[2]<<l) (a[2]>>31);

void pi_2(word32 *a)

a[0] = (a[0]<<l) (a[0]>>31);

a[2] = (a[2]>>10) (a[2]<<22);

void rho(word32 *a) /* the round function */

theta(a);

piKa);

gamma (a);

pi_2(a);

void rndcon_gen(word32 strt.word32 *rtab)

{ /* generates the round constants */

int i;

for(i=0; K=NMBR; i++)

rtab[i] = strt;

strt <<= i;

iff strt&OxlOOOO) strt "= OxilOii;

/* Modified slightly to fit the caller's needs. */

void encrypt(twy_ctx *c, word32 *a)

char i;

for(i=0; KNMBR; i++)

a[0] *= c>k[0] (c->ercon[i]<<16);

a[l] *= c>k[l];

a[2] *= c->k[2] c->ercon[i];

r h 0 (a);

a[0] *= c>k[0] (c>ercon[NMBR]<<16);

a[l] *= c>k[l];

a[2] "= c>k[2] c>ercon[NMBR];

theta(a);

/* Modified slightly to meet caller's needs. */

void decrypt(twy_ctx *c, word32 *a)

char i;

mu (a);

for(i=0; KNMBR; i++)

a[0] *= c->ki[0] (c->drcon[i]<<16);

a[l] *= c>ki[l];

a[2] *= c>ki[2] c->drcon[i];

r ho (a);

a[0] "= C>ki[0] (c->drcon[NMBR]<<16);

a[l] *= C>ki[l];

a[2] *= C->ki[2] c>drcon[NMBR];

thetaCa);

inn (a);

void twy_key(twy_ctx *c, u4 *key)l

c - >ki [0] == c - >k [0] = key[0];

c>ki[l] = c>k[l] = key[l];

c->ki[2] = c>k[2] = key[2];

t h et a (c > k i);

niu (c - > k i);

rn dco n__gen (STRT_E, c - > e rcon);

rn d c on_gen (STRT_D, c - >d r c on);

/* Encrypt in ECB mode. */

void twyencttwyctx *c, u4 *data, int blkcnt){

u4 *d;

int i;

d = d a ta;

for(i=0;i<blkcnt;i++) {

e n c ry pt (c, d);

d +=3;

/* Decrypt in ECB mode. */

void twy_dec(twyctx *c, u4 *data, int blkcnt){

u4 *d;

int i;

d = d a t a;

for (i=0; i <bl kcnt; i++) {

d e c ry pt (c, d);

d+=3;

/* Scrub sensitive values from memory before deallocating. */

void twy_destroy(twy_ctx *c){

int i;

for(i=0;i<3;i++) c>k[i] = c>ki[i] = 0;

void printvec(char *chrs, word32 *d){

Printf("%20s: %081x %081x %081x \n",chrs,d[2],d[l],d[0]);

ma i n ()

twy_ctx gc;

word32 a[9],k[3];

int i;

/* Test vector i. */

k [0]=k[ i ]=k[2]=0;

a [0]=a [ i ]=a [2]=l;

t>>y_key (&gc, k);

p r int f (" ********** \ n ");

printvecC'KEY = ".k);

printvecC'PLAiN = ".a);

encrypt(&gc,a);

printvecC'CiPHER = ".a);

/* Test vector 2. */

k[0]=6; k[ i ]=5; k[2]=4;

a [0]=3; a [ i |=2; a [2 ]=l;

twy_key (&gc, k);

p r int f (" ********** \ n ");

printvecC'KEY = ".k);

pr intvec (" PLA i N = ", a);

enc rypt (&gc, a);

printvec ("C i PHER = ", a);

/* Test vector 3. */

k[2]=Oxbcdef012; k[ i |=Ox456789ab; k[0]=Oxdef01234;

a [2]=Ox01234567; a [ i |=Ox9abcdefO; a [0]=Ox23456789;

twykey (&gc, k);

p r int f (" ********** \ n ");

printvecC'KEY = ".k);

printvecC'PLAiN = ".a);

enc rypt (&gc, a);

printvec ("C i PHER = ", a);

/* Test vector 4. */

k [2]=Oxcab920cd; k[ i |=Oxd6144138; k [0]=Oxd2f05b5e;

a [2]=Oxad21ecf7; a [ i ]=Ox83ae9dc4; a [0]=Ox4059c76e;

twy_key (&gc, k);

p r int f (" ********** \ n ");

printvecC'KEY = ".k);

printvecC'PLAiN = ".a);

enc rypt (&gc, a);

printvec("C i PHER = ", a);

/* TEST VALUES

key: OOOOOOOO OOOOOOOO OOOOOOOO

plaintext: OOOOOOOi OOOOOOOi OOOOOOO{

ciphertext: ad21ecf7 83ae9dc4 4059c76e

key: 00000004 00000005 00000006

plaintext: OOOOOOOi 00000002 00000003

ciphertext: cab920cd d6144138 d2f05b5e

key: bcdef012 456789ab def01234

plaintext: 01234567 9abcdefO 23456789

ciphertext: 7cdb76b2 9cdddb6d Oaa55dbb

key: Cab920cd d6144138 d2f05b5e

plaintext: ad21ecf7 83ae9dc4 4059c76e

ciphertext: 15bl55ed 6bl3fl7c 478ea871

/* Enc/dec test: */

for(i=0;i<9;i++) a[i]=};

twy_en c (&g c, a, 3);

for(i=0;i<9;i+=3) printfC'Block %01d encrypts to %081x %081x %081x\n",

i /3, a[i 1, a [i+l 1, a [ i+2]);

tmy_de c (&g c, a, 2);

twy_de c (&g c, a+6, i);

for(i=0;i<9;i+=3) printfC'Block %01d decrypts to %081x %081x %081x\n",

i /3, a [1 ], a [i+l 1, a [ i+2]);

RC5

#include <stdio.h>

/* An RC5 context needs to know how many rounds it has, and its subkeys. */

typedef struct {

u4 *x k;

int n r;

i rc5_ctx;

/* hhere possible, these should be replaced with actual rotate instructions.

For Turbo C++, this is done with irotl and irotr. */

#defineROTL32(X,C) (((X)<<(C))l((X)>>(32-(C))))

#defineROTR32(X,C) (((X)>>(C))l((X)<<(32(C))))

/* Function prototypes for dealing with RC5 basic operations. */

void rc5init(rc5_ctx * int);

void rc5_destroy(rc5_ctx *);

void rc5key(rc5ctx * ul * int);

void rc5_encrypt(rc5_ctx * u4 * int);

void rc5decrypt(rc5_ctx * u4 * int);

/* Function implementations for RC5. */

/* Scrub out all sensitive values. */

void rc5_destroy(rc5_ctx *c){

int i;

for(i=0;i<(c>nr)*2+2;i++) c>xk[i]=0;

f ree (c - > x k);

/* Allocate memory for rc5 context's xk and such. */

void rc5_init(rc5_ctx *c, int rounds){

c->nr = rounds;

c>xk = (u4 *) malloc(4*(rounds*2+2));

void rc5_encrypt(rc5_ctx *c, u4 *data, int blocks){

u4 *d,*sk;

int h, i, rc;

d = d a t a;

sk = (c->xk)+2;

for (h=0; h<bl oc ks; h++) {

d[0] += c>xk[0];

d[l] += c->xk[l];

for (i=0; i <c - >nr*2; i+=2) {

d[0] *= d[l];

rc = d[l] & 31;

d[0] = ROTL32(d[0],rc);

d[0] += sk[i];

d[l] *= d[0];

rc = d[0] & 31;

d[l] = ROTL32(d[l],rc);

d[l] += sk[i+l];

/*printf("Round %03d: %081x %081x sk= %081x %081x\n",i/2,

d[0], d[l 1, sk[i 1, sk[ i+l 1);*/

d+=2;

void rc5_decrypt(rc5_ctx *c, u4 *data, int blocks)*

u4 *d,*sk;

int h, i, rc;

d = d a ta;

sk = (c>xk)+2;

for (h=0; h<bl ocks; h++) {

for (i =c >nr*2 - 2; i >=0; i -=2) {

/*printf("Round %03d: %081x %081x sk: %081x %081x\n",

i /2, d[0],d[l], sk[i ], sk[i+l]); */

d[l] -= sk[i+l];

rc = d[0] & 31;

d[l] = ROTR32(d[l],rc);

d[l] *= d[0];

d[0] = sk[i];

rc = d[l] & 31;

d[0] = ROTR32(d[0],rc);

d[0] *= d[l];

d[0] = c>xk[0];

d[l] = c>xk[l];

d+=2;

void rc5_key(rc5_ctx *c, ul *key, int keylen){

u4 *pk,A,B; /* padded key */

int xk_len, pk_len, i, nunl_steps,rc;

ul *cp;

xk_len = c>nr*2 + 2;

pklen = keylen/4;

if((keylen%4)!=0) pk_len += };

p k = (u4 *) ma i i oc (pk_l en * 4);

if(pk==NULL) {

printfC'An error occurred!*'');

ex i t (- i);

/* initialize pk this should work on intel machines, anyway.... */

for(i=0;i<pklen;i++) pk[i]=0;

cp = (ul *)pk;

for(i=0;i<keylen;i++) cp[i]=key[i];

/* initialize xk. */

c>xk[0] = Oxb7el5163; /* P32 */

for(i=l:i<xk_len;i++) c->xk[i] = c>xk[i-1] + Ox9e3779b9; /* 032 */

/* TESTiNG */

A = B = 0;

for(i=0;i<xk_len;i++) {

A = A + c - >xk [ i ];

B = 6 c >xk [ i 1;

/* Expand key into xk. */

if(pk_len>xk_len) numsteps = 3*pk_len;else nuni_steps = 3*xk_len;

A = B = 0;

fo r (i =0; i < n um_s te ps; i ++) {

A = c>xk[i%xk_len] = ROTL32(c->xk[i%xk_len] + A + B.3);

rc = (A+B) & 31;

B = pk[i%pk_len] = ROTL32(pk[i%pk_len] + A + B,rc);