Messages

1

Bugs & Feature Requests / Source code?

« on: March 24, 2015, 06:11:11 am »

I was wondering if there are any plans on making the source code available?
When I tried to decompile it ends up as being pretty distorted vb6 code, pretty much unreadable and certainly not compilable.

I had interest in making something similar to bitche (in C#) - and it would be pretty useful to know the innerworkings of bitche... (Especially the script parser)

2

Scripts & Development / My contribution: Baconbits

« on: June 10, 2014, 01:14:33 am »

This topic: http://www.convivea.com/forums/index.php?topic=252.0

Permanent Access:
    [...]
    Anyone who provides a working Script for Bit Che

So I thought lets try.
I'm not sure what the process is to submit stuff like this, so I'll just post it here.

Here's the script:

Code: [Select]

[script]
name=Baconbits.org
source=Baconbits.org
modified=Ron 2014/06/10
pwd=1
version=3

[home]
1=https://baconbits.org/

[profiles]
all=/torrents.php?searchstr=%SEARCH%&taglist=&tags_type=1&order_by=time&order_way=desc&group_results=0&searchsubmit=1
audio=/torrents.php?searchstr=%SEARCH%&taglist=&tags_type=1&order_by=time&order_way=desc&filter_cat[1]=1&group_results=0&searchsubmit=1
apps=/torrents.php?searchstr=%SEARCH%&taglist=&tags_type=1&order_by=time&order_way=desc&filter_cat[2]=1&group_results=0&searchsubmit=1


[login]
login=https://baconbits.org/login.php
form=username=%USER%&password=%PASS%&keeplogged=1
referer=https://baconbits.org/login.php
failed=Location: login.php
failed2=action="login.php"

[code1]
x=findh(@i,@data,`"torrent_table"`,`/tr>`)
z=find(x,@data,`</table>`)
@data=crop(@data,x,z)
@data=vacuum(@data)
@home=&(@home,`/`)
@data=replace(@data,`'`,``)
@data=replace(@data,`&amp;`,`&`)
@data=replace(@data,`<strong>`,``)
@r=split(@data,`</tr>`)
start
@q=split(@r,`</td>`,2)
t=array(q,1)
$torrent=extract(@i,t,`href="`,`"`,@home)
x=find(@i,t,`"View Torrent"`)
x=findrev(x,t,`href=`)
$page=extract(x,t,`="`,`"`,@home)
x=findrev(x,t,`</span>`)
$name=extract(x,t,`>`,`<div`)
x=find(x,t,`"torrent_info"`)
if (x>0) then
n=extract(x,t,`>`,`</`)
$name=&($name,` - `,n)
end if
$date=array(q,3)
$size=array(q,4)
$seeds=array(q,6)
$leeches=array(q,7)

aloop
[/code1]

Here's a picture to show its working, in case you don't have access: http://i.imgur.com/VUGajoa.png

Enjoy