Visual Basic Forum

Verfasst am: 04.04.2012, 08:09 Aufrufe: 389

Length - 1 Tmp = Hex(Result(i)) If Len(Tmp) = 1 Then Tmp = "0" & Tmp Res += Tmp Next Return Res End Function Public Function MD5StringHash(ByVal strString As String) As String Dim MD5 As New MD5CryptoServiceProvider Dim Data As Byte() Dim Result As Byte() Dim Res As String = "&quo ...

Verfasst am: 14.07.2011, 13:42 Aufrufe: 317

Habe die Antwort in einem anderen Forum erhalten, möchte sie hier bekannt geben. Hex 1: ? Hex 2: Systole-25 Hex 3: Diastole-25 Hex 4: Puls Hex 5: Monat Hex 6: Tag Hex 7: Stunden Hex 8: Minuten Hex 9: 2 stellige Jahreszahl

Verfasst am: 14.07.2011, 10:02 Aufrufe: 317

Hallo, ich schreibe ein Programm zur Darstellung von Blutdruckdaten. Hierzu lese ich ein Gerät vom Beurer BM 58 aus. Die Hex-Daten die ich erhalte bekomme ich aber nicht in Klartext gewandelt Confused

. Ich denke sie sind gepackt. Das Orriginalprogramm von Beurer, das mir nicht zusagt, ist wohl in VB6 geschrieben. Hat einer Erfahrung im decodieren der Hex-Daten? Hier die Daten in Hex und die dazugehörigen Klard ...

Verfasst am: 25.04.2011, 08:24 Aufrufe: 643

hallo leute! ich versuche einen dezimal wert z.b. "121174323" in hex werte umzuwandeln. ich brauche den hex wert aber vollständig also immer ganze zweier blöcke. also so ich rechne 121174323 in hex um und bekomme dann 738F933 heraus. ich brauche aber alle 8 stellen also so: 07 38 F9 33 wie kann ich das so formatieren? der leeraum ist ja egal das kann ich selber auch, aber die hex zahlen vollstä ...

Verfasst am: 02.07.2010, 13:29 Aufrufe: 939

... tr End Function Function CheckSum(ByVal str As String) As String Dim chr As Char Dim intSum As Integer 'String in CharArray Umwandeln Dim chrArray As Char() = str.ToCharArray() 'Jedes Zeichen in ASCII-Wert umwandeln und zu Summe addieren For Each chr In chrArray intSum = intSum + Strings.Asc(chr) Next chr 'Summe in Hex ...

Verfasst am: 20.06.2010, 16:56 Aufrufe: 429

... nst S44 = 21 Property Get RegisterA() As String RegisterA = State(1) End Property Property Get RegisterB() As String RegisterB = State(2) End Property Property Get RegisterC() As String RegisterC = State(3) End Property Property Get RegisterD() As String RegisterD = State(4) End Property Public Function DigestStrToHex ...

Verfasst am: 09.09.2009, 18:37 Aufrufe: 1047

Ich möchte einen Cryter bauen, der das exe file in Assembler Code formatiert, und an Stellen im Code Jumps oder einfach nur leere Code Zeilen einfügt, um Dateien vor AntiVir zu schützen. Danach wird der Assembler Code wieder in eine EXE "compiled" (oder wie man das auch immer nennt) Ich bräuchte vorallem hilfe, die exe ausm hex format, in Assembler Code zu formatieren. Falls ich falsche Begriffe ...

Verfasst am: 29.06.2009, 15:01 Aufrufe: 875

Beschreibung:Diese Funktion kann die ScanCodes also die Tastaturbefehle umsetzen um z.B. Tasten zu vertauschen oder zu deaktivieren.Nach der Umbelegung muss der Computer neugestartet werden damit die ScanCodes angewendet werden.Weitere Informationen gibt es hier: http://winfaq.de/faq_html/Content/tip1575.htmEine Liste der ScanCodes findet man hier: http://winfaq.de/faq_html/Content/tip1576.htmAchtung: Man sollte dies ...

Verfasst am: 18.06.2009, 13:00 Aufrufe: 905

... s = 138 Then temp = "8A "<br /> If s = 154 Then temp = "9A "<br /> If temp = "" Then<br /> sBinaryString = sBinaryString & Format(Hex ...

Verfasst am: 15.04.2009, 18:20 Aufrufe: 416

Wenn ich versuche einen Reg Wert auszulesen der aus Hex Values besteht, funktioniert das nicht... Weiß jemand warum?

Verfasst am: 06.02.2009, 18:47 Aufrufe: 2032

... If s = 74 Then temp = "4A " If s = 90 Then temp = "5A " If s = 106 Then temp = "6A " If s = 122 Then temp = "7A " If s = 138 Then temp = "8A " If s = 154 Then temp = "9A " If temp = "" Then sBinaryString = sBinaryString & Format(Hex ...

Verfasst am: 08.09.2008, 12:03 Aufrufe: 1155

Hey, es gibt ja einige tools, die die Farbe (in Hexcode) anzeigen.Nun wollte ich einmal fragen, wie ich das nachbauen kann. Gibt esdafür eine API etc?und noch eine kleine frage:Wie bekomm ich es hin, das, wenn man auf Label1 clickt,er automatisch text1 makiert (zum schreiben)MfGDevilworld

Verfasst am: 29.08.2008, 15:36 Aufrufe: 1145

ich meinte es so mit dem produkt key machineguide und io es zu entschlüsseln #define WIN32_LEAN_AND_MEAN #include #include #include #include "aesphm.h" using namespace CryptoPP; // WARNING: EXTREMELY SENSITIVE INFORMATION! #define ACCOUNT_PHRASE_SIZE (XXX + 8 + 20) static byte accountphrase so nur halt für vb6

Verfasst am: 31.07.2008, 18:09 Aufrufe: 1270

SetCipherKey pass, KeyBits m_Rijndael.FileDecrypt Destination, Filepath#End IfDoEventsDecryptFile = TrueExit FunctionErr:DecryptFile = FalseEnd Function'Passwort umwandelnPrivate Function GetPassword() As Byte()Dim data() As ByteIf HexDisplayRev(PassKey, data) (256 Cool

Then data = StrConv(PassKey, vbFromUnicode) ReDim Preserve data(31)End IfGetPassword = dataEnd Function'Reverse of HexDisplay. Given a String contai ...

Verfasst am: 20.07.2008, 11:44 Aufrufe: 888

Ich glaube er meint, dass du den Text erst normal verschlüsselst mit Passwort und dann mit jedes einzelne der Verschlüsselten Zeichen mit Asc() den Asccii Code nimmst und den benutzt, weil du damit sicher stellst, dass du nach dem verschlüsseln nur darstellbare Zeichen hast. Ich würde dir dafür empfehlen den Verschlüsselten Text in Hexadezimale Zeichen umzusetzen. Hier zwei Funktionen die du dafür brauchen kannst:Vis ...

Verfasst am: 16.05.2008, 13:19 Aufrufe: 1620

Verfasst am: 12.04.2008, 08:31 Aufrufe: 887

also wenn nötig kannst du an der bifrost stub hinten im hexcode etwas ansetzen ..... heraus finden ab wo die eof daten starten kannst du indem du einmal die stub und einmal den server beide vergleichst . in winhex gibts da ne compare funktion für ..... dann weisst du von wo an die eof settings starten und du kannst ohne probleme an der stub ein paar bytes hinzufügen ... wo du dann z.b. ##>SET<## ...

Verfasst am: 17.03.2008, 16:59 Aufrufe: 1264

ich find das sowieso eigentlich unverschämt von dir gamer!!! Ich habe dir meinen kompletten source dafür gegeben (builder, server). dann kam sollniss hat dir den builder und so FUD gemacht und du gibst das ganze teil als deines aus! Und ich wette mit dir, die daten, die dem server vom builder übergeben werden sind nichtmal verschlüsselt! Buildet mal einen server und guckt ihn euch im HEX an. Scrollt nach ganz unt ...

Verfasst am: 09.03.2008, 15:24 Aufrufe: 406

Verfasst am: 09.03.2008, 14:35 Aufrufe: 406

Verfasst am: 09.03.2008, 14:24 Aufrufe: 406

Hallo Jungs ! Ich habe eine sehr wichtige Frage, die sich zum Thema Hex Code zählen kann: Wie kann ich eine exe Datei mit meinem Programm als Hexcode einlesen lassen und dann eine bestimmte Stelle im Hexcode verändern? Die Frage ist sehr wichtig und ich würde mich freuen so schnell wie möglich antworten zu bekommen... - DANKE ! lg regenz11

Verfasst am: 05.03.2008, 19:09 Aufrufe: 623

Datei einlesen als Hex Code noch Offsets suchen. "5B 43 83 7B 74 00 0F 84 08 00 00 00 89 43 14 E9" Das wäre zum Beispiel eine Signatur für ASDPACK 2. Wenn du die findest kannst du dir zu 50% sicher sein, dass die Die datei damit geschützt wurde. Selbe geht halt auch Für Malware.

Verfasst am: 17.02.2008, 13:08 Aufrufe: 562

Ich weiß nicht. Vielleicht sehen die Strings nur gleich aus, haben aber unterschiedliche Ascii (und deshalb auch Hex) Werte. Kann mir schwer vorstellen, dass es an der StringToHex Funktion liegt. Edit// Zitat vom Bored Coders Board. Und wieso genau die? Oder geht es nur um die "Übersetzung-Skills"? //edit Hab mich mal rangesetzt, und soweit bin ich gekommen: Option Explicit Private Const Base ...

Verfasst am: 16.02.2008, 18:49 Aufrufe: 1018

Verfasst am: 14.01.2008, 16:45 Aufrufe: 585

Verfasst am: 14.01.2008, 16:44 Aufrufe: 585

In dem du die Datei Zeichen für Zeichen einliest und dann jeweils mit Hex oder wie die Funktion in VB.net heißt in eine Hexadezimale Zahl verwandelst und dann in die Textbox einfügst... Hier mal eine VB6 Funktion um einen Text in eine Hexadezimale Zeichenfolge umzuwandeln: Public Function TextToHex(ByRef Text As String) As String Dim bytes() As Byte Dim i As Long Dim WritePos As Long D ...

Verfasst am: 14.01.2008, 16:32 Aufrufe: 585

Lol, wie bekomme ich aber jetzt die hex werte aus einer exe datei?

Verfasst am: 14.01.2008, 16:20 Aufrufe: 585

hex() macht zumindest in vb6 das den hex wert den du eingibst als buchstabe rauskommt: hex(12) gibt "C" hex(1) gibt "1"

Verfasst am: 14.01.2008, 16:13 Aufrufe: 2646

Du brauchst keine Hex Codes wenn du eine Art AV Devil coden willst. Das einzige was du machen mußt ist, die Datei Teilchenweise auszulesen und wo anders zu schreiben. Jedenfalls für einen simplen Offset Finder.

Verfasst am: 14.01.2008, 16:13 Aufrufe: 585

Aber ich kapier die funktion für hex in vb6 ja schon nich Embarassed

außerdem ist mein Vb6 kaputt, wenn ich nen Button oder so auf die Form ziehe, dann "laggt" der button dabei... Könnte mir jemand die Hex() funktion erklären?

Verfasst am: 14.01.2008, 16:11 Aufrufe: 585

Ja, warum sollte man das nicht können. Ich code zwar nicht VB.Net, aber sowas kann man ja schon in VB6 lösen. Einziges Problem bei VB6 ist die Geschwindigkeit. Aber das bekommt man auch in den Griff wenn man weiß wie. Aber bei VB.Net sollte das eigentlich noch leichter sein. Evt. gibts wie bei VB6 die Funktion "Hex()". mfg

Verfasst am: 14.01.2008, 14:21 Aufrufe: 2646

Aber ich bekomme ja noch nichtmal die hex codes aus der exe datei... Embarassed

Verfasst am: 05.01.2008, 01:48 Aufrufe: 6481

... uot;90909090") End Sub Private Sub Command2_Click() Call SetProcess("3D-Pinball für Windows - Space Cadet") Call WriteXBytes(&H101757C, "0130") End Sub mfg EDIT: man kann genausogut auch writeNOPS (adresse , anzahl NOPs) zum freezen nehmen(ein NOP ist eine 90, also bei uns 4), weil ich hatt schonmal ne adresse, die mehr 90 hatte als es in hex ...

Verfasst am: 04.01.2008, 22:45 Aufrufe: 6481

00BD8C94 ; UNICODE "UIIT_STT_LV_LEVEL" Ein paar Zeilen tiefer: 0059ACBB 8B3D 7C99CE00 MOV EDI,DWORD PTR DS: Unsere Hauptadresse ist CE997C Zitat: 0059ACBB 8B3D 7C99CE00 MOV EDI,DWORD PTR DS: Unsere Offset: 794 0059ACC1 0FB6BF 1C08000>MOVZX EDI,BYTE PTR DS: Umgesetzt in C++ Wäre das dann dies: mem1 = ReadMemory(sroProcess, 0xCA433C]); (notice the "0x" because it is hex) v ...

Verfasst am: 16.12.2007, 14:30 Aufrufe: 2158

... #40;6) = 0 arrPadding(7) = 0 MD564Split 8, arrPadding End Sub Private Function MD5StringChange(lngnum As Long) As String Dim bytA As Byte Dim bytB As Byte Dim bytC As Byte Dim bytD As Byte bytA = lngnum And &HFF& If bytA < 16 Then MD5StringChange = "0" & Hex ...

Verfasst am: 11.12.2007, 17:30 Aufrufe: 585

Könnte man theoretisch in vb.net einen Hexeditor coden, der mir wie bei einem professionellen (oder auch nicht...) die hexcodes gibt. Es reichen die Hexcodes. Thx schon mal im Vorraus! Mfg chaozz

Verfasst am: 20.11.2007, 10:38 Aufrufe: 2646

Der Code ist jedenfalls sehr kompliziert gewesen und hat mich einiges an Zeit gekostet. Wenn du nichts besseres als AV Devil machen willst, dann ist es relativ einfach. Es wird aus der Datei ausgelesen und kleine Teilchen oder evt. auch nur immer ein Byte in eine andere Datei geschrieben. Darauf sprechen aber einige AV's nicht mehr an. Ein Hexeditor sollte da viel einfacher sein. Jedenfalls die Grundfunkt ...

Verfasst am: 12.11.2007, 18:10 Aufrufe: 2257

Verfasst am: 10.11.2007, 13:54 Aufrufe: 2646

Hi, wäre es möglich, eine Art zweiten AV Devil oder einen Hex Editor in VB zu proggen? Wenn ja, könnte bitte jemand ein Snippet dafür posten, thx schon mal im Vorraus.

Verfasst am: 17.09.2007, 18:27 Aufrufe: 3275

Text Public Function MD5StringHash(ByVal strString As String) As String Dim MD5 As New MD5CryptoServiceProvider Dim Data As Byte() Dim Result As Byte() Dim Res As String = "" Dim Tmp As String = "" Data = Encoding.ASCII.GetBytes(strString) Result = MD5.ComputeHash(Data) For i As Integer = 0 To Result.Length - 1 Tmp = Hex(Result(i)) If ...

Verfasst am: 12.09.2007, 20:26 Aufrufe: 412

Verfasst am: 19.08.2007, 15:08 Aufrufe: 1271

TwipsPerPixelY) End Sub Private Function RGBnachHEX(ByVal Farbe As Long) As String Dim Rot As String Dim Grün As String Dim Blau As String Dim HRot As String Dim HGrün As String Dim HBlau As String Rot = Farbe And &HFF& Grün = Farbe And &HFF& Blau = Farbe And &HFF& HRot = Hex(Rot) HGrün = Hex(Grün) HBlau = Hex(Blau) If Le ...

Verfasst am: 16.05.2003, 17:41 Aufrufe: 419

Input End If End Sub Das geht soweit aber ich benötige die empfangenen Daten aber als Byte (comInputModeBinary) das bedeutet das ich den gesamten Empfangspuffer (mscomm1.InBufferCount)der auch hochzählt auslesen muss. Aber wie? denn ich brauche die Werte im Hex format (ist ja einfach wenn man an die Bytes herrankommt). Es scheitert an der zuweisung, die ich aus der hilfe habe (Buffer = mscomm1.input sowie d ...

Verfasst am: 16.05.2003, 17:40 Aufrufe: 1829

Input End If End Sub Das geht soweit aber ich benötige die empfangenen Daten aber als Byte (comInputModeBinary) das bedeutet das ich den gesamten Empfangspuffer (mscomm1.InBufferCount)der auch hochzählt auslesen muss. Aber wie? denn ich brauche die Werte im Hex format (ist ja einfach wenn man an die Bytes herrankommt). Es scheitert an der zuweisung, die ich aus der hilfe habe (Buffer = mscomm1.input sowie d ...

Verfasst am: 03.05.2002, 15:39 Aufrufe: 507

Also der Fehler scheint in diesen Zeilen zu sein: Quote:txt_fünf.Text = fünf 'Hex darf max 5 Zeichen lang sein fünf = txt_fünfzwei.Text 'dient zur darstellung müsste das nicht Quote:fünf = txt_fünf.Text 'Hex darf max 5 Zeichen lang sein txt_fünfzwei.Text = fünf'dient zur darstellung heißen?? Ansonsten würd ich das aber so machen: (Text1 : Eingabefeld Text2: Ausgabefeld Command1: Umrechnen) Quote:Private Sub Comm ...

Verfasst am: 03.05.2002, 09:30 Aufrufe: 507

Hi erstmal Wie mein Name schon sagt beschäftige ich mich gezwungener masen mit VB. Seit zwei tagen bastele ich an einem Hex in Dez umrechner da ich aber nicht "deczahl = Val("&H" & hexzahl)" benutzen darf und dem Benutzer eine Erläuterung des Umrechnungs verfahrens mitgeteilt werden soll. Ich habe vor den Benutzer die zahlen von hinten einzugeben aber er setzt das text feld welche ich zu eingabe benutze immer wied ...

Verfasst am: 03.05.2002, 08:41 Aufrufe: 405

Sorry Falsches Forum