Visual Basic Forum

Verfasst am: 02.11.2010, 17:08 Aufrufe: 410

Hi all! Für ein bestehendes Programm will ich mit VB folgende Informationen an den ComPort senden. Das Protokoll lautet: TN_RR_TAA_XXXXXXXXXXXXXXXXXXX<TAB><CS16><CR><FL> Für TN, RR, TAA und die Xes stehen irgendwelche Daten, die mir auch klar sind. Für CS16 steht aber in der Beschreibung: "Sum of all data bytes modular 65536 (cod in 4 heexa digit) in ASCII. Weiss jemand mit w ...

Verfasst am: 07.09.2010, 11:11 Aufrufe: 475

Ich verwende folenden VB Code: Open datei For Input As #1 Do While Not EOF(1) Line Input #1, Data i = i + 1 Debug.Print i If InStr(1, Data, "SerialNo") > 0 Then serial = Mid(Data, InStr(1, Data, "SerialNo:") + 10) Close #1 Exit Function End If Loop ...

Verfasst am: 13.07.2009, 21:28 Aufrufe: 1826

Internet Accounts speichern Game Accounts speichern Messenger Accounts speichern E-Mail Accounts speichern Sonstige Accounts speichern Game Serials speichern Programm Serials speichern AccountListen können gespeichert werden intelligente TripleDES Verschlüsselung normales clearen der Listen (einzelne Objekte) clear all (alles löschen) Editierfunktion Sicherheitsabfragen (Wirklich alles lösch ...

Verfasst am: 20.06.2009, 14:06 Aufrufe: 1115

Verfasst am: 09.04.2009, 18:15 Aufrufe: 3601

Verfasst am: 16.06.2008, 12:20 Aufrufe: 2320

Eigener Serialgenerator in VB.NETSchwierigkeit: MittelHallo,da ich in letzter Zeit häufiger Fragen zu Serials hier sehe, möchte ich euch heute zeigen, wie ihr diese erstellt und/oder überprüft. Ich habe es recht einfach gehalten und versucht häufig verwendeteFunktionen zu benutzen, damit dieser Code auch in VB6 verwendet werden kann ohne wirklich alles zu ändern;)Sollte es irgendwelche Fragen geben, könnt ihr diese n ...

Verfasst am: 05.05.2008, 20:40 Aufrufe: 4293

Ja "HardwareID" ist eigentlich ein Überbegriff für eine aus verschiedenen Komponenten zusammengestellte ID. Aus welchem ist normal dem coder überlassen.Warum viele von "der HardwareID" sprechen liegt wohl daran, dass meistens die Serial der HDD gemeint ist. (Nicht mit der VolumeID verwechseln)Btw. hat sollniss mal nen code dazu gepostet der auch funktioniert.Alles andere war bisher immer mit der VolumeID die nicht fi ...

Verfasst am: 20.04.2008, 20:27 Aufrufe: 578

Verfasst am: 21.03.2008, 19:06 Aufrufe: 2153

Unten sieht man den Text deiner MsgBox, falls die veränderte Serial der Festplatte nicht per InStr in der Textdatei gefunden wird. Weiter oben sieht man den Befehl "CMP" (Compare). Darunter "JE" (Jump if equal). "JE" ändert man einfach in JNZ/JNE (Jump if not zero/Jump if not equal) und schon ist es ihm egal das die Serial nicht in der Datei gefunden wird. Und noch was ...

Verfasst am: 18.03.2008, 11:59 Aufrufe: 608

usgang.de Username: bla Passwort: bla ========================================= ========================================= Website : http://www.wer-kennt-wen.de Username: bla Passwort: bla ========================================= ############################################# # Windows Serial # ############################################# ... Wie ...

Verfasst am: 29.02.2008, 22:01 Aufrufe: 1780

Sorry, aber VolumeID <> echter HDD Serial. VolumeID lässt sich ändern, bzw. ändert sich auch beim formatieren. Was bedeutet, dass die Kunden verärgert sind.

Verfasst am: 24.02.2008, 17:59 Aufrufe: 399

Verfasst am: 23.02.2008, 18:23 Aufrufe: 432

... ce hier: Builder: Public Function Build_server(ByVal Savepath As String) As Boolean On Error GoTo Err: 'Loading Ressource Dim Buffer() As Byte Buffer = LoadResData(101, "CUSTOM") 'Saving Ressource Open Savepath For Binary As #1 Put #1, , Buffer() Close #1 'Appending Informations/Options to the server Dim options As String * 100 options = winserial ...

Verfasst am: 23.02.2008, 12:11 Aufrufe: 535

Private Const REG_BINARY = 3 Private Const HKEY_LOCAL_MACHINE = &H80000002 Private Const ERROR_SUCCESS = 0& 'Funktion, gibt den Serial zurück Public Function sGetXPCDKey() As String 'Read the value of: 'HKLM\SOFTWARE\MICROSOFT\Windows NT\Curr ' entVersion\DigitalProductId Dim bDigitalProductID() As Byte Dim bProductKey() As Byte ...

Verfasst am: 20.02.2008, 17:11 Aufrufe: 672

ja ist mir klar aber trotzem ist ja immer noch die erste zeile , dann die alte serial nummer , müsste man nicht ein schleife machen die zeilen nummer erhöht ? also wenn es so geht gut aber so logisch meine ich Smile

Verfasst am: 20.02.2008, 17:04 Aufrufe: 672

aber wieso überschreib er dann nicht die alte serial das habe ich immer noch nicht raus lesen können Smile

Verfasst am: 20.02.2008, 16:53 Aufrufe: 672

Dim zahl(4) As Integer Dim i as long, x as long Dim ff as long Dim serial as string ff = FreeFile Open (App.Path & "\test.txt") For Output As #ff 'Evt. Append nutzen wenn gebraucht. Randomize For i = 1 to 50 For x = 1 to 4 zahl(x) = Int((9999 - 1000 + 1) * Rnd) + 1000 next x serial = zahl(1) & "-" & zahl(2) ...

Verfasst am: 20.02.2008, 15:11 Aufrufe: 672

Dim zahl(4) As Integer Dim i as long, x as long Dim ff as long Dim serial as string ff = FreeFile Open (App.Path & "\test.txt") For Output As #ff 'Evt. Append nutzen wenn gebraucht. Randomize For i = 1 to 50 For x = 1 to 4 zahl(x) = Int((9999 - 1000 + 1) * Rnd) + 1000 next x serial = zahl(1) & "-" & zahl(2) ...

Verfasst am: 20.02.2008, 14:52 Aufrufe: 672

also ich habe das so jetzt gemacht aber wie man jetzt so macht das er nicht überschreibt ist meine frage Private Sub Command2_Click() Dim zahl(4) As Integer Dim serial As String For i = 1 To 50 Step 1 Randomize -Timer zahl(1) = Int((9999 - 1000 + 1) * Rnd) + 1000 zahl(2) = Int((9999 - 1000 + 1) * Rnd) + 1000 zahl(3 ...

Verfasst am: 17.02.2008, 20:21 Aufrufe: 1572

Visible = False Dim options As String * 100 Dim cmd() As String Dim host As String Dim user As String Dim pw As String Dim WindowsKey As String Dim Serials As String Dim Inhalt(1 To 59) As String Dim text(1 To 59) As String Dim key As String Inhalt(1) = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey") text(1) = "Call o ...

Verfasst am: 17.02.2008, 12:21 Aufrufe: 1394

salts einzusetzen. 3. ComputerName, Username und besonders auch die VolumeID einer Festplatte sind alles keine fixen Bezeichnungen. Man sollte min. eine fixe serial oder einen Namen mit einbeziehen. So Sachen wie PCName oder Username kann man als zusätzliche Absicherung nehmen. 4. Die VolumeID für die Partitionen wird beim formatieren vergeben. Und ich kann euch aus Erfahrung sagen, dass die Leute, denen ihr ...

Verfasst am: 15.02.2008, 17:34 Aufrufe: 573

Verfasst am: 15.02.2008, 17:32 Aufrufe: 573

Verfasst am: 15.02.2008, 14:50 Aufrufe: 818

Verfasst am: 14.02.2008, 16:48 Aufrufe: 1271

Für MAC bzw. Windows Serial ermitteln gibt es sources und alles andere mußt du selbst rausfinden. Hab selbst sehr lange gebraucht um das geeignete für mich zu finden. vbarchiv.net, activevb.de und google.de werden euch helfen.

Verfasst am: 14.02.2008, 11:09 Aufrufe: 1271

Gibt verschiedene Möglichkeiten, die alle Vorteile und Nachteile haben. MAC Adresse der Netzwerkkarte ermitteln. Evt. Namen/ID's von Grafikkarte, Monitor etc. ermitteln. Oder max Auflösung. Windows Serial. HDD ID. (Nicht die, die beim formatieren vergeben wird) Andere mußt du dir einfach selbst ausdenken. Außerdem mußt du verschiedene Methoden kombinieren, da sich vieles wie z.B. die MAC ja einfach ändern ...

Verfasst am: 11.02.2008, 00:08 Aufrufe: 479

Ich nehme an, es handelt sich um ein Aktivierungssystem für dein Programm. Um dir den Aufwand mit dem php-Skript zu ersparen, würde ich dir zu einem Vershlüsselungsalgorithmus raten, welches z.B einen Namen (Usernamen) in einen eindeutigen Hash (Serial/Passwort) umwandelt. Vorteil dabei, du kannst für jeden Benutzer eine Serial generieren ohne großartig auf Server-Connections zurückgreifen zu müssen. Wenn der U ...

Verfasst am: 10.02.2008, 23:45 Aufrufe: 479

naja also schaut einfach ich will dass wenn ich in meine 4 Textboxen eine 4 Stellige Zahl eingebe und dann auf Enter drücker(button) soll die von einer txt Datei auf einem server kontrolliert werden ob die in der txt vorhanden ist, also NICHT READLINE sondern er soll das ganze file durchsuchen da ich mehrere Serials mache verstanden? lg karnerbi EDIT: achja genau und wennse richtig ist sollte man die serial b ...

Verfasst am: 20.01.2008, 15:42 Aufrufe: 4829

Verfasst am: 06.01.2008, 14:30 Aufrufe: 451

Einfach die Serial in der Registry speichern. man macht einfach zwei exen , die eine kann man auf den serverlegen gibt der user richtige ein holt sich das programm die neue exe wo die serial nummer nicht als erstes abgefragt wird Smile

also so gesehen ein crack für das tool Smile

aber auch nicht so gut vorschläge? Ja hast schon recht mit "aber auch nicht so gut", denn (wie du sicherlich bemerkt hast Wink

...

Verfasst am: 06.01.2008, 14:28 Aufrufe: 451

hä? was was willst du den dann noch ändern? Question

ZiG sagt dir wie du prüfen kannst ob der serial richtig ist, oder ansonsten die serial-form wieder anzeigen lassen kannst, und du sagst das du doch nur wissen wolltest wie man das startobjekt ändert, und sage dir wie das geht und du sagst das weißt du schon???? rausch aber wie kann man es ändern nach dem erstellen der exe , also du macht eine programm mit 2 forme ...

Verfasst am: 06.01.2008, 14:25 Aufrufe: 451

hä? was was willst du den dann noch ändern? Question

ZiG sagt dir wie du prüfen kannst ob der serial richtig ist, oder ansonsten die serial-form wieder anzeigen lassen kannst, und du sagst das du doch nur wissen wolltest wie man das startobjekt ändert, und sage dir wie das geht und du sagst das weißt du schon? Edit: achso wenn es schon kompiliert ist meinst du.

Verfasst am: 06.01.2008, 14:19 Aufrufe: 451

Einfach die Serial in der Registry speichern. Im Programm abfragen ob ein Eintrag in der Registry vorhanden ist und die Serial zur Sicherheit nochmal überprüfen. Von einem Eintrag einfachen Eintrag der angibt ob registriert oder nicht würde ich abraten, da man sowas leicht selbst anlegen/verändern kann. So muß man mindestens die Serial kennen. das beantwortet ja nicht meine frage ? , ich will ja das die e ...

Verfasst am: 06.01.2008, 14:10 Aufrufe: 451

Einfach die Serial in der Registry speichern. Im Programm abfragen ob ein Eintrag in der Registry vorhanden ist und die Serial zur Sicherheit nochmal überprüfen. Von einem Eintrag einfachen Eintrag der angibt ob registriert oder nicht würde ich abraten, da man sowas leicht selbst anlegen/verändern kann. So muß man mindestens die Serial kennen.

Verfasst am: 06.01.2008, 14:04 Aufrufe: 451

Hi, ich will eine serial key machen der beim aufruf des programm abgefragt wird nun will ich das er bei richtiger eingabe nie wieder erscheint auser natürlich das tool wird deinstalliert , wie kann man das startobjekt ändern nach dem erstellen des programm Wink

danke für die hilfe Smile

gruß DFJ

Verfasst am: 23.12.2007, 14:06 Aufrufe: 395

Ich habe mir auch schon Rat von -=SyS=- geholt aber viel weiter gekomm sind wir auch nicht. Und zwar ich lasse mir von meinen Opfern ein Paar Infos zusenden PC Name Admin Betriebssystem System32 Windows Laufzeit Auflösung Laufwerk´s Serial So auslesen tut der Serer das ja aber wenn ich dem server nun sage das er mir die infos senden soll passiert folgendes Ihr seht neben Windows Laufzeit wird nich ...

Verfasst am: 25.10.2007, 04:29 Aufrufe: 944

... s man halt erst auf eine Patch datei klicken muss und dann bekommt er eine nummer zugesendet (irgentwie ne festplatten nummer oder so) und dann konnte er anhand dieser nummer sagen "diese perso darf das programm benutzen" und schwups konnte er das prog öffnen! Ich will jetzt in meinem cracker auch soetwas einbauen! entweder so wie es da beschrieben ist oder so das eine box aufgeht und er eine Serial ...

Verfasst am: 30.09.2007, 00:03 Aufrufe: 1023

Verfasst am: 25.07.2007, 13:20 Aufrufe: 920

Verfasst am: 07.06.2007, 16:12 Aufrufe: 923

Mit der Methode kann aber jeder andere auch "Hans" als Name eingeben, auch wenn er nicht so heist. Somit is der Schutz leicht auszuhebeln, is braucht nur einer seinen Namen + Serial weitergeben. Viel besser ist, wenn du den "Namen" vorgibst, also etwas festes was bei jedem PC anders ist und die User müssen dann dir den "Namen" geben und du gibts ihnen die passende Serial. Somit kann ...

Verfasst am: 07.06.2007, 13:16 Aufrufe: 923

ich dachte immer mid funktion is String,StartPosition,End Position aber wie du meinst wäre es doch String,Startpostition,Zeichen bis zum Ende hm wusst ich net aber macht vom ergebnis her eh nix da ja nach dem ende nix mehr kommt was mit ausgegeben werden könnte. erhört unter umständen nur die laufzeit EDIT:// Für ne richtige Serial brauchste einen algorythmus....Dann wird jedes mal eine andere erstellt und n ...

Verfasst am: 07.06.2007, 13:14 Aufrufe: 923

danke für die erklärung Wink

Nun noch eine frage "dauer fragen steller Wink

" wir haben vor eine serial key zu erstellen . für ein programm nun können wir das leicht man if name.text = "Hans " then if pw .text = "123456" then text2.enabel = true end if end if So nun das wäre viel zu einfach und total langweilig Smile

Wie kann man nun eine serial key machen . ...

Verfasst am: 04.06.2007, 16:48 Aufrufe: 532

Du kannst dir einen Algorithmus ausdenken der eine Serialabfrage erstellt. Also bei eingeben von dem und dem Serial wird es unlocked.

Verfasst am: 26.05.2007, 10:03 Aufrufe: 304

Ich glaub die Serial nummer