Bitcoin Forum
November 22, 2017, 08:58:04 PM *
News: Latest stable version of Bitcoin Core: 0.15.1  [Torrent].
 
   Home   Help Search Donate Login Register  
Pages: [1]
  Print  
Author Topic: Am I allowed to sell this here?  (Read 603 times)
BitStick
Jr. Member
*
Offline Offline

Activity: 32


View Profile
January 31, 2013, 11:56:27 AM
 #1

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?
1511384284
Hero Member
*
Offline Offline

Posts: 1511384284

View Profile Personal Message (Offline)

Ignore
1511384284
Reply with quote  #2

1511384284
Report to moderator
1511384284
Hero Member
*
Offline Offline

Posts: 1511384284

View Profile Personal Message (Offline)

Ignore
1511384284
Reply with quote  #2

1511384284
Report to moderator
Join ICO Now A blockchain platform for effective freelancing
Advertised sites are not endorsed by the Bitcoin Forum. They may be unsafe, untrustworthy, or illegal in your jurisdiction. Advertise here.
1511384284
Hero Member
*
Offline Offline

Posts: 1511384284

View Profile Personal Message (Offline)

Ignore
1511384284
Reply with quote  #2

1511384284
Report to moderator
Herodes
Hero Member
*****
Offline Offline

Activity: 868


View Profile
January 31, 2013, 11:59:55 AM
 #2

Better open source it, so we're sure nothing nefarious is going on.
BitStick
Jr. Member
*
Offline Offline

Activity: 32


View Profile
January 31, 2013, 12:12:52 PM
 #3

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
Jr. Member
*
Offline Offline

Activity: 32


View Profile
January 31, 2013, 02:50:55 PM
 #4

Huh?

Lots of views and nobody saying I cant a link!!
greyhawk
Hero Member
*****
Offline Offline

Activity: 924


View Profile
January 31, 2013, 02:58:37 PM
 #5

No one pays for porn, dude.
BitStick
Jr. Member
*
Offline Offline

Activity: 32


View Profile
January 31, 2013, 03:04:42 PM
 #6

No one pays for porn, dude.

You don't have to you get the first 2,000 galleries for free  Grin
Pages: [1]
  Print  
 
Jump to:  

Sponsored by , a Bitcoin-accepting VPN.
Powered by MySQL Powered by PHP Powered by SMF 1.1.19 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!