Title: Am I allowed to sell this here?
Post by: BitStick on January 31, 2013, 11:56:27 AM
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?
Title: Re: Am I allowed to sell this here?
Post by: Herodes on January 31, 2013, 11:59:55 AM
Better open source it, so we're sure nothing nefarious is going on.
Title: Re: Am I allowed to sell this here?
Post by: BitStick on January 31, 2013, 12:12:52 PM
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. 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> This is a VERY basic fusker viewer.<p/>" MyHTML = MyHTML + "<p><p/>" MyHTML = MyHTML + " To begin leave the search box empty and click the search button to get a list of all fusker links.<br>" MyHTML = MyHTML + " 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 + " Select a fusker URL from the drop down listbox and the first image will be displayed.<br>" MyHTML = MyHTML + " 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 + " 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> The view modes (M1 M2 M3)<p/>" MyHTML = MyHTML + " If you're viewing a single image.<br>" MyHTML = MyHTML + " M1 & M2 are both the same, they set the image to be the height of the browser.<br>" MyHTML = MyHTML + " M3 sets the image to be the width of the browser.<br>" MyHTML = MyHTML + "<p><p/>" MyHTML = MyHTML + " If your viewing an image wall.<br>" MyHTML = MyHTML + " M1 will sometimes display small images two at a time.<br>" MyHTML = MyHTML + " M2 will only display one image at a time.<br>" MyHTML = MyHTML + " M3 is the same as single image, it just sets it to fit width.<br>" MyHTML = MyHTML + "<p> <p/>" MyHTML = MyHTML + "<p> <p/>" MyHTML = MyHTML + "<p> <p/>" MyHTML = MyHTML + "<p> <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)
Title: Re: Am I allowed to sell this here?
Post by: BitStick on January 31, 2013, 02:50:55 PM
????
Lots of views and nobody saying I cant a link!!
Title: Re: Am I allowed to sell this here?
Post by: greyhawk on January 31, 2013, 02:58:37 PM
No one pays for porn, dude.
Title: Re: Am I allowed to sell this here?
Post by: BitStick on January 31, 2013, 03:04:42 PM
No one pays for porn, dude.
You don't have to you get the first 2,000 galleries for free ;D
|