Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
4. Dez 2013
Genau diese Hoffnung hatte ich ja am Anfang gehabt.
Dachte es sei eine ganz normale CRC32 Funktion, war aber Leider auf dem Holzweg.
Aber da diese Vermurkste Version schon in so vielen Panels verbaut ( Programmiert ) ist, muss ich wohl oder
übel das etwas andere Model in Delphi einbinden um nicht alles Plattformen updaten zu müssen. ( Was bei der Menge und Standorte nicht geht )
Also...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
4. Dez 2013
Ich habe die Scripte von diesen Panel in Excel eingebaut und Teste dort alles.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
4. Dez 2013
Wenn ich das tue bekomme ich wieder kompletten Käse gegenüber VB raus.:shock:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
4. Dez 2013
Hallo,
Also wenn ich aus
For i := 1 To length(Data) do
begin
lCRC32 := (((lCRC32 shr 8) And $FFFFFF) Xor
Crc32Table1)]);
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
Ich setze Delphi 6 ein.
Und ja die Ausgaben waren vom VB Script.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
Ja, ergibt ein VB und Delphi das selbe.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
Das habe ich jetzt mal gemacht und die Tabelle mit den Werten vom VBA Script gefüttert.
Das Lustigste ist das es immer noch nicht geht.
var
Form1: TForm1;
Crc32Table : array of integer =
(0,1996959894,-301047508,-1727442502,124634137,1886057615,-379345611,-1637575261,249268274,2044508324,-522852066,...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
Habe die DIM als long deklariert und die Ausgabe ist noch genauso wie vorher.
Langsam drehe ich mit dem VB durch.:pale::pale:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
Im VBA Script darf ich ja nix ändern. So ist das in ca. 200 Touchpanels programmiert.
Ich Versuche nur dieses Script in Delphi zu portieren um die Passwortvergabe
über das Programm zu ermöglichen.
Die Firma die das Programm mal in VB geschrieben hat existiert nicht mehr.
Das Prog ist defekt und läuft nicht mehr. (keine Quellen ausser das blöde Script)
Und ich habe kein VB sondern nur...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
:cry::cry:
Wie bekomme ich hier nen Zeilenmbruch hin ?
Sorry
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
String = karlos
Vom VBA
0 77073096 EE0E612C 990951BA 76DC419 706AF48F E963A535 9E6495A3 EDB8832 79DCB8A4 E0D5E91E 97D2D988 9B64C2B 7EB17CBD E7B82D07 90BF1D91 1DB71064 6AB020F2 F3B97148 84BE41DE 1ADAD47D 6DDDE4EB F4D4B551 83D385C7 136C9856 646BA8C0 FD62F97A 8A65C9EC 14015C4F 63066CD9 FA0F3D63 8D080DF5 3B6E20C8 4C69105E D56041E4 A2677172 3C03E4D1 4B04D447 D20D85FD A50AB56B 35B5A8FA 42B2986C...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
ich habe jetzt in dem VBA-Script die DIM Variablen als Integer gesetzt.
Function Skr_CRC32(Data As String) As String
Dim i, lCRC32, iBit As Integer
Es kommt dann immer noch das selbe Ergebnis raus. Nur nicht das vom Delphicode :?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
test -> 7A635C01
hugo ->6A0D2BDA
karlos -> F1BFB3B6
inge -> FEB506DD
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
Ja ich habe die Klammerungen getestet, es hat sich aber nichts geändert.
var
i, lCRC32, iBit : dword ;
Crc32Table : array of dword ;
txt : string;
begin
For i := 0 To 255 do //$B40BBE37
begin
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
Danke für die Mühe,
Ich habe es fast ähnlich gelöst.
Function Skr_CRC32(Data :String) : String;
function Hex(data: longint; width: word): string;
(* pads with leading zeroes to reach specified width; use width=0 for tight fit *)
const
HexChars: array of char = '0123456789ABCDEF';
var
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
Hallo,
Wie schon gesagt habe ich von VBA keinen Plan.
Das Script ist in einer Touchpanelsoftware eingebaut.
Diese Software soll nun mit Delphi ersetzt werden.
Ich möchte das bestehende Benutzeranmeldungssystem beibehalten und in mein Delphiprojekt
integrieren.
ReDim Crc32Table(255)
Forum: Algorithmen, Datenstrukturen und Klassendesign
by BUllweih,
3. Dez 2013
Hallo,
Da ich überhaupt keinen Plan von VBA habe wollte ich mal hier nachfragen
ob mir wer bei einem Übersetzungsproblem helfen kann.
Ich habe jetzt schon viele CRC32 Funtionen getestet aber ich bekomme nicht das Ergebnis das dieses Script generiert.
Aber genau diese Ausgabe brauche ich.
Ich bekomme den Code unten nicht übersetzt.
Könnte da wer mir mal etwas unter die Arme greifen ??