[laravirus]

SRC Facebook APi

Downlaod

http://ge.tt/3lQRMh02/v/0?c

[img]http://im55.gulfup.com/57kWmm.png[/img]

[+Haze]

Just paste the bare source code onto pastebin. That'd doo.

[$lick]

Just paste the bare source code onto pastebin. That'd doo.

Project files can be backdoored, so here; (seems clean)

Form1.vb;

Code

Imports System.Drawing.Drawing2D

Public Class Form1

    Private Sub BlueButtonA1_Click(sender As System.Object, e As System.EventArgs) Handles BlueButtonA1.Click
      Dim FB As New API
      FB.GrabUserInfo(txtboxUser.Text)
      Dim B As Bitmap = FB.CoverPicture
      B = CropBitmap(B, 0, (FB.CoverOffset / 100) * (FB.CoverPicture.Height - FBCover.Height), FB.CoverPicture.Width, FB.CoverPicture.Height - (FB.CoverOffset / 100) * (FB.CoverPicture.Height - FBCover.Height))
      B = ResizeProportionally(B, FBCover.Width)
      FBCover.BackgroundImage = B
      FB.GrabUserProfile(2)
      FBProfile.BackgroundImage = FB.ProfilePicture

      lblName.Text = "Name: " & FB.Name
      lblGender.Text = "Gender: " & FB.Gender
      lblID.Text = "ID: " & FB.ID
      lblUsername.Text = "Username: " & FB.Username
    End Sub

    Private Function CropBitmap(ByRef bmp As Bitmap, ByVal cropX As Integer, ByVal cropY As Integer, ByVal cropWidth As Integer, ByVal cropHeight As Integer) As Bitmap
      Dim rect As New Rectangle(cropX, cropY, cropWidth, cropHeight)
      Dim cropped As Bitmap = bmp.Clone(rect, bmp.PixelFormat)
      Return cropped
    End Function

    Private Function ResizeProportionally(ByVal bmp As Bitmap, ByVal Finalwidth As Integer) As Bitmap
      Dim i As Double = (Finalwidth / bmp.Width)
      Dim finalH As Integer = i * bmp.Height
      Dim newImage As Image = New Bitmap(Finalwidth, finalH)
      Using graphicsHandle As Graphics = Graphics.FromImage(newImage)
      graphicsHandle.InterpolationMode = InterpolationMode.HighQualityBicubic
      graphicsHandle.DrawImage(bmp, 0, 0, Finalwidth, finalH)
      End Using
      Return newImage
    End Function

    Private Sub BlueTheme1_Click(sender As Object, e As EventArgs)

    End Sub
End Class

API.vb;

Code

Imports System.Net
Imports System.IO
Imports System.ComponentModel

Module Web

    Public Function DoGetReq(ByVal link As String, ByVal referer As String, ByRef logincookie As CookieContainer, Optional ByVal Proxy As WebProxy = Nothing) As String
      Try
      Dim Request As HttpWebRequest = DirectCast(WebRequest.Create(link), HttpWebRequest)
      Request.Method = "GET"
      Request.Referer = referer
      If Not Proxy Is Nothing Then
      Request.Proxy = Proxy
      End If
      Request.CookieContainer = logincookie
      Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.3)"
      Request.ContentType = "application/x-www-form-urlencoded"

      Dim Response As WebResponse = Request.GetResponse()
      Dim S As Stream = Response.GetResponseStream()

      Dim reader As New StreamReader(S)
      Dim Source As String = reader.ReadToEnd()
      reader.Close()
      Response.Close()

      Return Source
      Catch ex As Exception
      Return ""
      End Try
    End Function
End Module

Public Class API

    Public ID As String
    Public Username As String
    Public Name As String
    Public Firstname As String
    Public Surname As String
    Public Gender As String
    Public CoverUrl As String
    Public CoverPicture As Bitmap
    Public ProfileURL As String
    Public ProfilePicture As Bitmap
    Public CoverOffset As Integer
    Dim BaseURL As String = "http://graph.facebook.com/"
    Dim Proportion As Integer

    Public Sub GrabUserInfo(ByVal UserID As String)
      Dim TempCookie As New System.Net.CookieContainer
      Dim Response As String = Web.DoGetReq(BaseURL & UserID & "?fields=id,username,name,first_name,last_name,gender,picture,cover", "", TempCookie)

      ID = Response.Split(Chr(34))(7).ToString
      Username = Response.Split(Chr(34))(3).ToString
      Name = Response.Split(Chr(34))(15).ToString
      Firstname = Response.Split(Chr(34))(19).ToString
      Surname = Response.Split(Chr(34))(35).ToString
      Gender = Response.Split(Chr(34))(11).ToString
      CoverUrl = Response.Split(Chr(34))(29).ToString
      ProfileURL = Response.Split(Chr(34))(43).ToString
      CoverOffset = Response.Split(Chr(34))(32).ToString.Substring(2, 5)

      CoverPicture = URLToBitmap("https://fbcdn-sphotos-g-a.akamaihd.net/hphotos-ak-ash3/" & CoverUrl.Substring(55, CoverUrl.Length - 55).ToString)
      ProfilePicture = URLToBitmap(BaseURL & UserID & "/picture")

      Proportion = ProfilePicture.Width / ProfilePicture.Height
    End Sub

    Public Function URLToBitmap(ByVal URL As String) As Bitmap
      Dim WClient As WebClient = New WebClient
      Return Bitmap.FromStream(New MemoryStream(WClient.DownloadData(URL)))
    End Function

    Public Sub GrabUserProfile(ByVal Size As Integer)
      If Size = 0 Then
      ProfilePicture = URLToBitmap(BaseURL & ID & "/picture")
      ElseIf Size = 1 Then
      ProfilePicture = URLToBitmap(ProfileURL.Substring(0, ProfileURL.Length - 5) & "s.jpg")
      ElseIf Size = 2 Then
      ProfilePicture = URLToBitmap(ProfileURL.Substring(0, ProfileURL.Length - 5) & "n.jpg")
      ElseIf Size = 3 Then
      ProfilePicture = URLToBitmap(BaseURL & ID & "/picture?width=9999&height=" & ((Proportion * 9999) + 9999))
      End If
    End Sub
End Class

[CottleSilver]

The project is found as a virus by kaspersky internet security 2015, For me is the first one to be detected so keep that in mind when downloading his stuff

[Dixxx]

The project is found as a virus by kaspersky internet security 2015, For me is the first one to be detected so keep that in mind when downloading his stuff

Also

[Only3]

probably virus https://hackforums.net/showthread.php?tid=3941574

[laravirus]

Also

virus !!!!!! are you serious
this is a projets

[Only3]

virus !!!!!! are you serious
this is a projets

when i see c&p thread made me think its suspicious specialy when the user have new account
projects can be backdoor !

[SIM-1984933]

The project is found as a virus by kaspersky internet security 2015, For me is the first one to be detected so keep that in mind when downloading his stuff

Lol he giving the source if you can code you view over the code and understand what its doing my password safe source i posted was detected as a virus by one AV its a false +

[LordCoder]

when i see c&p thread made me think its suspicious specialy when the user have new account
projects can be backdoor !

The project is totally clean. I thought you were more HQ.

[img]http://s25.postimg.org/uy85ewn8v/2014_10_05_16_53_04_Windows_7_Running_1.png[/img]

[Cornflower Blue இڿڰۣ-ڰۣ—]

The project is totally clean. I thought you were more HQ.

Wow good job, you looks at one source file, doesn't make it safe or not. The exe file that was detected could still be a virus.

I thought you were more HQ.

[Only3]

Wow good job, you looks at one source file, doesn't make it safe or not. The exe file that was detected could still be a virus.

I thought you were more HQ.

Woow u reply to LordCoder I thought you were more HQ. i can backdoor empty project 🤦‍♂ < not ^^

[LordCoder]

Wow good job, you looks at one source file, doesn't make it safe or not. The exe file that was detected could still be a virus.

I thought you were more HQ.

What are you saying? Do you even know how to open any decompiler and look by yourself it's not a virus?

Woow u reply to LordCoder I thought you were more HQ. i can backdoor empty project 🤦‍♂ < not ^^

Just no.

[TheBarret]

i Lol'ed at:

Code

Dim i As Double = (Finalwidth / bmp.Width)
  Dim finalH As Integer = i * bmp.Height

Strict mode will have your ass for that ^^

Just replace the / for \ that operator discards the decimals and returns the division as int32.

[Uganda Gang]

Wow good job, you looks at one source file, doesn't make it safe or not. The exe file that was detected could still be a virus.

I thought you were more HQ.

You're literally just not smart. At all. He just through it into a decomp, showing the packaging(sorry java d00d), we can clearly see that nothing more is happening aside from what he's advertised.

Please, learn your shit.