Am I allowed to sell this here?

[BitStick]

Its porn related, I'll add a download link if its ok to post it here (don't want to get banned)

I programmed a fusker viewer (it displays images from porn galleries)

The free version has 2,000 galleries
The full version has 26,798 galleries for just 0.1 bit coins.
Its windows only and probably needs .NET Framework installed for it to work (its in windows updates / extras)

My apologies if this kind of thing is not ok here : )


*edit*

Well its been posted a couple of hours and had almost 100 views and so far nobody said I cant post it so here goes.

http://kickme.to/bitcoins

Scroll down the page and download the rar file, unzip and run anywhere on your hard drive or usb keypen. Its a standalone program so it doesn't install or use any registry keys.

For the paranoid you can run it in sandboxie or compile the source code yourself (a couple of posts down) and then run your own compiled copy but make sure you put the image-fuskers.txt in the same folder.

Feel free to leave any comments, good or bad.
Is 0.1 bitcoins too much for a full copy?

[1714138223]

1714138223

[Herodes]

Better open source it, so we're sure nothing nefarious is going on.

[BitStick]

Better open source it, so we're sure nothing nefarious is going on.

Nothing hiding in the code I can assure you, it runs sandboxed without any problems.

Code:

Public Class FuskerView
    Dim AppPath As String = Application.StartupPath + "\"
    Dim ViewStyle As Integer = 1
    Dim FuskerURL As String = ""
    Dim ImageNumber As Integer = 0

    Private Sub FuskerView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MyHTML = "<style type='text/css'>body{ margin: 0; padding: 0 } </style>"
        MyHTML = MyHTML + "<br>"
        MyHTML = MyHTML + "<br>"
        MyHTML = MyHTML + "<p>&nbsp;&nbsp;This is a VERY basic fusker viewer.<p/>"
        MyHTML = MyHTML + "<p><p/>"
        MyHTML = MyHTML + "&nbsp;&nbsp;To begin leave the search box empty and click the search button to get a list of all fusker links.<br>"
        MyHTML = MyHTML + "&nbsp;&nbsp;Type single words into the search text box to filter results eg. met-art.com or teen etc etc.<br>"
        MyHTML = MyHTML + "<p><p/>"
        MyHTML = MyHTML + "&nbsp;&nbsp;Select a fusker URL from the drop down listbox and the first image will be displayed.<br>"
        MyHTML = MyHTML + "&nbsp;&nbsp;On the left of the screen the columb will display M1 M2 M3 followed by all the image numbers and then Wall.<br>"
        MyHTML = MyHTML + "&nbsp;&nbsp;Click an image number to display a single image or click Wall to display an image wall (all images)"
        MyHTML = MyHTML + "<p><p/>"
        MyHTML = MyHTML + "<p>&nbsp;&nbsp;The view modes (M1 M2 M3)<p/>"
        MyHTML = MyHTML + "&nbsp;&nbsp;If you're viewing a single image.<br>"
        MyHTML = MyHTML + "&nbsp;&nbsp;M1 & M2 are both the same, they set the image to be the height of the browser.<br>"
        MyHTML = MyHTML + "&nbsp;&nbsp;M3 sets the image to be the width of the browser.<br>"
        MyHTML = MyHTML + "<p><p/>"
        MyHTML = MyHTML + "&nbsp;&nbsp;If your viewing an image wall.<br>"
        MyHTML = MyHTML + "&nbsp;&nbsp;M1 will sometimes display small images two at a time.<br>"
        MyHTML = MyHTML + "&nbsp;&nbsp;M2 will only display one image at a time.<br>"
        MyHTML = MyHTML + "&nbsp;&nbsp;M3 is the same as single image, it just sets it to fit width.<br>"
        MyHTML = MyHTML + "<p>&nbsp;&nbsp;<p/>"
        MyHTML = MyHTML + "<p>&nbsp;&nbsp;<p/>"
        MyHTML = MyHTML + "<p>&nbsp;&nbsp;<p/>"
        MyHTML = MyHTML + "<p>&nbsp;&nbsp;<p/>"
        WebBrowser1.DocumentText = MyHTML
        Me.WindowState = FormWindowState.Maximized
        ComboBox1.Items.AddRange(My.Computer.FileSystem.ReadAllText(AppPath + "image-fuskers.txt").Split(vbNewLine))
        ComboBox1.Text = "Select one of the " + Trim(Str(ComboBox1.Items.Count) - 1) + " fusker links"
    End Sub

    Private Sub FuskerView_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        WebBrowser1.Width = Me.Width - 60
        WebBrowser1.Height = Me.Height - 60
        ListBox2.Left = 0
        ListBox2.Top = 0
        ListBox2.Height = Me.Height
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ComboBox2.Items.Clear()
        For i = 0 To ComboBox1.Items.Count - 1
            If InStr(LCase(ComboBox1.Items(i)), LCase(TextBox1.Text)) <> 0 Then ComboBox2.Items.Add(ComboBox1.Items(i))
        Next
        ComboBox2.Text = "Items found = " + Str(ComboBox2.Items.Count)
    End Sub

    Public Sub FuskerDisplay(ByVal WebBrowserName As WebBrowser, ByVal FuskerURL As String, ByVal ImageNumber As Long)
        Dim ImageURL As String = ""
        Dim ImageList() As String
        Dim z As Integer = 0
        Dim c As Integer = 0
        t1 = Split(FuskerURL, "[")
        t2 = Split(t1(1), "]")
        t3 = Split(t2(0), "-")
        For x As Integer = t3(0) To t3(1)
            n = Trim(Str(x))
            Do
                If Len(n) < Len(t3(0)) Then n = "0" + n
            Loop Until Len(n) >= Len(t3(0))
            ImageURL = ImageURL + t1(0) + n + t2(1)
            If x < t3(1) Then ImageURL = ImageURL + vbNewLine
        Next
        ImageList = Split(ImageURL, vbNewLine)
        If ImageNumber <> -1 Then
            MyHTML = "<style type='text/css'>body{ margin: 0; padding: 0 } </style><img src='" + ImageList(ImageNumber) + "' Width='100%'>"
        Else
            MyHTML = "<style type='text/css'>body{ margin: 0; padding: 0 } </style>"
            For c = 0 To UBound(ImageList) - 1
                ImageURL = ImageList(c)

                If c = 0 Then
                    MyHTML = MyHTML + "<a href='#2' name='1'><img src='" + ImageURL + "' Width='100%'></a>"
                Else
                    MyHTML = MyHTML + "<a name='" + Trim(Str(c + 1)) + "' href='#" + Trim(Str(c + 2)) + "'><img src='" + ImageURL + "' Width='100%'></a>"
                End If
                z = c
            Next
            MyHTML = MyHTML + "<a name='" + Trim(Str(z + 2)) + "' href='#1'><img src='" + ImageList(z + 1) + "' Width='100%'></a>"
        End If
        If ViewStyle = 1 Then
            MyHTML = Replace(MyHTML, "Width=", "Height=")
            MyHTML = Replace(MyHTML, "</a><br>", "</a>")
        End If
        If ViewStyle = 2 Then
            MyHTML = Replace(MyHTML, "Width=", "Height=")
            MyHTML = Replace(MyHTML, "</a>", "</a><br>")
        End If
        If ViewStyle = 3 Then
            MyHTML = Replace(MyHTML, "Height=", "Width=")
            MyHTML = Replace(MyHTML, "</a><br>", "</a>")
        End If
        WebBrowser1.DocumentText = MyHTML

    End Sub

    Public Sub FuskerListbox(ByVal FuskerURL As String, ByRef ListBoxName As ListBox)
        ListBoxName.Items.Clear()
        ImageNumber = 0
        If ViewStyle = 1 Then
            ListBoxName.Items.Add("M1*")
            ListBoxName.Items.Add("M2")
            ListBoxName.Items.Add("M3")
        End If
        If ViewStyle = 2 Then
            ListBoxName.Items.Add("M1")
            ListBoxName.Items.Add("M2*")
            ListBoxName.Items.Add("M3")
        End If
        If ViewStyle = 3 Then
            ListBoxName.Items.Add("M1")
            ListBoxName.Items.Add("M2")
            ListBoxName.Items.Add("M3*")
        End If
        ListBoxName.Items.Add("")
        t1 = Split(FuskerURL, "[")
        t2 = Split(t1(1), "]")
        t3 = Split(t2(0), "-")
        For x As Integer = 1 To (t3(1) - t3(0)) + 1
            ListBoxName.Items.Add(x)
        Next
        ListBoxName.Items.Add("")
        ListBoxName.Items.Add("Wall")

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim i As Integer = ComboBox2.SelectedIndex
        If i = -1 Then Exit Sub
        FuskerURL = ComboBox2.Items(i)
        Call FuskerListbox(FuskerURL, ListBox2)
        Call FuskerDisplay(WebBrowser1, FuskerURL, 0)
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim i As Integer = ComboBox1.SelectedIndex
        If i = -1 Then Exit Sub
        FuskerURL = ComboBox1.Items(i)
        Call FuskerListbox(FuskerURL, ListBox2)
        Call FuskerDisplay(WebBrowser1, FuskerURL, 0)
    End Sub

    Private Sub ListBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.Click
        Dim i As Integer = ListBox2.SelectedIndex
        If i = -1 Then Exit Sub
        If i = 0 Then
            ListBox2.Items(0) = "M1*"
            ListBox2.Items(1) = "M2"
            ListBox2.Items(2) = "M3"
            ViewStyle = 1
        End If
        If i = 1 Then
            ListBox2.Items(0) = "M1"
            ListBox2.Items(1) = "M2*"
            ListBox2.Items(2) = "M3"
            ViewStyle = 2
        End If
        If i = 2 Then
            ListBox2.Items(0) = "M1"
            ListBox2.Items(1) = "M2"
            ListBox2.Items(2) = "M3*"
            ViewStyle = 3
        End If
        If i < 3 Then
            Call FuskerDisplay(WebBrowser1, FuskerURL, ImageNumber)
            Exit Sub
        End If
        If i = 3 Then Exit Sub
        If i = ListBox2.Items.Count - 2 Then Exit Sub
        If i < ListBox2.Items.Count - 1 Then
            ImageNumber = i - 4
        Else
            ImageNumber = -1
        End If
        Call FuskerDisplay(WebBrowser1, FuskerURL, ImageNumber)
    End Sub
End Class

Compile in visual studio

Add to your form

button2
textbox1
combobox1
combobox2
listbox1 (invisible)

[BitStick]

?

Lots of views and nobody saying I cant a link!!

[greyhawk]

No one pays for porn, dude.

[BitStick]

No one pays for porn, dude.

You don't have to you get the first 2,000 galleries for free