Seite 1 von 3 123 LetzteLetzte
Ergebnis 1 bis 10 von 22
  1. #1
    Fortgeschrittener Avatar von Padrino
    Registriert seit
    25.10.2011
    Beiträge
    37

    Standard [VB.Net]Fragen/Antworten & TuT Reuqests [Sammelthread]

    Hier könnt ihr Anfragen zu Tutorials oder einfach nur Fragen zu bestimmten Funktionen(z.b ihr wisst was ihr machen wollt, aber euch fällt kein passender Befehl dazu ein) stellen.

    Ich werde dann ggf. ein Tutorial schreiben bzw. darauf Antworten

    (Leute, die genug ahnung von vb.net haben können natürlich auch antworten, aber bitte keinen schwachsinn)


    Historie:
    Wie man einen String zwischen 2 Strings ausliest + Base64 Algorythmus (Klick!)
    Wie man in einem Webbrowser einen Bestimmtes Element aussucht, und anklickt (Klick!)


    MFG Padrino
    Geändert von Padrino (05.11.2011 um 22:03 Uhr)

  2. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    Rastajan (28.10.2011), roccihrs (29.10.2011), till7 (27.10.2011)

  3. #2
    Fortgeschrittener Avatar von Rastajan
    Registriert seit
    14.03.2009
    Beiträge
    43

    Standard

    Cooler Service
    Also ich wüsste gerne wie ich in einem Text bestimmte Zeilen in Chars wie z.B. " und > die verschlüsselt Wurden entschlüsseln und wieder verschlüsseln kann.
    Als Beispielverschlüsselung, bzw in meinem Fall ist es Base64.

    Gruß, Rastajan.
    Geändert von Rastajan (28.10.2011 um 20:13 Uhr)
    ~Hackhound Malware Analysis / Reverse Engineering & GFX Staff~


  4. #3
    Fortgeschrittener Avatar von Padrino
    Registriert seit
    25.10.2011
    Beiträge
    37

    Standard

    Nimm dir eine Richtextbox, wo du deinen text rein machst.
    Und dann sieht der Code wie folgt aus:


    Funktion zum Entschlüsseln eines Base64-Hashs
    HTML-Code:
    Public Function DecryptBase64(ByVal sText As String) As String
    Dim nBytes() As Byte = System.Convert.FromBase64String(sText)
    Return System.Text.Encoding.Default.GetString(nBytes)
    End Function



    Funktion zum Verschlüsselb eines Strings in einen Base64-Hash

    HTML-Code:
     Public Function EncryptBase64(ByVal sText As String) As String
    Dim nBytes() As Byte = System.Text.Encoding.Default.GetBytes(sText)
    Return System.Convert.ToBase64String(nBytes)
    End Function
    Nun zum ausführen(ENTSCHLÜSSELN // Ich nehme hierzu mal einen Button)
    HTML-Code:
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    On Error Resume Next
    For Each line In RichTextBox1.Lines
    Dim hash As String = Split(Split(line, """")(1), ">")(0) 
    Dim plain As String = DecryptBase64(hash)
    RichTextBox1.Text = RichTextBox1.Text.Replace(hash, plain)
    Next
    End Sub



    Und zum Verschlüsseln // nehme ich mal einen zweiten Button)
    HTML-Code:
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    On Error Resume Next
    For Each line In RichTextBox1.Lines
    Dim plain As String = Split(Split(line, """")(1), ">")(0)
    Dim hash As String = EncryptBase64(plain)
    RichTextBox1.Text = RichTextBox1.Text.Replace(plain, hash)
    Next
    End Sub
    In deiner Richtextbox1 wird dann der Output am ende auch ausgegeben


    ################################################## #
    ################################################## #


    Merke:
    Um einen String zwischen 2 bekannten strings auszulesen benutzt man die Split funktion:
    HTML-Code:
    Dim Text as String = split(split("<title>Padrino</title>", "<title>")(1), "</title>")(0)
    In der Variable Text steht nun: Padrino
    Denn wir haben unseren Text ab <title> bis </title> gesplittet, und das was dazwischen ist uns so ausgelesen.


    Hoffe das ist verständlich, ansonsten einfach nochmal fragen und ich schaue, dass ich es genauer erkläre

    MFG Padrino
    Geändert von Padrino (28.10.2011 um 22:48 Uhr)

  5. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    Rastajan (28.10.2011)

  6. #4
    Capt'n Crunch Avatar von till7
    Registriert seit
    10.07.2008
    Beiträge
    995

    Standard

    Könntest auch anstatt immer "System.Text.Encoding.Default.GetString()" zu schreiben, einfach oben schreiben: "Imports System.Text" und dann mit "Encoding.Default.GetString()".

    Sparst du bisschen Code. Sonst ist es denk ich schön erklärt.
    Guter Thread.
    gestohlen.

  7. #5
    FHler aus Leidenschaft Avatar von Bart2oo
    Registriert seit
    20.09.2010
    Beiträge
    129

    Standard

    Könntest du ein Tutorial zum Thema "Chat" schreiben

  8. #6
    CIH-Virus Avatar von roccihrs
    Registriert seit
    07.04.2009
    Beiträge
    437

    Standard

    -
    Geändert von roccihrs (25.05.2016 um 01:49 Uhr)


  9. #7
    Richard Stallman Avatar von Sawyer
    Registriert seit
    26.07.2008
    Beiträge
    2.037

    Standard

    Funktioniert, lässt sich sicherlich aber auch noch anders umsetzen.

    Code:
            If TextBox1.Text.Length = 25 Then
                TextBox2.Text = TextBox1.Text.Substring(0, 5)
                TextBox3.Text = TextBox1.Text.Substring(5, 5)
                TextBox4.Text = TextBox1.Text.Substring(10, 5)
                TextBox5.Text = TextBox1.Text.Substring(15, 5)
                TextBox6.Text = TextBox1.Text.Substring(20, 5)
            End If
    MfG, Sawyer
    Geändert von Sawyer (30.10.2011 um 13:54 Uhr)

  10. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    roccihrs (30.10.2011)

  11. #8
    W32.FunLove Avatar von Death~
    Registriert seit
    17.10.2011
    Beiträge
    134

    Standard

    Zitat Zitat von Bart2oo Beitrag anzeigen
    Könntest du ein Tutorial zum Thema "Chat" schreiben
    [ame]http://www.youtube.com/watch?v=PvvTgDkko-w&feature=channel_video_title[/ame]

    Könnte ich nicht besser machen


    @roccihrs

    Hab dir mal was kleines geschrieben:

    Code:
     Dim TBlist As New List(Of TextBox)
            TBlist.Add(TextBox2)
            TBlist.Add(TextBox3)
            TBlist.Add(TextBox4)
            TBlist.Add(TextBox5)
            TBlist.Add(TextBox6)
    
            Dim str As String = TextBox1.Text
            For Each tb In TBlist
                tb.Text = str.Substring(0, 5)
                str = str.Remove(0, 5)
            Next
    Lord, what fools these mortals be


  12. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    roccihrs (30.10.2011)

  13. #9
    reizüberflutung Avatar von N4dja
    Registriert seit
    26.08.2007
    Beiträge
    398

    Standard

    Könntest du zeigen wie meine eine HardwareID Klasse in VB.NET macht ?
    Muss nicht großartig aufwendig sein nur wie man z.B die HardwareID aus dem Prozessor rauslesen. Wäre auch natürlich nett wenn du Zeigst wie man es aus den restlichen Komponenten wie der Grafikkarte oder des Maiboard ließt.

    ~Acsiii

  14. #10
    W32.FunLove Avatar von Death~
    Registriert seit
    17.10.2011
    Beiträge
    134

    Standard

    @Acsiii
    Hier ein Beispiel von politoxy: http://www.multiupload.com/5JHRKY0LJ6
    MfG
    Lord, what fools these mortals be


  15. Folgende Benutzer haben sich für diesen Beitrag bedankt:

    N4dja (30.10.2011)

Seite 1 von 3 123 LetzteLetzte

Ähnliche Themen

  1. Sammelthread: Photoshop, Cinema 4D etc. Tutorials
    Von Vitamin X im Forum GFX Tipps & Tutorials
    Antworten: 1
    Letzter Beitrag: 27.09.2011, 15:15
  2. C/C++ Bücher/Tutorials Sammelthread
    Von blackberry im Forum C, C++
    Antworten: 33
    Letzter Beitrag: 31.08.2010, 15:15
  3. Sammelthread: Photoshop, Cinema 4d etc. V-Tutorials
    Von styl0r^ im Forum GFX Tipps & Tutorials
    Antworten: 12
    Letzter Beitrag: 25.08.2010, 21:54
  4. .NET Bücher/Tutorials Sammelthread
    Von Sawyer im Forum .NET Sprachen - Techniken
    Antworten: 0
    Letzter Beitrag: 23.12.2009, 13:48
  5. GTA IV Sammelthread
    Von StefanW im Forum Games
    Antworten: 19
    Letzter Beitrag: 26.12.2008, 10:52

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •