manuth/HWBTutorials
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity
HWBTutorials/dpa-attack/dpa_bi-hwb_student5.nb

665 lines
26 KiB
Mathematica
Raw Normal View History

Add DPA Attack task files
2023-12-19 18:19:01 +00:00
(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 7.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 25847, 655]
NotebookOptionsPosition[ 24625, 617]
NotebookOutlinePosition[ 25059, 635]
CellTagsIndexPosition[ 25016, 632]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
RowBox[{"SetDirectory", "[",
RowBox[{"NotebookDirectory", "[", "]"}], "]"}]], "Input"],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{"read", " ", "plaintext", " ", "inputs"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"inputs", "=",
RowBox[{"StringSplit", "[",
RowBox[{"ReadList", "[",
RowBox[{"\"\<plaintext.txt\>\"", ",", "String"}], "]"}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"is", "=",
RowBox[{
RowBox[{
RowBox[{"StringTrim", "[",
RowBox[{"#", ",", "\"\<0x\>\""}], "]"}], "&"}], "/@", "inputs"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"inputs", "=",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"FromDigits", "[",
RowBox[{"#", ",", "16"}], "]"}], "&"}], ",", "is", ",",
RowBox[{"{", "2", "}"}]}], "]"}]}], ";"}]}]}]], "Input",
CellChangeTimes->{{3.513065164153782*^9, 3.513065164701598*^9}, {
3.51306956390343*^9, 3.513069593104686*^9}, {3.5130699021288524`*^9,
3.5130699027752953`*^9}, {3.513072041709684*^9, 3.5130720429273796`*^9}, {
3.6047750649215713`*^9, 3.6047750684215765`*^9}, {3.6047751308016634`*^9,
3.6047751699517183`*^9}, {3.604775205431768*^9, 3.604775209171773*^9}, {
3.6047753763720074`*^9, 3.604775378742011*^9}, {3.604775445462104*^9,
3.6047755065721893`*^9}, {3.60477563539237*^9, 3.604775664782411*^9}, {
3.604775717942486*^9, 3.6047757458425245`*^9}, {3.604775813222619*^9,
3.6047760178839054`*^9}, 3.604776217714185*^9, {3.611654553014601*^9,
3.611654555544605*^9}, 3.6576111564330072`*^9, {3.7204347847718115`*^9,
3.7204347932733574`*^9}}],
Cell[BoxData[{
RowBox[{"Length", "[", "inputs", "]"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"inputs", "[",
RowBox[{"[",
RowBox[{"1", ",", "All"}], "]"}], "]"}], "//",
RowBox[{
RowBox[{"BaseForm", "[",
RowBox[{"#", ",", "16"}], "]"}], "&"}], " ",
RowBox[{"(*",
RowBox[{"debug", ":", " ",
RowBox[{"print", " ", "the", " ", "first", " ", "block"}]}],
"*)"}]}]}], "Input",
CellChangeTimes->{{3.60477614246408*^9, 3.604776148824089*^9}, {
3.7204352933027515`*^9, 3.720435305065805*^9}}],
Cell[BoxData[
RowBox[{"recLen", "=",
RowBox[{
RowBox[{"Import", "[",
RowBox[{"\"\<traceLength.txt\>\"", ",", "\"\<CSV\>\""}], "]"}], "[",
RowBox[{"[",
RowBox[{"1", ",", "1"}], "]"}], "]"}],
RowBox[{"(*",
RowBox[{
"read", " ", "length", " ", "of", " ", "one", " ", "complete", " ",
"trace"}], "*)"}]}]], "Input",
CellChangeTimes->{{3.6047725781640882`*^9, 3.6047726245241537`*^9}, {
3.6047728509444704`*^9, 3.6047728549544764`*^9}, {3.6047728903545256`*^9,
3.604772892964529*^9}, {3.60477367922663*^9, 3.6047736850566387`*^9}, {
3.6047764424945*^9, 3.6047764426545*^9}, {3.611654395614381*^9,
3.6116544204244156`*^9}, {3.6116544546444635`*^9,
3.6116545073645372`*^9}, {3.611656982271825*^9, 3.6116569830418262`*^9},
3.657611148657194*^9, 3.6576112471096745`*^9, {3.7204334339389772`*^9,
3.720433436988076*^9}, {3.720433614531517*^9, 3.7204336175115733`*^9},
3.720434584600828*^9, {3.7204348191751294`*^9, 3.7204348743819485`*^9}, {
3.7204349530964828`*^9, 3.7204349543014317`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"(*", " ",
RowBox[{
RowBox[{
"prepare", " ", "to", " ", "read", " ", "parts", " ", "of", " ", "traces",
"\[IndentingNewLine]", "start"}], " ", "=", " ",
RowBox[{
RowBox[{
"number", " ", "of", " ", "samples", " ", "to", " ", "skip", " ", "at",
" ", "the", " ", "start", " ", "of", " ", "each", " ", "trace",
"\[IndentingNewLine]", "len"}], " ", "=", " ",
RowBox[{
RowBox[{
"number", " ", "of", " ", "samples", " ", "to", " ", "keep", " ",
"from", " ", "each", " ", "trace", "\[IndentingNewLine]", "count"}],
" ", "=", " ",
RowBox[{
"number", " ", "of", " ", "traces", " ", "to", " ", "read"}]}]}]}], " ",
"*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"start", "=", "0"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"len", "=", "recLen"}], ";"}],
RowBox[{"(*",
RowBox[{
"CHANGE", " ", "to", " ", "the", " ", "length", " ", "of", " ", "the",
" ", "first", " ", "round"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"count", "=", "10"}], ";",
RowBox[{"(*",
RowBox[{
RowBox[{"CHANGE", " ", "to", " ",
RowBox[{"Length", "[", "inputs", "]"}]}], ";", " ",
RowBox[{"for", " ", "the", " ", "attack"}]}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"type", "=", "\"\<Byte\>\""}]}]}]}]], "Input",
CellChangeTimes->{{3.6047725781640882`*^9, 3.6047726245241537`*^9}, {
3.6047728509444704`*^9, 3.6047728549544764`*^9}, {3.6047728903545256`*^9,
3.604772892964529*^9}, {3.60477367922663*^9, 3.6047736850566387`*^9}, {
3.6047764424945*^9, 3.6047764426545*^9}, {3.611654395614381*^9,
3.6116544204244156`*^9}, {3.6116544546444635`*^9,
3.6116545073645372`*^9}, {3.611656982271825*^9, 3.6116569830418262`*^9},
3.657611148657194*^9, 3.6576112471096745`*^9, {3.7204334339389772`*^9,
3.720433436988076*^9}, {3.720433614531517*^9, 3.7204336175115733`*^9},
3.720434584600828*^9, {3.7204348191751294`*^9, 3.7204350410331383`*^9}, {
3.720435726616678*^9, 3.720435735879939*^9}, {3.7204393408982005`*^9,
3.720439433030507*^9}, 3.72043946895192*^9}],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"t", "=",
RowBox[{"ConstantArray", "[",
RowBox[{"0.", ",",
RowBox[{"{",
RowBox[{"count", ",", "len"}], "}"}]}], "]"}]}], ";"}], " ",
RowBox[{"(*",
RowBox[{"prepare", " ", "empty", " ", "matrix"}], "*)"}]}], "\n",
RowBox[{
RowBox[{"f", "=",
RowBox[{"OpenRead", "[",
RowBox[{"\"\<traces.bin\>\"", ",",
RowBox[{"BinaryFormat", "\[Rule]", "True"}]}], "]"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"For", "[",
RowBox[{
RowBox[{"i", "=", "1"}], ",",
RowBox[{"i", "\[LessEqual]", "count"}], ",",
RowBox[{"i", "++"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"BinaryReadList", "[",
RowBox[{"f", ",", "type", ",", "start"}], "]"}], ";",
RowBox[{"(*", "skip", "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"t", "[",
RowBox[{"[", "i", "]"}], "]"}], "=",
RowBox[{"N", "[",
RowBox[{"BinaryReadList", "[",
RowBox[{"f", ",", "type", ",", "len"}], "]"}], "]"}]}], ";",
RowBox[{"(*",
RowBox[{"read", " ", "interesting", " ", "part"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"BinaryReadList", "[",
RowBox[{"f", ",", "type", ",",
RowBox[{"recLen", "-",
RowBox[{"(",
RowBox[{"start", "+", "len"}], ")"}]}]}], "]"}], ";"}]}],
RowBox[{"(*", "skip", "*)"}], "\[IndentingNewLine]", "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Close", "[", "f", "]"}], ";"}]}], "Input",
CellChangeTimes->{{3.6047736543465953`*^9, 3.6047737432467194`*^9}, {
3.604773840806856*^9, 3.6047738437368603`*^9}, 3.6047763663443937`*^9, {
3.7204350706630774`*^9, 3.7204351113945007`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"Dimensions", "[", "t", "]"}],
RowBox[{"(*",
RowBox[{"dimensions", " ", "of", " ", "matrix", " ", "of", " ", "traces"}],
"*)"}]}]], "Input",
CellChangeTimes->{{3.657611200974016*^9, 3.657611203442487*^9}, {
3.720435139439351*^9, 3.7204351499092684`*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{
RowBox[{"mt", "=",
RowBox[{"Mean", "[",
RowBox[{"Transpose", "[", "t", "]"}], "]"}]}], ";"}], " ",
RowBox[{"(*",
RowBox[{"remove", " ", "mean", " ", "of", " ", "each", " ", "trace", " ",
RowBox[{"(", "detrend", ")"}]}], "*)"}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"t", "=",
RowBox[{"t", "-", "mt"}]}], ";"}]}], "Input",
CellChangeTimes->{{3.513064701337701*^9, 3.5130647223900642`*^9}, {
3.5130691259617333`*^9, 3.5130691476566343`*^9}, {3.697802894461648*^9,
3.6978029010809946`*^9}, {3.720435204500185*^9, 3.720435232348072*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"ListLinePlot", "[",
RowBox[{
RowBox[{"t", "[",
RowBox[{"[", "1", "]"}], "]"}], ",",
RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}],
RowBox[{"(*",
RowBox[{"plot", " ", "the", " ", "1", "st", " ", "trace"}],
"*)"}]}]], "Input",
CellChangeTimes->{{3.513059525407263*^9, 3.5130595320064497`*^9}, {
3.5130597927680807`*^9, 3.5130597934028053`*^9}, {3.5130607553441668`*^9,
3.513060770237745*^9}, {3.513060805087077*^9, 3.5130608247957764`*^9}, {
3.513064529241294*^9, 3.5130645554105177`*^9}, {3.5130646262800045`*^9,
3.5130646414577446`*^9}, {3.513064908861528*^9, 3.5130649090265565`*^9},
3.5130690322353106`*^9, {3.611656491884932*^9, 3.6116564951749363`*^9}, {
3.720435152775014*^9, 3.720435178730044*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"ListLinePlot", "[",
RowBox[{"t", "[",
RowBox[{"[",
RowBox[{"All", ",",
RowBox[{"1", ";;", "100"}]}], "]"}], "]"}], "]"}],
RowBox[{"(*",
RowBox[{"plot", " ", "zoomed", " ", "overlapping", " ", "trace"}],
"*)"}]}]], "Input",
CellChangeTimes->{
3.5130651127205505`*^9, 3.5130690498250046`*^9, 3.5130691784642324`*^9, {
3.7204352499893413`*^9, 3.7204352709064436`*^9}}],
Cell[BoxData[
RowBox[{"(*", " ",
RowBox[{
RowBox[{"STOP", ":", " ",
RowBox[{
"Select", " ", "the", " ", "interesting", " ", "part", " ", "of", " ",
"traces"}]}], ",", " ",
RowBox[{
RowBox[{"change", " ", "start"}], "="}], ",", " ",
RowBox[{"len", "="}], ",", " ",
RowBox[{"count", "=", " ",
RowBox[{"...", " ",
RowBox[{"above", "."}]}]}]}], " ", "*)"}]], "Input",
CellChangeTimes->{{3.720439262833274*^9, 3.7204392959636936`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{"**", "**", "**", "**", "**"}], "*", " ", "Define", " ", "useful",
" ", "functions"}], " ", "***********)"}], "\[IndentingNewLine]",
RowBox[{"(*",
RowBox[{"setup", " ", "AES", " ", "SBOX"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
StyleBox[
RowBox[{
RowBox[{
"ss", "=",
"\"\<0x63, 0x7C, 0x77, 0x7B, 0xF2, 0x6B, 0x6F, 0xC5, 0x30, 0x01, 0x67, \
0x2B, 0xFE, 0xD7, 0xAB, 0x76,\n 0xCA, 0x82, 0xC9, 0x7D, 0xFA, 0x59, 0x47, \
0xF0, 0xAD, 0xD4, 0xA2, 0xAF, 0x9C, 0xA4, 0x72, 0xC0,\n 0xB7, 0xFD, 0x93, \
0x26, 0x36, 0x3F, 0xF7, 0xCC, 0x34, 0xA5, 0xE5, 0xF1, 0x71, 0xD8, 0x31, 0x15,\
\n 0x04, 0xC7, 0x23, 0xC3, 0x18, 0x96, 0x05, 0x9A, 0x07, 0x12, 0x80, 0xE2, \
0xEB, 0x27, 0xB2, 0x75,\n 0x09, 0x83, 0x2C, 0x1A, 0x1B, 0x6E, 0x5A, 0xA0, \
0x52, 0x3B, 0xD6, 0xB3, 0x29, 0xE3, 0x2F, 0x84,\n 0x53, 0xD1, 0x00, 0xED, \
0x20, 0xFC, 0xB1, 0x5B, 0x6A, 0xCB, 0xBE, 0x39, 0x4A, 0x4C, 0x58, 0xCF,\n \
0xD0, 0xEF, 0xAA, 0xFB, 0x43, 0x4D, 0x33, 0x85, 0x45, 0xF9, 0x02, 0x7F, 0x50, \
0x3C, 0x9F, 0xA8,\n 0x51, 0xA3, 0x40, 0x8F, 0x92, 0x9D, 0x38, 0xF5, 0xBC, \
0xB6, 0xDA, 0x21, 0x10, 0xFF, 0xF3, 0xD2,\n 0xCD, 0x0C, 0x13, 0xEC, 0x5F, \
0x97, 0x44, 0x17, 0xC4, 0xA7, 0x7E, 0x3D, 0x64, 0x5D, 0x19, 0x73,\n 0x60, \
0x81, 0x4F, 0xDC, 0x22, 0x2A, 0x90, 0x88, 0x46, 0xEE, 0xB8, 0x14, 0xDE, 0x5E, \
0x0B, 0xDB,\n 0xE0, 0x32, 0x3A, 0x0A, 0x49, 0x06, 0x24, 0x5C, 0xC2, 0xD3, \
0xAC, 0x62, 0x91, 0x95, 0xE4, 0x79,\n 0xE7, 0xC8, 0x37, 0x6D, 0x8D, 0xD5, \
0x4E, 0xA9, 0x6C, 0x56, 0xF4, 0xEA, 0x65, 0x7A, 0xAE, 0x08,\n 0xBA, 0x78, \
0x25, 0x2E, 0x1C, 0xA6, 0xB4, 0xC6, 0xE8, 0xDD, 0x74, 0x1F, 0x4B, 0xBD, 0x8B, \
0x8A,\n 0x70, 0x3E, 0xB5, 0x66, 0x48, 0x03, 0xF6, 0x0E, 0x61, 0x35, 0x57, \
0xB9, 0x86, 0xC1, 0x1D, 0x9E,\n 0xE1, 0xF8, 0x98, 0x11, 0x69, 0xD9, 0x8E, \
0x94, 0x9B, 0x1E, 0x87, 0xE9, 0xCE, 0x55, 0x28, 0xDF,\n 0x8C, 0xA1, 0x89, \
0x0D, 0xBF, 0xE6, 0x42, 0x68, 0x41, 0x99, 0x2D, 0x0F, 0xB0, 0x54, 0xBB, \
0x16\>\""}], ";"}],
FontSize->9], "\[IndentingNewLine]",
RowBox[{
RowBox[{"sss", "=",
RowBox[{"StringTrim", "[",
RowBox[{
RowBox[{"StringTrim", "[",
RowBox[{"StringSplit", "[",
RowBox[{"ss", ",", "\"\<,\>\""}], "]"}], "]"}], ",", "\"\<0x\>\""}],
"]"}]}], ";",
RowBox[{"(*",
RowBox[{"convert", " ", "to", " ", "hex", " ", "strings"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"SubBytes", "=",
RowBox[{"Map", "[",
RowBox[{
RowBox[{
RowBox[{"FromDigits", "[",
RowBox[{"#", ",", "16"}], "]"}], "&"}], ",", "sss"}], "]"}]}], ";",
RowBox[{"(*",
RowBox[{"convert", " ", "to", " ", "integers"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"ClearAll", "[", "SBOX", "]"}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"SBOX", "[", "a_", "]"}], ":=",
RowBox[{"SubBytes", "[",
RowBox[{"[",
RowBox[{"a", "+", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"SBOX", "[", "0", "]"}], "\[Equal]", "16^^63",
RowBox[{"(*",
RowBox[{"test", " ", "SBOX",
RowBox[{"(", "0", ")"}]}], "*)"}]}]}]}]], "Input",
CellChangeTimes->{{3.611654569214624*^9, 3.6116546224046984`*^9},
3.720435287858545*^9, {3.7204391212751875`*^9, 3.72043914322598*^9}}],
Cell[BoxData[{
RowBox[{
RowBox[{"ClearAll", "[", "HammingWeight", "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"HammingWeight", "[", "x_", "]"}], ":=",
RowBox[{"DigitCount", "[",
RowBox[{"x", ",", "2", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{"HammingWeight", "[", "16^^00", "]"}], "\[IndentingNewLine]",
RowBox[{"HammingWeight", "[", "16^^FF", "]"}], "\[IndentingNewLine]",
RowBox[{"HammingWeight", "[",
RowBox[{"{",
RowBox[{"16^^A3", ",", "16^^00", ",", "16^^21"}], "}"}], "]"}]}], "Input",
CellChangeTimes->{{3.6116554925799284`*^9, 3.611655515599961*^9},
3.6116556132500973`*^9, {3.611655674950184*^9, 3.6116556795801907`*^9}, {
3.6116557152702403`*^9, 3.6116557190102453`*^9}, {3.61165586224049*^9,
3.6116558682004986`*^9}, 3.611656188129399*^9, {3.720435635640376*^9,
3.7204356859751062`*^9}, {3.7204359822956524`*^9,
3.7204360272497416`*^9}, {3.720436612207198*^9, 3.7204366371002493`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
RowBox[{
"**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
"**"}], "*", " ", "Attack", " ", "the", " ", "first", " ", "key", " ",
RowBox[{
"byte", " ", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
"**", "**"}]}], "*****)"}], "\[IndentingNewLine]",
RowBox[{"(*", " ",
RowBox[{
"You", " ", "need", " ", "to", " ", "have", " ", "selected", " ", "the",
" ", "interesting", " ", "parts", " ", "of", " ", "measured", " ",
"traces", " ", "for", " ", "correlation"}], " ", "*)"}]}]], "Input",
CellChangeTimes->{{3.7204391531928515`*^9, 3.720439218197921*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
"Select", " ", "the", " ", "first", " ", "byte", " ", "of", " ", "each",
" ", "input"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"d", "=",
RowBox[{"inputs", "[",
RowBox[{"[",
RowBox[{
RowBox[{"1", ";;", "count"}], ",", "1"}], "]"}], "]"}]}], ";"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"d", "[",
RowBox[{"[",
RowBox[{"1", ";;", "20"}], "]"}], "]"}], "//",
RowBox[{
RowBox[{"BaseForm", "[",
RowBox[{"#", ",", "16"}], "]"}], "&"}]}]}]}]], "Input",
CellChangeTimes->{{3.720436066249104*^9, 3.720436073200232*^9}, {
3.7204361291892776`*^9, 3.720436140346721*^9}, {3.720437898533883*^9,
3.7204379207177186`*^9}, {3.7204379911764402`*^9, 3.7204380042089243`*^9}, {
3.7204380452344737`*^9, 3.7204380454299173`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{"Generate", " ", "key", " ", "hypotheses"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"k", "=",
RowBox[{"Range", "[",
RowBox[{"0", ",", "255"}], "]"}]}], ";"}], "\n",
RowBox[{
RowBox[{"k", "[",
RowBox[{"[",
RowBox[{"1", ";;", "20"}], "]"}], "]"}], "//",
RowBox[{
RowBox[{"BaseForm", "[",
RowBox[{"#", ",", "16"}], "]"}], "&"}]}]}]}]], "Input",
CellChangeTimes->{{3.7204363069291754`*^9, 3.720436313709281*^9},
3.720436529424485*^9, {3.7204380153299246`*^9, 3.7204380488776207`*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
"XOR", " ", "each", " ", "data", " ", "byte", " ", "with", " ", "each",
" ", "key"}], "*)"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"xmat", "=",
RowBox[{"Outer", "[",
RowBox[{"BitXor", ",", "d", ",", "k"}], "]"}]}], ";"}], "\n",
RowBox[{
RowBox[{
RowBox[{"xmat", "[",
RowBox[{"[",
RowBox[{
RowBox[{"1", ";;", "10"}], ",",
RowBox[{"1", ";;", "10"}]}], "]"}], "]"}], "//", "MatrixForm"}], "//",
RowBox[{
RowBox[{"BaseForm", "[",
RowBox[{"#", ",", "16"}], "]"}], "&"}]}]}]}]], "Input",
CellChangeTimes->{{3.7204378406581306`*^9, 3.720437873889809*^9}, {
3.7204380578574905`*^9, 3.72043808961254*^9}}],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{
"Substitute", " ", "with", " ", "SBOX", " ", "all", " ", "XORed", " ",
"values"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"smat", "=",
RowBox[{"Map", "[",
RowBox[{"?",
RowBox[{
RowBox[{
RowBox[{",?];", "\n",
RowBox[{"smat", "[",
RowBox[{"[",
RowBox[{
RowBox[{"1", ";;", "10"}], ",",
RowBox[{"1", ";;", "10"}]}], "]"}], "]"}]}], "//", "MatrixForm"}],
"//",
RowBox[{
RowBox[{"BaseForm", "[",
RowBox[{"#", ",", "16"}], "]"}], "&"}]}]}]}]}]}]], "Input",
CellChangeTimes->{{3.7204364937533484`*^9, 3.7204365216630898`*^9}, {
3.7204381098511887`*^9, 3.720438147519025*^9}, {3.7204381799849195`*^9,
3.72043818617476*^9}, 3.7204385169275365`*^9, {3.720438846096431*^9,
3.720438866277361*^9}},
EmphasizeSyntaxErrors->True],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{"Compute", " ", "Hamming", " ",
RowBox[{"Weights", " ", "--"}], " ", "the", " ", "matrix", " ", "of", " ",
"hypothetical", " ", "power", " ", "consumption"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{"hmat", "=",
RowBox[{"Map", "[",
RowBox[{"?",
RowBox[{
RowBox[{",?];", "\n",
RowBox[{"hmat", "[",
RowBox[{"[",
RowBox[{
RowBox[{"1", ";;", "10"}], ",",
RowBox[{"1", ";;", "10"}]}], "]"}], "]"}]}], "//",
"MatrixForm"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.720436564076136*^9, 3.720436573148843*^9},
3.7204366713173647`*^9, {3.720437434578974*^9, 3.7204374489522295`*^9}, {
3.720438195365692*^9, 3.720438208866293*^9}, {3.7204389027292747`*^9,
3.72043890395277*^9}, {3.7204390240388007`*^9, 3.720439046425144*^9}},
EmphasizeSyntaxErrors->True],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{"Compute", " ", "the", " ", "correlation", " ",
RowBox[{"matrix", " ", "--"}], " ", "correlate", " ", "the", " ",
"hypotheses", " ", "with", " ", "measured", " ", "traces"}], "*)"}],
"\[IndentingNewLine]",
RowBox[{
RowBox[{"Dimensions", "[", "hmat", "]"}], "\[IndentingNewLine]",
RowBox[{"Dimensions", "[", "t", "]"}], "\[IndentingNewLine]",
RowBox[{"corr", "=",
RowBox[{"Correlation", "[",
RowBox[{"?",
RowBox[{
RowBox[{",?];", "\[IndentingNewLine]",
RowBox[{"corr", "[",
RowBox[{"[",
RowBox[{
RowBox[{"1", ";;", "10"}], ",",
RowBox[{"1", ";;", "5"}]}], "]"}], "]"}]}], "//",
"MatrixForm"}]}]}]}]}]}]], "Input",
CellChangeTimes->{{3.7204366947095766`*^9, 3.7204367233700914`*^9}, {
3.7204374518595214`*^9, 3.7204374574933295`*^9}, {3.720438914786463*^9,
3.720438916653968*^9}, {3.7204389933387804`*^9, 3.7204390078214912`*^9}, {
3.720439049151926*^9, 3.7204390634049435`*^9}},
EmphasizeSyntaxErrors->True],
Cell[BoxData[
RowBox[{"acorr", "=",
RowBox[{"Abs", "[",
RowBox[{
RowBox[{"?",
RowBox[{"];", "\n", "maxcorr"}]}], "=",
RowBox[{"Max", "[",
RowBox[{
RowBox[{"?",
RowBox[{"]", "\n",
RowBox[{"{",
RowBox[{"kindex", ",", "kpos"}], "}"}]}]}], "=",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"Position", "[",
RowBox[{"acorr", ",", "maxcorr"}], "]"}], "[",
RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", "key"}], "=",
RowBox[{"kindex", "-",
RowBox[{"1", "\[IndentingNewLine]",
RowBox[{"BaseForm", "[",
RowBox[{"key", ",", "16"}], "]"}]}]}]}]}]}]}]}]}]], "Input",
CellChangeTimes->{{3.7204368809288006`*^9, 3.720436892960585*^9},
3.72043825056677*^9, {3.720438930572811*^9, 3.720438933656006*^9}},
EmphasizeSyntaxErrors->True],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{"Find", " ", "the", " ", "correlation", " ", "peak",
RowBox[{"(", "s", ")"}], " ", "in", " ", "the", " ", "trace", " ",
"plot"}], "*)"}], "\[IndentingNewLine]",
RowBox[{"ListLinePlot", "[",
RowBox[{"corr", "[",
RowBox[{"[",
RowBox[{"?", "]],PlotRange\[Rule]All]"}]}]}]}]}]], "Input",
CellChangeTimes->{{3.720437664036378*^9, 3.720437668858079*^9}, {
3.7204389531392536`*^9, 3.7204389679561768`*^9}},
EmphasizeSyntaxErrors->True],
Cell[BoxData[
RowBox[{
RowBox[{"(*",
RowBox[{"Break", " ", "all", " ", "key", " ",
RowBox[{"bytes", "!"}]}], "*)"}], "\[IndentingNewLine]",
RowBox[{"(*", "\[IndentingNewLine]",
RowBox[{
RowBox[{"kk", "=",
RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]",
RowBox[{"For", "[",
RowBox[{
RowBox[{"ki", "=", "1"}], ",",
RowBox[{"ki", "\[LessEqual]", "16"}], ",",
RowBox[{"ki", "++"}], ",", "\[IndentingNewLine]",
RowBox[{
RowBox[{"AppendTo", "[",
RowBox[{"kk", ",", "key"}], "]"}], ";", "\[IndentingNewLine]",
RowBox[{"Print", "[",
RowBox[{
"\"\<Found key byte\>\"", ",", " ", "\"\< at position \>\"", ",",
" ", "\"\< with correlation \>\""}], "]"}], ";"}]}],
"\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]",
RowBox[{
RowBox[{"BaseForm", "[",
RowBox[{"kk", ",", "16"}], "]"}], "\[IndentingNewLine]",
RowBox[{"FromCharacterCode", "[", "kk", "]"}]}]}], "\[IndentingNewLine]",
"*)"}]}]], "Input",
CellChangeTimes->{{3.5130696191801653`*^9, 3.5130696330894313`*^9}, {
3.513069906023134*^9, 3.513069908271037*^9}, {3.513070107142098*^9,
3.5130701234115644`*^9}, 3.513072048142866*^9, 3.6116553510297303`*^9, {
3.6116554562198772`*^9, 3.6116554859399195`*^9}, {3.6116555178099637`*^9,
3.611655619500106*^9}, {3.6116556523401523`*^9, 3.6116557420702777`*^9}, {
3.61165577646435*^9, 3.6116557933043737`*^9}, {3.611655836908444*^9,
3.6116558509384637`*^9}, {3.6116559727286634`*^9, 3.611655978018671*^9}, {
3.6116560616130557`*^9, 3.6116560931031*^9}, {3.6116561897594013`*^9,
3.6116562043994217`*^9}, {3.611656539034998*^9, 3.6116565408050003`*^9}, {
3.6977984386017427`*^9, 3.697798459144847*^9}, {3.6977985148794065`*^9,
3.6977985833439856`*^9}, {3.697798645947137*^9, 3.6977986636405888`*^9}, {
3.697801698213625*^9, 3.697801776406316*^9}, {3.697801810083218*^9,
3.697801884028393*^9}, {3.697801985851428*^9, 3.69780202420901*^9}, {
3.6978021615495586`*^9, 3.697802209294267*^9}, {3.697802468640934*^9,
3.6978024749311595`*^9}, {3.720172526518976*^9, 3.7201725707035656`*^9},
3.720433541599208*^9, {3.7204356258210487`*^9, 3.720435626626298*^9}, {
3.7204357862180295`*^9, 3.7204357878500185`*^9}, {3.7204358320926394`*^9,
3.7204358376169844`*^9}, {3.720435896349845*^9, 3.720435901189147*^9}, {
3.7204372729625654`*^9, 3.720437349472704*^9}, {3.7204383744797044`*^9,
3.720438395475066*^9}, {3.720438574027712*^9, 3.720438574545648*^9}, {
3.7204389746913157`*^9, 3.7204389843366966`*^9}}]
},
PrintingStyleEnvironment->"SlideShow",
WindowSize->{1264, 777},
WindowMargins->{{0, Automatic}, {0, Automatic}},
ShowSelection->True,
Magnification:>1.25 Inherited,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 104, 2, 36, "Input"],
Cell[652, 24, 1604, 37, 106, "Input"],
Cell[2259, 63, 528, 14, 60, "Input"],
Cell[2790, 79, 1050, 20, 36, "Input"],
Cell[3843, 101, 2189, 48, 198, "Input"],
Cell[6035, 151, 1732, 46, 198, "Input"],
Cell[7770, 199, 302, 7, 36, "Input"],
Cell[8075, 208, 613, 14, 60, "Input"],
Cell[8691, 224, 794, 16, 36, "Input"],
Cell[9488, 242, 439, 12, 36, "Input"],
Cell[9930, 256, 481, 13, 36, "Input"],
Cell[10414, 271, 3361, 69, 543, "Input"],
Cell[13778, 342, 988, 19, 129, "Input"],
Cell[14769, 363, 697, 15, 60, "Input"],
Cell[15469, 380, 878, 24, 83, "Input"],
Cell[16350, 406, 619, 18, 83, "Input"],
Cell[16972, 426, 757, 22, 83, "Input"],
Cell[17732, 450, 901, 25, 83, "Input"],
Cell[18636, 477, 899, 22, 83, "Input"],
Cell[19538, 501, 1080, 25, 129, "Input"],
Cell[20621, 528, 874, 24, 129, "Input"],
Cell[21498, 554, 512, 12, 60, "Input"],
Cell[22013, 568, 2608, 47, 244, "Input"]
}
]
*)
(* End of internal cache information *)
Reference in a new issue Copy permalink