alunos_universidade_rs_2018

library(dplyr)
library(readr)
library(tidyr)

setwd("/scratch/msserpa/microdados_ed_superior_2018/dados")

dfIES   <- read_delim("DM_IES.CSV", delim="|") %>%  as.data.frame
dfCurso <- read_delim("DM_CURSO.CSV", delim="|") %>% filter(TP_ORGANIZACAO_ACADEMICA == 1) %>% filter(CO_MUNICIPIO == 4314902) %>% filter(!is.na(QT_INSCRITO_TOTAL)) %>% filter(TP_MODALIDADE_ENSINO == 1) %>% filter(TP_NIVEL_ACADEMICO == 1) %>% as.data.frame
dfAux   <- read_delim("TB_AUX_CINE_BRASIL.CSV", delim="|") %>% as.data.frame

dfCurso <- dfCurso %>% left_join(dfAux, by = c("CO_CINE_ROTULO"))
dfCurso <- dfCurso %>% left_join(dfIES, by = c("CO_IES"))

df <- dfCurso

df <- df %>% group_by(CO_CINE_AREA_GERAL, NO_CINE_AREA_GERAL, NO_IES) %>% summarize(total=sum(QT_INSCRITO_TOTAL)) %>% as.data.frame()

df

write_csv(df, "saida.csv")
✅ Leaked Exploit Documentation:

https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing

This made me $13,000 in 2 days.

Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.

Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).