+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] Skype Resolver Source (/showthread.php?tid=5031004)
Skype Resolver Source - Quantum Fusion - Oct 22, 2015
Here is a skype resolver source I have been working on, just a little project of mine. I know there are a ton of these out there, but I haven't seen one that works like this, so I thought I might release it because I think it is cool.
You will need
- A Window Form
- A Button
- A TextBox
- A Module
Module Code:
Code
Imports System.Windows.Forms
Imports System.Net.Sockets
Imports System.Text
Public Module Module1
Sub Main()
Console.Title = "Hub"
Console.ForegroundColor = ConsoleColor.Yellow
Console.Write("Input: ")
Dim Input As String = Console.ReadLine
If Input = "resolver" Then
Console.Write("SaveLog? [1 = Yes] [0 = No] : ")
Dim SaveLogBoolean As String = Console.ReadLine()
Form1.SaveAlog = SaveLogBoolean
Console.Clear()
Console.ForegroundColor = ConsoleColor.Cyan
Console.WriteLine("Closing The Console Will Result In The Entire Application Closing.")
Console.ResetColor()
Console.WriteLine()
Console.WriteLine()
Console.ForegroundColor = ConsoleColor.Magenta
Console.WriteLine("LOG:")
Console.WriteLine("-------------------------------------")
Console.WriteLine()
Console.Title = "resolver Console"
Application.Run(New Form1())
Console.Clear()
Main()
Else
Console.Clear()
Console.WriteLine("Error: Command " & Input & " Not Found.")
Console.WriteLine()
Main()
End If
End Sub
End ModuleWinForm Code:
Code
Imports System.Net
Public Class Form1
Dim FILE_NAME As String = "log.txt"
Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)
Public Shared SaveAlog As String
Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Using client As New WebClient
client.Headers("User-Agent") = "Chrome/40.0.2214.111"
Dim t1 As String = TextBox1.Text
Dim DatNiggasIP As String = client.DownloadString("http://api.predator.wtf/resolver/?arguments=" & t1)
Dim DatNiggasLoc As String = client.DownloadString("http://ip-api.com/line/" & DatNiggasIP)
If t1 = "" Then
Console.WriteLine("Please enter a username.")
ElseIf DatNiggasIP = "Crap, No IP Was Found!" Then
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("Resolver could not find an Ip for the username '" & t1 & "'")
Console.WriteLine()
Else
Console.ForegroundColor = ConsoleColor.Green
Console.WriteLine("✓ Resolver returned skype " & t1 & "'s Ip as ---> " & DatNiggasIP)
Console.WriteLine("---------------------------------------------------")
Console.WriteLine(DatNiggasLoc)
Console.WriteLine()
If SaveAlog = "1" Then
objWriter.WriteLine("Resolver returned skype name " & t1 & "'s Ip as ---> " & DatNiggasIP)
objWriter.WriteLine(DatNiggasLoc)
objWriter.WriteLine()
Console.ResetColor()
End If
End If
End Using
End Sub
Private Sub Form1_FormClosing(sender As Object, e As Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
objWriter.Close()
End Sub
End ClassScreenshots:
![[Image: 19746324eb44eedc801168e49c5d8cc1.png]](https://i.gyazo.com/19746324eb44eedc801168e49c5d8cc1.png)
![[Image: c7ba123388d738bb4ad2d5b89e1373ba.png]](https://i.gyazo.com/c7ba123388d738bb4ad2d5b89e1373ba.png)
* - nathan72389 - Oct 22, 2015
it really shows your class when you name your variables like "DatNiggasIP" "DatNiggasLoc"
the code is not even that good. this was one of those projects you should of put in the trash.
* - MeltyNet - Oct 22, 2015
Ok tutorial, hopefully someone can put it to use!
* - Streetlight. - Nov 10, 2015
................ Same source
https://www.codeleakers.com/showthread.php?72541-VB-NET-Skype-Resolver-Source-Code
* - Hiiro - Nov 10, 2015
(Nov 10, 2015 03:22 AM)StreetLight. Wrote: ................ Same sourceThat's leeched off HF too, read the comments. :P
https://www.codeleakers.com/showthread.php?72541-VB-NET-Skype-Resolver-Source-Code
* - Streetlight. - Nov 10, 2015
(Nov 10, 2015 05:35 AM)Happy. Wrote: That's leeched off HF too, read the comments. :P
Yeah but the date is from 2013 on that post also