BrowserSecurity
/
ExtensionDsLab
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: BrowserSecurity:b8bb1112f20ae29e4f1c965a6b3ede205f0cd1e5
Branches Tags
BrowserSecurity:master
...
compare: BrowserSecurity:819b1b1dd15e08e2da2bbfb3f3dfc2e80bee65ed
Branches Tags
BrowserSecurity:master

3 Commits
b8bb1112f2 ... 819b1b1dd1

Author SHA1 Message Date
Achim D. Brucker 819b1b1dd1 Improved Markdown. 2018-08-11 22:18:56 +01:00
Achim D. Brucker 4145ace1d2 Added explicit timeout for data base connection and increased width 
of download graph.
 2018-07-31 23:03:20 +01:00
Achim D. Brucker 1c42ff951d Document that queries might throw a MySql.Data.MySqlClient.MySqlException exception. 2018-07-29 11:41:09 +01:00
3 changed files with 13 additions and 7 deletions
Show Stats Expand all files Collapse all files

1
README.md
View File

@ -1,4 +1,5 @@
# ExtensionDsLab # ExtensionDsLab
ExtensionDsLab is a data science and machine learning framework for analyzing ExtensionDsLab is a data science and machine learning framework for analyzing
security and privacy related properties of the browser extensions (and Chrome security and privacy related properties of the browser extensions (and Chrome
Apps) offered in the [Chrome Web Store](https://chrome.google.com/webstore/). Apps) offered in the [Chrome Web Store](https://chrome.google.com/webstore/).

12
src/LogicalHacking.ExtensionDsLab/ExtensionQueries.fs
View File

@ -45,11 +45,13 @@ module ExtensionQueries =
/// ///
/// **Exceptions** /// **Exceptions**
/// ///
/// * `MySql.Data.MySqlClient.MySqlException`
///
let getDownloads (ctx:ExtensionDbType) extid = let getDownloads (ctx:ExtensionDbType) extid =
query { query {
for order in ctx.Extensions.Extension do for order in ctx.Extensions.Extension do
where (order.Extid = extid && order.Downloads.IsSome) where (order.Extid = extid && order.Downloads.IsSome)
select (order.Date, order.Downloads.Value) select (order.Date, order.Downloads.Value)
} }
/// **Description** /// **Description**
@ -69,9 +71,11 @@ module ExtensionQueries =
/// ///
/// **Exceptions** /// **Exceptions**
/// ///
/// * `MySql.Data.MySqlClient.MySqlException`
///
let getAllExtIds (ctx:ExtensionDbType) = let getAllExtIds (ctx:ExtensionDbType) =
query { query {
for ext in ctx.Extensions.Extension do for ext in ctx.Extensions.Extension do
select ext.Extid select ext.Extid
distinct distinct
} }

7
src/LogicalHacking.ExtensionDsLab/Script.fsx
View File

@ -31,7 +31,7 @@ open XPlot.GoogleCharts.Deedle
// the connection string shall be of the form // the connection string shall be of the form
// "Server=<DBHOST>;Database=extensions;User=<USER>;Password=<PASSWORD>" // "Server=<DBHOST>;Database=extensions;User=<USER>;Password=<PASSWORD>"
let ctx = ExtensionDbProvider.GetDataContext(connectionStringOrDefault "") let ctx = ExtensionDbProvider.GetDataContext(connectionStringOrDefault "",commandTimeout=36000)
// Log SQL: https://fsprojects.github.io/SQLProvider/core/querying.html // Log SQL: https://fsprojects.github.io/SQLProvider/core/querying.html
FSharp.Data.Sql.Common.QueryEvents.SqlQueryEvent |> Event.add (printfn "Executing SQL: %O") FSharp.Data.Sql.Common.QueryEvents.SqlQueryEvent |> Event.add (printfn "Executing SQL: %O")
@ -39,11 +39,11 @@ FSharp.Data.Sql.Common.QueryEvents.SqlQueryEvent |> Event.add (printfn "Executin
let chartDownloads extIds = (List.map (fun e -> (series (getDownloads ctx e))) extIds) let chartDownloads extIds = (List.map (fun e -> (series (getDownloads ctx e))) extIds)
|> Chart.Line |> Chart.Line
|> Chart.WithOptions (Options(legend=Legend(position="bottom"))) |> Chart.WithOptions (Options(legend=Legend(position="bottom"), width=1100))
|> Chart.WithLabels extIds |> Chart.WithLabels extIds
chartDownloads ["lkllajgbhondgjjnhmmgbjndmogapinp"] chartDownloads ["lkllajgbhondgjjnhmmgbjndmogapinp"]
// chartDownloads (List.take 5 (getAllExtIds ctx)) // chartDownloads (List.take 5 (getAllExtIds ctx |> Seq.toList))
let extData = let extData =
query {for x in ctx.Extensions.Extension do query {for x in ctx.Extensions.Extension do
@ -52,3 +52,4 @@ let extData =
|> Seq.map (fun (date, name, download) -> (date, name.Value, download.Value)) |> Seq.map (fun (date, name, download) -> (date, name.Value, download.Value))
|> Frame.ofRecords |> Frame.ofRecords
|> Frame.indexColsWith ["Date"; "Name"; "Downloads"] |> Frame.indexColsWith ["Date"; "Name"; "Downloads"]