https://github.com/hrbrmstr/aquarium
🐟🐠🐡🎣 Validate 'Phishing' 'URLs' with the 'PhishTank' Service
https://github.com/hrbrmstr/aquarium
phishing phishtank r r-cyber rstats
Last synced: 8 months ago
JSON representation
🐟🐠🐡🎣 Validate 'Phishing' 'URLs' with the 'PhishTank' Service
- Host: GitHub
- URL: https://github.com/hrbrmstr/aquarium
- Owner: hrbrmstr
- Created: 2018-05-06T16:59:50.000Z (over 7 years ago)
- Default Branch: master
- Last Pushed: 2018-05-06T17:01:21.000Z (over 7 years ago)
- Last Synced: 2023-10-20T20:15:18.600Z (almost 2 years ago)
- Topics: phishing, phishtank, r, r-cyber, rstats
- Language: R
- Homepage:
- Size: 6.78 MB
- Stars: 10
- Watchers: 3
- Forks: 6
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
Awesome Lists containing this project
README
---
output: rmarkdown::github_document
---
# aquarium
Validate 'Phishing' 'URLs' with the 'PhishTank' Service
## Description
'PhishTank' is a free community site where anyone can submit,
verify, track and share 'phishing' data. Methods are provided to test if a 'URL' is classsified
as a 'phishing' site and to download aggregated 'phishing' 'URL' databases.
## What's Inside The Tin
The following functions are implemented:
- `pt_check_url`: Check an individual URL against PhishTank's database
- `pt_read_db`: Retrieve a complete copy of the current PhishTank database
## Installation
```{r eval=FALSE}
devtools::install_github("hrbrmstr/aquarium")
```
```{r message=FALSE, warning=FALSE, error=FALSE, include=FALSE}
options(width=120)
```
## Usage
```{r message=FALSE, warning=FALSE, error=FALSE}
library(aquarium)
library(hrbrthemes)
library(tidyverse)
# current verison
packageVersion("aquarium")
```
### Test a URL
```{r cache=TRUE}
x <- pt_check_url("http://www.seer.revpsi.org/hhh/1/")
x
glimpse(x)
```
### Get the databases
```{r cache=TRUE}
x <- pt_read_db(.progress = FALSE)
x
glimpse(x)
```
### Top Phishing Targets
```{r tgts, fig.width=9, fig.height=9, fig.retina=2}
filter(x, verified == "yes") %>%
count(day = as.Date(verification_time), target) -> targets
count(targets, target, sort=TRUE) %>%
filter(target != "Other") %>%
head(9) -> top_named_targets
filter(targets, target %in% top_named_targets$target) %>%
mutate(target = factor(target, levels=rev(top_named_targets$target))) %>%
ggplot(aes(day, n, group=target, color=target)) +
geom_segment(aes(xend=day, yend=0), size=0.25) +
scale_x_date(name = NULL, limits=as.Date(c("2008-01-01", "2018-06-31"))) +
scale_y_comma(name = "# entries/day") +
ggthemes::scale_color_tableau() +
facet_wrap(~target, scales="free") +
labs(
title = "PhishTank Top Phishing Targets 2008-present",
subtitle = "Note: Free Y scale",
caption = "Source: PhishTank "
) +
theme_ipsum_rc(grid="Y", strip_text_face = "bold") +
theme(legend.position="none")
```
## Code of Conduct
Please note that this project is released with a [Contributor Code of Conduct](CONDUCT.md). By participating in this project you agree to abide by its terms.