Xojo Developer Conference
25/27th April 2018 in Denver.
MBS Xojo Conference
6/7th September 2018 in Munich, Germany.

MP5 Verschl ü sselung (Real Studio network user group Deutschland Mailinglist archive)

Back to the thread list
Previous thread: Encoding-Valentina-Windows
Next thread: DateiTypen


Probleme mit String Bearbeitung   -   Markus Schnell
  MP5 Verschl ü sselung   -   Rudi Maier
   Re: MP5 Verschl ü sselung   -   Tobias Hagemann
    Re: MP5 Verschl ü sselung   -   Rudi Maier
   Re: MP5 Verschl ü sselung   -   Tobias Hagemann
   Re: MP5 Verschl ü sselung   -   Tobias Hagemann
   Re: MP5 Verschl ü sselung   -   Tobias Hagemann

MP5 Verschl ü sselung
Date: 14.08.04 14:30 (Sat, 14 Aug 2004 15:30:04 +0200)
From: Rudi Maier
Hallo,

hat jemand eine Routine für MP5 Verschlüsselung für RB 4.5.3, oder gibt es
ein PlugIn?

Rudi Maier

Re: MP5 Verschl ü sselung
Date: 14.08.04 14:45 (Sat, 14 Aug 2004 15:45:05 +0200)
From: Tobias Hagemann
> hat jemand eine Routine für MP5 Verschlüsselung für RB 4.5.3, oder
> gibt es
> ein PlugIn?

Meinste wirklich MP5? Oder eher MD5? MD5 ist schon in REALbasic
eingebaut. Wenn du es als Hex haben willst (wie PHP), dann mach das:

Function MD5Hex(src as string) As String
dim n, L, v as integer
dim s as string

src = MD5(src)
L = LenB(src)

for n = 1 to L
v = AscB(MidB(src, n, 1))
s = s + RightB("00" + Hex(v), 2)
next

return Lowercase(LeftB(s, LenB(s)))
End Function

--

Re: MP5 Verschl ü sselung
Date: 14.08.04 15:54 (Sat, 14 Aug 2004 16:54:49 +0200)
From: Rudi Maier
am 14.08.2004 15:45 Uhr schrieb Tobias Hagemann unter <email address removed>:

>> hat jemand eine Routine für MP5 Verschlüsselung für RB 4.5.3, oder
>> gibt es
>> ein PlugIn?
>
> Meinste wirklich MP5? Oder eher MD5? MD5 ist schon in REALbasic
> eingebaut. Wenn du es als Hex haben willst (wie PHP), dann mach das:
>
> Function MD5Hex(src as string) As String
> dim n, L, v as integer
> dim s as string
>
> src = MD5(src)
> L = LenB(src)
>
> for n = 1 to L
> v = AscB(MidB(src, n, 1))
> s = s + RightB("00" + Hex(v), 2)
> next
>
> return Lowercase(LeftB(s, LenB(s)))
> End Function

Hallo Tobias,

danke für Deine schnelle Antwort.
Leider kann ich MD5 in RB 4.5.3 nicht finden.

Gibt es dafür vieleicht ei PlugIn?

Gruß Rudi

Re: MP5 Verschl ü sselung
Date: 14.08.04 19:00 (Sat, 14 Aug 2004 20:00:24 +0200)
From: Tobias Hagemann
>> hat jemand eine Routine für MP5 Verschlüsselung für RB 4.5.3, oder
>> gibt es
>> ein PlugIn?
>
> Meinste wirklich MP5? Oder eher MD5? MD5 ist schon in REALbasic
> eingebaut. Wenn du es als Hex haben willst (wie PHP), dann mach das:
>
> Function MD5Hex(src as string) As String
> dim n, L, v as integer
> dim s as string
>
> src = MD5(src)
> L = LenB(src)
>
> for n = 1 to L
> v = AscB(MidB(src, n, 1))
> s = s + RightB("00" + Hex(v), 2)
> next
>
> return Lowercase(LeftB(s, LenB(s)))
> End Function

Oh man, die letzte Zeile ist ja schwachsinn. Man kann das einfach durch

return Lowercase(s)

ersetzen. Ich hab's einfach von:
http://www.monkeybreadsoftware.de/realbasic/listarchive-realbasic-nug/
thread_18122003_21.shtml übernommen und den Seperator rausgemacht. Hab
dann wohl eine Sache übersehen! ;)

--
N

Re: MP5 Verschl ü sselung
Date: 14.08.04 17:51 (Sat, 14 Aug 2004 18:51:09 +0200)
From: Tobias Hagemann
>> danke für Deine schnelle Antwort.
>> Leider kann ich MD5 in RB 4.5.3 nicht finden.
>
> gehört zu RB 5.

Mist, das wusste ich nicht! :)

>> Gibt es dafür vieleicht ei PlugIn?
>
> sicher.
> z.B. gibt's da eine MD5 Klasse in meinen Plugins.

Gibt's einen Unterschied zwischen MD5() und MD5MBS()?

--

Re: MP5 Verschl ü sselung
Date: 14.08.04 17:55 (Sat, 14 Aug 2004 18:55:04 +0200)
From: Tobias Hagemann
>>> Gibt es dafür vieleicht ei PlugIn?
>>
>> sicher.
>> z.B. gibt's da eine MD5 Klasse in meinen Plugins.
>
> Gibt's einen Unterschied zwischen MD5() und MD5MBS()?

Hab grad auf der Page selbst nachgeschaut, da stand drunter:

"Notes: Smae as the MD5 function in RB5."

:)

-