Valhalla Legends Archive

ok so iv been working on a portscanner in php (dont ask y php cuz i really dont know) but i was wondering if anyone could help me figure out how to "probe" the ports for more data, i gota port 80 returning OS along with other info (as long as its a server) but i cant seem to get the rest of them to work.


$ptcp = @fsockopen($ip, $port, &$errno, &$errstr, $this->wait);
$data = @fgets($ptcp,10000);


is how im connectiong, from there it goes and processes the return from the host and checks the database to see if it has any info on the port

Zer0

Edit: added the code


Dim byKey() As Byte = {}
byKey() = System.Text.Encoding.UTF8.GetBytes(VB.Left(strEncrKey, 8))


i am working on a program and the 2nd line of code is giving me the error and here's the error


Number of indices is less than the number of dimensions of the indexed array.


ya FTPd i forgot the d in my post

a FTP Server

I was wondering if anyone could point me in the right direction to learn more about writing a FTP Server, i have been looking around at diffrent ones and cant find anything that is as flexiable as i need it to be. I have been working on a CP in PHP for my servers and cant find any server that will allow me to interlace the two (as in making users from the cp, creating the dirs all that fin stuff), so if you know of one please tell me.

Zer0

a SHOULD be
Bla4;100
split at ";"

so a(0) should be
Bla4
and a(1) should be
100

a(0) is set correctly, but a(1) is empty

--edit:
ok im not sure what i did but i got it to split correctly on load, but now when i try and delte a row (this is a listbox) it throws that same error at me the code im using to delete a row is

    Function remove_user()
        If userIndex.Text <> Nothing Then
            userDb.Items.RemoveAt(userIndex.Text)
            Return "User [ " + addUserName.Text + " ] removed from database."
        Else
            Return "User was not found in the database."
        End If
    End Function


soo ne ideas on this one :p

---edit again

ok, i decided to look at this from a diffrent aproach on the delete part and got it working, i was tryong to splt info that wasnt there so now i got both parts working


   Function enter_user_info(ByVal selected As String)
        Dim a() As String
        Dim linein As String = selected
        a = linein.Split(";")
        addUserName.Text = a(0)
        addUserLevel.Text = a(1)
        Return True
    End Function


ok i have bee driving myself crazy all night over this, i finalyl got split to return A value. It is only returning one. The value of selected is
Bla4;100

the error it spits at me is
Index was outside the bounds of the array.
as if there isnt 2 values in the array. when obviusley there is.... or should be

ok now this is confusing the crap outa me, i use

Return Key.GetValue(ValueName).ToString

and it finds the right key n everything thats not the problem but it doesnt return the value of whats inside it returns

True

any ideas?

--edit spent some time messing with diff reg functuins and got it working

In the past i have had a lil trouble with my friends that play SC when they come over they take the honor of adding themselves through the bot itself to add themselves as master or w/e it is on that perticuliar bot, i have added a lock feature to my bot. I was wondering of anyone could think of a "secure" way that i could make it so the bot i still locked even if it is closed and re-opened. Currently i am just storing the password used to lock it (set when u lock the bot) in a unvisable text box. Any ideas, i thought of registery but some of my friends r smart enough to look there if they really wanted to get to it, cant store it in a file in the bots dir (obviously)....

-edit: jus realized this is posibley the wroung place for this

thank ya myndfyre worked like a charm

ok i finally figured out how to do it, now i have another problem with the same thing, i am using a richtextbox to log the hash managers action so you can know when it is done and so on but it dont seem to likem e doing that i keep getting

"Cross-thread operation not valid: Control 'hashLog' accessed from a thread other than the thread it was created on."

heres the code im using (very basic threading)


    Private Sub Hashstar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hashstar.Click
        hashStatus.Text = "Downloading..."
        Dim wc As New System.Net.WebClient()
        Directory.CreateDirectory(App_Path() + "/star")

        ThreadTest = New System.Threading.Thread(AddressOf sc_start)
        ThreadTest.Start()
       
        hashRefresh()
        hashStatus.Text = "Done SC..."
    End Sub

    Public Sub sc_start()
        dl_file("star", "starcraft.exe")
        dl_file("star", "battle.snp")
        dl_file("star", "storm.dll")
        dl_file("star", "ver.txt")
    End Sub

    Public Function dl_file(ByVal hash As String, ByVal filen As String)
        If hash <> "" And filen <> "" Then
            Dim wc As New System.Net.WebClient()
            Dim filecheck As String
            filecheck = File.Exists(App_Path() + "/" + hash + "/" + filen).ToString()
            If filecheck = False Then
                wc.DownloadFile("http://www.allieszer0.com/hash/" + hash + "/" + filen, _
                         App_Path() + "/" + hash + "/" + filen)
                log_hashes(hash + "/" + filen + " : Downloaded" + vbCr)
            ElseIf filecheck = True Then
                log_hashes(hash + "/" + filen + " : Already Exists" + vbCr)
            End If
        End If
        Return True
    End Function

    Public Function log_hashes(ByVal log As String)
        hashLog.Text = hashLog.Text + log
        Return True
    End Function


that is every function involved so far, i havent tried the threading on ne thing but SC yet

i dont think i worded that very well, but it is 100% working i just want you to be able to do other things and not have the program stop while the files download

Ok, my example i made a hash manager and while the hashes are downloading the program like "freezes" i remember at one time seeing there was a way to fix this but i cant remember what it was heres the code if it helps any


    Private Sub Hashstar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hashstar.Click
        hashStatus.Text = "Downloading..."
        Dim wc As New System.Net.WebClient()
        Directory.CreateDirectory(App_Path() + "/star")
        hashOne.Text = "Starcraft.exe Exists?"
        hashBox1.Text = File.Exists(App_Path() + "/star/starcraft.exe").ToString()
        If hashBox1.Text = False Or hashOverite.Text = "Yes" Then
            wc.DownloadFile("http://www.***zer0.com/hash/star/starcraft.exe", _
                     App_Path() + "/star/starcraft.exe")
            hashBox1.Text = "Downloaded"
        End If
        hashTwo.Text = "Battle.snp Exists?"
        hashBox2.Text = File.Exists(App_Path() + "/star/battle.snp").ToString()
        If hashBox2.Text = False Or hashOverite.Text = "Yes" Then
            wc.DownloadFile("http://www.***zer0.com/hash/star/battle.snp", _
                     App_Path() + "/star/battle.snp")
            hashBox2.Text = "Downloaded"
        End If
        hashThree.Text = "Storm.dll Exists?"
        hashBox3.Text = File.Exists(App_Path() + "/star/storm.dll").ToString()
        If hashBox3.Text = False Or hashOverite.Text = "Yes" Then
            wc.DownloadFile("http://www.***zer0.com/hash/star/storm.dll", _
                     App_Path() + "/star/storm.dll")
            hashBox3.Text = "Downloaded"
        End If
        verCheck = File.Exists(App_Path() + "/star/ver.txt").ToString()
        If verCheck = False Or hashOverite.Text = "Yes" Then
            wc.DownloadFile("http://www.***zer0.com/hash/star/ver.txt", _
                     App_Path() + "/star/ver.txt")
        End If
        If hashOverite.Text = "Yes" Then
            hashBox3.Text = "Overwritten"
            hashBox2.Text = "Overwritten"
            hashBox1.Text = "Overwritten"
        End If
        hashRefresh()
        hashStatus.Text = "Done SC..."
    End Sub


[link]http://www.jinxbot.net/netskinex/[/link]

let me just make sure i am understanding u right so

Program Starts -> Load Users Into Array

-edit question removed, answered on aim

Program Ends -> Save Array Back into Files

also can anyone help me with the save on close part