CoolBasic Forums

Pate5 wrote:Jos olisit vielä tutustunut hieman tarkemmin Flame/Skyswiper -viruksen taustaan, olisit huomannut, että viruksen epäillään olleen levityksessä pari vuotta. Eli johtojen nykäiseminen tuskin auttaa.

Untitled.bmp wrote:

Pate5 wrote:Jos olisit vielä tutustunut hieman tarkemmin Flame/Skyswiper -viruksen taustaan, olisit huomannut, että viruksen epäillään olleen levityksessä pari vuotta. Eli johtojen nykäiseminen tuskin auttaa.

Eli tuo virus on ollut jo parisen vuotta piilossa Microsoft Updatessa? Voi kristus..

TheDuck wrote:...................................................argh. Kyseinen viirus ei ole windows updatessa, etkä siis mitenkään voi sieltä sitä sieltä saada. Uutisen pointti oli, että jos koneessasi on kyseinen viirus, se pystyy päivittämään itseään windows updaten kautta asettumalla windows updaten palvelimien ja tietokoneesi väliin. Eli siis jos koneessasi on Flame, pystyy se esittämään windows updatea ladatessaan päivityksiä itseensä.

Chaosworm wrote:

skinkken wrote:Musiikki 10

Mitä tämä malo on?

En nyt tarkoita sitä, ettet ansaitsisi musiikista kymppiä, mutta ihmetystä kovasti aiheuttaa se, että musiikista kympin saaminen on edes mahdollista. Onko Suomessa todellakin peruskoulun musiikinopettajia, jotka arvostelevat oppilaita musiikillisen osaamisen perusteella?

skinkken wrote:Soitan pianoa, 3/3 tutkinto suoritettu. Soitin vähän näytiksi ja heti tuli kymppi.

On olemassa 1/3, 2/3, 3/3, D, C, B ja A tutkinnot ja ope on yleensä antanut vähän ylempiä tasoja vastaavia kappaleita kuin mitä kurssia olen suorittamassa. Nyt olen D:tä tekemässä ja joitakin C-kurssin kappaleita soitellut.

TheDuck wrote:...................................................argh. Kyseinen viirus ei ole windows updatessa, etkä siis mitenkään voi sieltä sitä sieltä saada. Uutisen pointti oli, että jos koneessasi on kyseinen viirus, se pystyy päivittämään itseään windows updaten kautta asettumalla windows updaten palvelimien ja tietokoneesi väliin. Eli siis jos koneessasi on Flame, pystyy se esittämään windows updatea ladatessaan päivityksiä itseensä.

Pettis wrote:Ei, vaan nimenomaan se voi tulla koneelle windows updaten kautta. Microsoftin sertifikaattikämmien vuoksi ohjelmistojen tekijät voi esittää olevansa windows update ja man-in-the-middle -hyökkäyksellä tunkea koneeseen mitä lystää, käytännössä itse viruksen.

esa94 wrote:

Pettis wrote:Ei, vaan nimenomaan se voi tulla koneelle windows updaten kautta. Microsoftin sertifikaattikämmien vuoksi ohjelmistojen tekijät voi esittää olevansa windows update ja man-in-the-middle -hyökkäyksellä tunkea koneeseen mitä lystää, käytännössä itse viruksen.

Mutta täysin puhtaaseen verkkoon ei onnistu koska täytyy DNS spoofata.

Pettis wrote:

esa94 wrote:

Pettis wrote:Ei, vaan nimenomaan se voi tulla koneelle windows updaten kautta. Microsoftin sertifikaattikämmien vuoksi ohjelmistojen tekijät voi esittää olevansa windows update ja man-in-the-middle -hyökkäyksellä tunkea koneeseen mitä lystää, käytännössä itse viruksen.

Mutta täysin puhtaaseen verkkoon ei onnistu koska täytyy DNS spoofata.

Ei se ole ainoa tapa tehdä man-in-the-middle -hyökkäystä. Nyt taitaa olla sinun vuoro mennä opettelemaan asioita ja ymmärtämään luettua kun sitä täällä niin monesta sanot.

rami123 wrote:Tervehdys!

Siitä on ollut pitkähkö aika kun viimeksi täällä vierailin, ei ole aikaa ollut eikä jaksamista koulujen takia. Nyt on kesäloma ja aikaa. Tässä ootellessa kannettavaa, tilasin suoraan sonyltä jokusen aikaa sieltä menee. Pääsee kunnolla cb:n pariin.

Miten on cb v3:sen tilanne?

VesQ wrote:Sillä välin kun CBC valmistuilee - -

naputtelija wrote:On se kiva kun huomaa, etten ole Lapin ainoa CB:läinen. Onkos foorumeilla muitakin Lapista minun ja ramin lisäksi?

MaGetzUb wrote:Tutkiskelimpas tässä huvikseni wanhan CoolBasicin tyyppien toimintaa. Huomasin että ConvertToIntegerillä saatua osoitetta voi ofc käyttää muistipalana. Noh tulikin tutkittua melko perusteellisesti. Okei siis, Ensimmäiset 4 tavua näyttävät tyypin jäsenessä olevan viite edelliseen tyypin jäseneen, ja neljä seuraavaa tavua näyttävät olevan viite seuraavaan jäseneen. Ja tavusta 12 eteenpäin alkaa käyttäjän oma määrittelemä data.

Code: Select all

Type TestType
    Field _short As Short //varataan 2 tavua
    Field _string As String //varataan viite merkkijonolle
End Type 

Dim A.TestType
Dim B.TestType
Dim C.TestType 

A = New (TestType)
B = New (TestType)
C = New (TestType)

B\_short = 1234
B\_string = "Wanha cb on yllätyksiä täynnä."

SCREEN 900, 600

block = ConvertToInteger(B)

Color 255, 0, 0
Print "Jäsenen A osoite: "+Hex(ConvertToInteger(A))
Color 0, 255, 255
Print "Jäsenen C osoite: "+Hex(ConvertToInteger(C))

Color 255, 255, 255
//Käyttäjän oma data alkaa tavusta 12
Print PeekShort(block, 12)

Print ""
blockSize = MEMBlockSize(block)
Print "Tyyppijäsenen muistipalan koko: "+blocksize
//Tiedetään, että _short muuttuja vie 2 tavua, luetaan siis tavusta 14 osoitin merkkijonoon
Print ""
refText = PeekInt(block, 14)
lenght = MEMBlockSize(refText) //Tarkistetaan merkkijonon pituus

Print "Tässä tulee _string:n osoite: "+Hex(refText)
Print ""

Color 255, 128, 0
Print "Mitä osoite sisältää: "


Color 255, 255, 0
For i = 0 To lenght-1
    Write Chr(PeekByte(refText, i))
Next i
Print ""
Print ""


Color 255, 255, 255 
Print "0 - 3 tavut viittaavat edelliseen tyypin jäseneen"
Print "3 - 7 tavut viittaavat seuraavaan tyypin jäseneen"
Print ""
Print ""
Print "Data alkaa: "
For i = 0 To blockSize
    s$ = Hex(PeekByte(block, i))
    If i=> 0 And i=< 3 Then Color 255, 0, 0 : s$ = s$ + " <- Jäsen A"
    If i > 3 And i=< 7 Then Color 0, 255, 255 : s$ = s$ + " <- Jäsen C"
    If i > 7 Then Color 255, 255, 255

    If i=< 7 Then s$ = StrInsert(s$, 6, "   ")
    If i = 8 Then s$ = s$ + " <- Tämä tavu tässä, mikä se on? Se ei ainakaan ole mikään järjestys luku."
    If i = 12 Then s$ = s$ + " <- Tässä alkaa käyttäjän itse määrittelemä data. "
    Print i +" == "+ Hex(i)+" :: "+s$
Next i

WaitKey 

Eipä tässä muuta, ajattelin että tätä tietoahan voisi koittaa soveltaa DLL:ien kanssa...

MaGetzUb wrote:Tutkiskelimpas tässä huvikseni wanhan CoolBasicin tyyppien toimintaa. Huomasin että ConvertToIntegerillä saatua osoitetta voi ofc käyttää muistipalana. Noh tulikin tutkittua melko perusteellisesti. Okei siis, Ensimmäiset 4 tavua näyttävät tyypin jäsenessä olevan viite edelliseen tyypin jäseneen, ja neljä seuraavaa tavua näyttävät olevan viite seuraavaan jäseneen. Ja tavusta 12 eteenpäin alkaa käyttäjän oma määrittelemä data.

SCREEN 900, 600

Dim formats(4) As String 

Type IntType
    Field a 
End Type 

formats(1) = "i"

Type StringType
    Field b$ 
End Type 

formats(2) = "s"

Type MultType
    Field h As Short 
   Field i
    Field s As String 
End Type 

formats(3) = "his"

Type Triangle
    Field p1 As Float
   Field p2 As Float
   Field p3 As Float
End Type 

formats(4) = "fff"

For i=0 To 3

   in.IntType = New (IntType)
   in\a = Rand(255)
   
   st.StringType = New (StringType)
   st\b = "StringType instance number "+i
   
   mu.MultType = New (MultType)
   mu\h = Rand(64)
   mu\i = Timer()
   mu\s = "MultType instance number "+i
   
   tr.Triangle = New (Triangle)
   tr\p1 = Rnd(0.0,1.0)
   tr\p2 = Rnd(0.0,1.0)
   tr\p3 = Rnd(0.0,1.0)

Next i

Print "Printing out IntType instances"

For m1.IntType = Each IntType
   printTypeContents(ConvertToInteger(m1))
Next m1

WaitKey 
Cls 
Locate 0,0

Print "Printing out StringType instances"

For m2.StringType = Each StringType
   printTypeContents(ConvertToInteger(m2))
Next m2

WaitKey
Cls 
Locate 0,0

Print "Printing out MultType instances"

For m3.MultType = Each MultType
   printTypeContents(ConvertToInteger(m3))
Next m3

WaitKey
Cls 
Locate 0,0

Print "Printing out Triangle instances"

For m4.Triangle = Each Triangle
   printTypeContents(ConvertToInteger(m4))
Next m4

WaitKey

Function printTypeContents(mem)

   pointer = 12
   size = MEMBlockSize(mem)
   typeID = PeekInt(mem,8)
   
   format$ = formats(typeID)
   
   Print "Memblock("+size+") @ "+mem+" of Type: "+typeID
   Print "Prev: "+PeekInt(mem,0)+" Next: "+PeekInt(mem,4)
   
   For i=1 To Len(format$)
   
      c$ = Mid(format$,i,1)
      
      Select c$
         Case "s"
         
            strPntr = PeekInt(mem,pointer)
            
            strLen = MEMBlockSize(strPntr)
            
            s$ = ""
            
            For o=0 To strLen-1
               s$ = s$ + Chr(PeekByte(strPntr,o))
            Next o
            
            Print "String("+strLen+") @ "+pointer+": "+s$
            
            pointer = pointer +4
            
         Case "i"
         
            Print "Integer @ "+pointer+": "+PeekInt(mem,pointer)
         
            pointer = pointer +4
         
         Case "h"
         
            Print "Short @ "+pointer+": "+PeekShort(mem,pointer)
         
            pointer = pointer +2
         
         Case "b"
         
            Print "Short @ "+pointer+": "+PeekByte(mem,pointer)
         
            pointer = pointer +1
         
         Case "f"
         
            Print "Float @ "+pointer+": "+PeekFloat(mem,pointer)
         
            pointer = pointer +4
         
      End Select 
   
   
   Next i
   
   Print "" 

End Function