Lune

xd-franky-5 · 9. Juli 2016, 17:22

Mit Lune ist es möglich Serien und Filme selbst zu erstellen und zu verwalten.
Das Programm bietet einige tolle Funktionen die es einem gemütlich macht seine Videos zu schauen.

Anleitung

ChangeLog

ToDo

Open Source

Verschlüsselung

VB.NET-Quellcode

Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
Public Class Crypt
Dim MagicBytes() As Byte
Sub New(ByVal MagicString As String)
MagicBytes = Encoding.Unicode.GetBytes(MagicString)
End Sub
Private Function CreateSalt() As String
Dim chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!@#$%^&*()_+=][}{<>"
Dim salt As String = ""
Dim rnd As New Random
For i As Integer = 1 To 64
Dim x As Integer = rnd.Next(0, chars.Length - 1)
salt &= chars.Substring(x, 1)
Next
Return salt
End Function
Private Function CreateChecksum(ByVal Bytes() As Byte) As Byte()
Dim result() As Byte
Dim sha As New SHA512Managed()
result = sha.ComputeHash(Bytes)
Return result
End Function
Public Sub EncryptFile(ByVal FileName As String, ByVal Key As String)
Dim salt() As Byte = Encoding.Unicode.GetBytes(CreateSalt())
Dim checksum() As Byte = CreateChecksum(File.ReadAllBytes(FileName))
Dim AES As New AesCryptoServiceProvider()
Dim rfc As New Rfc2898DeriveBytes(Key, salt)
AES.Key = rfc.GetBytes(32)
AES.IV = rfc.GetBytes(16)
Using fsInput As New FileStream(FileName, FileMode.Open, FileAccess.Read)
Using fsEncrypted As New FileStream(FileName & "_e", FileMode.Create, FileAccess.Write)
fsEncrypted.Write(MagicBytes, 0, MagicBytes.Length)
fsEncrypted.Write(salt, 0, salt.Length)
fsEncrypted.Write(checksum, 0, checksum.Length)
Using cryptostream As New CryptoStream(fsEncrypted, AES.CreateEncryptor, CryptoStreamMode.Write)
fsInput.CopyTo(cryptostream)
End Using
End Using
End Using
File.Delete(FileName)
File.Move(FileName & "_e", FileName)
End Sub
Public Function DecryptFile(ByVal FileName As String, ByVal Key As String) As Boolean
Try
Dim salt(127) As Byte
Dim mag(MagicBytes.Length - 1) As Byte
Dim checksum(63) As Byte
Using fshash As New FileStream(FileName, FileMode.Open, FileAccess.Read)
fshash.Read(mag, 0, mag.Length)
fshash.Read(salt, 0, salt.Length)
fshash.Read(checksum, 0, checksum.Length)
Dim AES As New AesCryptoServiceProvider()
Dim rfc As New Rfc2898DeriveBytes(Key, salt)
AES.Key = rfc.GetBytes(32)
AES.IV = rfc.GetBytes(16)
Using cryptostream As New CryptoStream(fshash, AES.CreateDecryptor, CryptoStreamMode.Read)
Using fs As New FileStream(FileName & "_d", FileMode.Create)
cryptostream.CopyTo(fs)
End Using
End Using
End Using
If checksum.SequenceEqual(CreateChecksum(File.ReadAllBytes(FileName & "_d"))) Then
File.Delete(FileName)
File.Move(FileName & "_d", FileName)
Return True
Else
File.Delete(FileName & "_d")
Return False
End If
Catch ex As Exception
File.Delete(FileName & "_d")
Return False
End Try
End Function
Public Function IsEncrypted(ByVal FileName As String) As Boolean
Dim mag(MagicBytes.Length - 1) As Byte
Using fshash As New FileStream(FileName, FileMode.Open, FileAccess.Read)
fshash.Read(mag, 0, mag.Length)
End Using
Return mag.SequenceEqual(MagicBytes)
End Function
End Class

HTTP-Server

VB.NET-Quellcode

Imports System.Net
Public Class Site
Dim _bytes As Byte()
Dim _name As String
Dim listener As HttpListener
Dim _caller As Form
Dim _port As Integer
Dim t As New Threading.Thread(Sub() Request()) With {.IsBackground = True}
Sub New(ByVal bytes As Byte(), ByVal name As String, ByVal caller As Form, ByVal port As Integer)
_bytes = bytes
_name = name
_caller = caller
_port = port
t.Start()
End Sub
Public Property Bytes As Byte()
Get
Return _bytes
End Get
Set(value As Byte())
_bytes = value
End Set
End Property
Public Sub Close()
allow = False
t.Abort()
listener.Stop()
End Sub
Dim allow As Boolean = True
Event RequestReceived(eq As String)
Public Sub Request()
listener = New HttpListener()
listener.Prefixes.Add("Http://*:" & _port & "/" & _name & "/")
listener.Start()
Do While allow
Try
Dim context As HttpListenerContext = listener.GetContext
Dim response As HttpListenerResponse = context.Response
If Not String.IsNullOrEmpty(context.Request.RawUrl) Then
Dim responseHtmlBytes As Byte()
_caller.Invoke(Sub() RaiseEvent RequestReceived(context.Request.Url.Segments(context.Request.Url.Segments.Count - 1)))
responseHtmlBytes = _bytes
Dim stream As IO.Stream = response.OutputStream
stream.Write(responseHtmlBytes, 0, responseHtmlBytes.Length)
stream.Close()
End If
Catch ex As Exception
End Try
Loop
End Sub
End Class

Image zu Base64 und Base64 zu Image

Dateien rekursiv suchen

IMDB API

VB.NET-Quellcode

Public Function FindSeries(ByVal title As String) As ShortSeries
Try
Dim Movie As XElement = XDocument.Load("http://www.omdbapi.com/?t=" & title & "&r=xml&type=series").Descendants("movie")(0)
Dim t As String = Movie.Attribute("title").Value
Dim desc As String = Movie.Attribute("plot").Value
Dim img As String = Movie.Attribute("poster").Value
Dim ssr As New ShortSeries(t, desc, img)
Return ssr
Catch ex As Exception
Return Nothing
End Try
End Function
Public Function FindMovie(ByVal title As String) As ShortMovie
Try
Dim Movie As XElement = XDocument.Load("http://www.omdbapi.com/?t=" & title & "&r=xml&type=movie").Descendants("movie")(0)
Dim t As String = Movie.Attribute("title").Value
Dim desc As String = Movie.Attribute("plot").Value
Dim img As String = Movie.Attribute("poster").Value
Dim sm As New ShortMovie(t, desc, img)
Return sm
Catch ex As Exception
Return Nothing
End Try
End Function
Public Class ShortSeries
Dim _title As String
Dim _desc As String
Dim _img As String
Sub New(ByVal title As String, ByVal description As String, ByVal image As String)
_title = title
_desc = description
_img = image
End Sub
Public ReadOnly Property Title As String
Get
Return _title
End Get
End Property
Public ReadOnly Property Description As String
Get
Return _desc
End Get
End Property
Public ReadOnly Property Image As String
Get
Return _img
End Get
End Property
End Class
Public Class ShortMovie
Dim _title As String
Dim _desc As String
Dim _img As String
Sub New(ByVal title As String, ByVal description As String, ByVal image As String)
_title = title
_desc = description
_img = image
End Sub
Public ReadOnly Property Title As String
Get
Return _title
End Get
End Property
Public ReadOnly Property Description As String
Get
Return _desc
End Get
End Property
Public ReadOnly Property Image As String
Get
Return _img
End Get
End Property
End Class

XML schreiben und lesen

Verwendete Programmiersprache(n) und IDE(s):
Visual Basic .NET / IDE VS 2015 Community

Systemanforderungen:
Framework 4 oder höher (wegen HTTP-Server)

Systemveränderungen:
Beim Erstellen einer Regel in der Firewall.

Download:
Lune.zip (Version 3.0.0.1) (komprimiert ~ 1,6 MB, unkomprimiert ~ 26,3 MB)

Lizenz/Weitergabe:
Freeware, OpenSource (auf Anfrage werden Sachen wie Controls und andere Funktionen hier freigegeben)

Rechtliches:
StreamCloud an sich ist legal, es ist nur ein Dienst zum Videos teilen, wie z.B. Amazon CloudFront,
dennoch ist dort auch illegales Material vorhanden. Welche Inhalte Nutzer letztendlich in das Programm eingeben ist ihnen überlassen.
Die Inhalte werden nicht herunter geladen, lediglich in den Cache, es handelt sich also um Streaming.

3Angle · 20. Juli 2016, 15:48

Tolle Anwendung, aber noch keine Rückmeldung?
Ich will jetzt nicht auf alles Positive eingehen, aber mir gefällt die Anwendung sehr! Mach weiter so!

Fehler: Wenn man Sprache und Design gleichzeitig ändert, so kommt der Neustartdialog 2 Mal(erst englisch, dann deutsch)

Idee: Wenn man die Optionen nicht speichert, fragt ein Dialog nach ob man nicht speichern wolle, Spracherkennung beim ersten Start

xd-franky-5 · 20. Juli 2016, 22:32

Danke für deine Rückmeldung, den Fehler und deine Idee werd' ich direkt umsetzen

Ansonsten würde ich mich weiterhin über mehr konstruktive Kritik wie diese freuen.

xd-franky-5 · 22. Juli 2016, 21:52

Änderungen:
- Automatisches Suchen von Dateien
- Weitere Formate unterstützen
- Scrollbar ändern
- Tabs für Serien, Playlists
- Auf Fernbedienung anzeigen
- Beschreibung bei Episoden/Videos
- Sortierung
- Bugfixes
- Episode hinzufügen auto-fillout
- Bildschirm in Stand-By schalten
- Mit Fernbedienung starten

Download(s):
VideoManager.zip (Version 2.0.1.5) (komprimiert ~ 800 KB, unkomprimiert ~ 6 MB)

gabriel-b · 23. Juli 2016, 19:12

Tolles, Programm, das dazu noch toll aussieht (Vllt. ein wenig den Kontrast erhöhen) - Ich hab mal das Programm ausprobiert und funktionieren tut es weitestgehend:
Wenn man das erste mal ein Video zu einer Serie hinzufügen will (also auf den Plus Knopf klickt) kommt folgende Fehlermeldung:

Spoiler anzeigen

Es ist kein gravierender Fehler, denn gleich nach der Fehlermeldung öffnet sich der gewünschte "hinzufügen" Dailog, aber es wäre toll zusehen wenn der Fehler weg wäre.

Mfg Gabriel

xd-franky-5 · 24. Juli 2016, 15:47

Danke @gabriel-b, habe den Fehler nun entfernt

Freut mich, dass es dir gefällt!

Änderungen:
- Verbindung zu IMDB (Suche)
- Bildschirme bei Vollbild ausschalten
- Auf Fernbedienung anzeigen
- Bilder andere Auflösung
- Keine CONFIG-Datei
- Scroll to last seen
- Bugfixes

Download(s):
VideoManager.zip (Version 2.0.1.6) (komprimiert ~ 412 KB, unkomprimiert ~ 5.6 MB)

gabriel-b · 24. Juli 2016, 16:37

Funkt wirklich, und hab mir mal eine Serie aus dem Internet über die neu eingebaute Suche heruntergeladen. Anscheinend gibt es da beim abspielen der Medien ein wenig Probleme (siehe Screenshot)... nach dieser Meldung bleibt einfach der Schriftzug "Start" stehen. Also es passiert nichts. Würde mich über einen weiteren Bugfix freuen. Trotzdem tolle Arbeit geleistet!
Mfg
Edit: ganz übersehen das man den Link/Pfad dennoch selber einfügen muss, sorry für die Umstände

xd-franky-5 · 24. Juli 2016, 18:04

Hast du richtig erkannt, wenn du dir eine Serie herunterlädst, sind keine Links/Pfade in den Episoden, die musst du selbst nachträglich hinzufügen. Ich hatte eigentlich eingebaut, dass der Player das erkennt, aber anscheinend tut er das nicht. Werde ich so schnell wie möglich ändern, danke

masterm · 24. Juli 2016, 21:59

Gutes Programm. Das beste Programm dieser Art, was ich bis jetzt gesehen habe, und ich suche schon lange nach einem. Doch ich habe noch ein paar Vorschläge:

Bitte eine Option einbauen, einen anderen Player zu verwenden. Einfach ein Textfeld für den Pfad und eine für die Argumente, wo %file% mit dem Dateipfad bzw. der URL ersetzt wird. Dies könnte man auch davon abhängig machen
Man kann zwar importieren, aber das Exportieren finde ich nicht. Es ist etwas unkomfortabel, die Dateien aus dem Verzeichnis zu ziehen
Wenn ich auf Nach Updates (was nebenbei angemerkt eine komische Beschriftung ist) klicke öffnet sich die Homepage, wo ich aber nicht erkennen kann, ob ich die aktuelle Version habe. Tipp: Implementiere nUpdate. Dann funktioniert alles automatisch.
Ich finde den Countdown zu lang und eigentlich komplett unnötig. Eine Option in den Einstellungen zum Abschalten wäre eine Idee.
Wieso speicherst du die Einstellungen in AppData, aber die Serien und Playlisten im Programmverzeichnis? Wenn ich die Anwendung z.B. in C:\Program Files (x86) ablege, dann habe ich als normaler User keine Schreibrechte. Wenn ich aber den Benutzer wechsle, hat er die selben Serien und Playlisten, aber eigene Einstellungen. Vorschläge:
- Auch die Serien und Playlisten in AppData speichern, oder
- die Einstellungen im Programmverzeichnis speichern, sodass dein Programm portable ist, oder
- eine Mischung aus beidem: Erst prüfen, ob eine Einstellungsdatei im Programmverzeichnis liegt, wenn ja, dann ist die Anwendung portable, also alles im Anwendungsverzeichnis, wenn nicht, dann sind alle Daten in AppData gespeichert

Dann noch eine Frage: Welche Formate werden unterstützt?

Diese Anwendung hat Potenzial! Du musst es nur noch einbauen.

Grüße

xd-franky-5 · 25. Juli 2016, 15:45

@masterm danke für deine sehr ausführliche und hilfreiche Kritik

Den Countdown kann man ja beliebig ändern, ich habe das von Amazon übernommen dort gibts auch nen Countdown

Aber ich werde machen, dass man diesen ausstellen kann (was aber keine Auswirkungen auf Episoden/Filme hat mit StreamCloud-Links). Ich hatte die Einstellungen erst auch in einer extra Datei hab's aber geändert, nun werd' ichs aber wieder einbauen.
Noch eine Frage, die kann auch an alle Anwender gehen: Wie verwendet ihr das Programm, also was genau macht ihr. Schaut ihr mehr Filme oder Serien, erstellt ihr eigene oder mit der Suchfunktion ? Verwendet ihr eigene Dateipfade, StreamCloud-Links oder Online-MP4-Links ?

mfg Frank

Gather · 25. Juli 2016, 17:33

Sieht gut aus. Allerdings gibt es bei mir div. Probleme:

Problem 1. Optisch:

Problem 2:
Das Farbschema lässt sich bei mir nicht ändern. Ich ändere es, übernehme die Änderung (via Neustart) und es ist immer noch das selbe..

Weiter konnte ich wegen meinem Zeitmangel nicht testen.

xd-franky-5 · 25. Juli 2016, 18:03

Danke für dein Feedback. Scheint als hättest du Windows 8 bzw 8.1, dort ist mir das auch mal aufgefallen, ich werd' mal versuchen die Icons als base64 string zu speichern und zu laden dann müsste das gehen. Und warum du das Farbschema nicht ändern kannst ist mir ein Rätsel, tut mir leid.

mfG Frank

Pasta · 25. Juli 2016, 18:56

xd-franky-5 schrieb:

Und warum du das Farbschema nicht ändern kannst ist mir ein Rätsel.

Das liegt wohl an der Dateiüberwachung. Häkchen weg machen, dann werden auch die Einstellungen übernommen.

edit: Du solltest die Lizenzierung nochmal überdenken, eine Open Source kann ich hier nirgends entdecken.

Gather · 27. Juli 2016, 08:57

xd-franky-5 schrieb:

scheint als hättest du Windows 8 bzw 8.1, dort ist mir das auch mal aufgefallen

Nein. Getestet auf Windows 7 Home Premium 64 bit.

xd-franky-5 · 27. Juli 2016, 11:55

@Gather Okay dann anscheinend alle Versionen unter Windows 10. Die Buttons sind nämlich ASCII-Symbole von hier. Ich denke diese Windows-Versionen können das nicht anzeigen, wenn du weißt wie man das lösen kann, ich denke da an Kodierung ändern, dann kannst du mir bescheid geben

mfG Frank

xd-franky-5 · 28. Juli 2016, 14:50

Änderungen:
- Spracherkennung
- Bugfixes
- Settings wieder in eigene Datei
- Andere Player verwenden
- Exportieren vereinfachen
- Nach Updates suchen ändern (entfernt)
- Countdown abschaltbar

Screenshot(s):

Spoiler anzeigen

Download(s):
VideoManager.zip (Version 2.0.1.7) (komprimiert ~ 417 KB, unkomprimiert ~ 5,7 MB)

masterm · 28. Juli 2016, 20:29

@xd-franky-5 Schön, dass du auf meine Vorschläge eingehst! Ich habe noch einige Fehler gefunden:

Die Coverbilder werden gezerrt: Ich nehme dieses quadratische Cover:

Spoiler anzeigen

und nun macht das Programm daraus folgendes:

Spoiler anzeigen
Wenn ich einen externen Player verwende wird der Player trotzdem angezeigt, dass dort Video nicht abgespielt - im externen Player funktioniert alle
Video wird in einer Endlosschleife abgespielt, wenn du nur eines in der Serie hast. Vorschlag: Wenn es das letzte Video ist, dann nicht wieder zum ersten springen
Wenn ich ein Video bis zum Ende gesehen habe, werde ich beim nächsten mal trotzdem gefragt, ob ich an der letzten Stelle weiterschauen möchte, womit automatisch dann zum nächsten gesprungen wird.

Außerdem: Wäre es möglich, das automatische Abspielen der nächsten Folge über eine Einstellung abzustellen? Ich nicke gerne mal ein, wenn ich abends meinen PC an der Glotze angeschlossen habe und dort Serien schaue. Ärgerlich wenn man dann aufwacht und nicht mehr weiß, was man alles gesehen hat und was nicht, weil alles abgespielt und damit als gesehen markiert wird.

Das Programm ist Top! Weiter so :thumbup:

Edit: Noch 'ne Idee: Verwendung von einem Proxy
Edit 2: Wenn eine Serie mehr als insgesamt 15 Folgen hat werden diese nicht dargestellt. Sie sind aber vorhanden (Counter zählt weiter und in der XML sind sie auch angelegt)

Spoiler anzeigen

Edit 3: Bei 17 wird der Scrollbalken dargestellt. Aber halt zu spät...
Edit 4: Das scrollen mit dem Mausrad funktioniert nicht.

xd-franky-5 · 28. Juli 2016, 22:07

@masterm danke mal wieder für deine großartige Unterstützung

- Wie wäre es denn besser anstatt das zerren ? Zuschneiden ? (Teile des Bildes fallen evtl weg)
- Ja der Player wird dort vorerst noch angezeigt, bin mit dem externen Player noch quasi in der beta-Phase

Werde das aber im nächsten Update ändern.
- Danke werde ich berücksichtigen.
- Das mit dem auto. Abspielen werde ich auch ändern

- Proxy, mal schauen, was ich so finde
- Das liegt alles am Scrollbalken, den muss ich nochmal überarbeiten

mfG Frank

masterm · 28. Juli 2016, 22:36

xd-franky-5 schrieb:

- Wie wäre es denn besser anstatt das zerren ? Zuschneiden ? (Teile des Bildes fallen evtl weg)

Verkleinern und Zentrieren. Ich weiß nicht, wie du die Bilder anzeigst, aber bei der PictureBox heißt das mWn AutoSize.

Grüße

Edit: Schon wieder einen Fehler gefunden: Wenn man eine Serie erstellt, kann man sowohl JPGs, als auch PNGs. Wenn ich die Serie bearbeite sind PNGs nicht als Filter für den OpenFileDialog verfügbar, aber wenn ich den Pfad eingebe funktioniert es trotzdem. Nebenbei angemerkt: Die Tranzparenz von PNGs funktioniert nicht und wird schwarz dargestellt.

xd-franky-5 · 3. August 2016, 15:21

@masterm Dass die Bilder verzerrt werden, kann nicht geändert werden, da diese immer die gleiche Größe haben müssen (werden mit gdi+ gezeichnet). Dass die Transparenz nicht funktioniert liegt daran das hinter dem Anzeigebild der Schatten gezeichnet wird. Das kann ich so jetzt nicht ändern, tut mir leid

Alles andere kommt bald (eventuell Heute)

mfG Frank

Lune

Lune

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Version 2.0.1.5

Version 2.0.1.6

xd-franky-5 schrieb:

xd-franky-5 schrieb:

Version 2.0.1.7

xd-franky-5 schrieb:

Benutzer online 2

Tags

Ähnliche Themen

9 Benutzer haben hier geschrieben