Code Umwandler

markµs · Hält's aus hier Beiträge: 2

Hi leute!

Ich hab zum Bsp. diesen Code: %8E%08c%E4 den ich in 2881 umwandeln möchte! :shock:

Den "Algorithmus" hab ich auch schon:

user defined image

Ich schaffs aber nicht ein Delphiprogramm zu machen das die Codes umwandeln kann :cry:

könnt ihr mir helfen?

Ich poste nochmal ein par andere Umwandelbeispiele:

%8B%00k%E7 -> 7002
%8B%07j%E0 -> 7715
%8E%06k%E0 -> 2605
%8E%05b%E7 -> 2592
%8A%08k%E0 -> 6805
%8D%01m%EC -> 1169
%8B%09h%E7 -> 7932
%89%02i%E7 -> 5222
%8E%01j%E4 -> 2111

D A N KE ! :lol:

Hoda · Beiträge: 27

Hi markµs,
bekommst du den Code als String übergeben?
Und meine zweite frage ist : Warum wird bei dem ersten %8E das "E" genommen, bei dem zweiten %08c das "8c" und beim dritten %E4 das "4" ?

Kann sich das ändern ?

Gruß,
hoda

markµs · Hält's aus hier Beiträge: 2

Hoda hat folgendes geschrieben:

Hi markµs,
bekommst du den Code als String übergeben?
Und meine zweite frage ist : Warum wird bei dem ersten %8E das "E" genommen, bei dem zweiten %08c das "8c" und beim dritten %E4 das "4" ?

Kann sich das ändern ?

Gruß,
hoda

ja, als string, dann zu deiner zweiten frage, bin mir nicht sicher ob ich sie ganz verstanden habe.. :
user defined image

alles was grau ist spielt keine Rolle und muss nicht beachtet werden, die drei blöcke (%8, %0, %E) bleiben auch immer so, nur die farbigen ziffern variieren, zum beispiel beim grünen "c" wie du in meiner tabelle sehen kannst bedeutet es wenn ein "c" an der Stelle ist das eine "8" in dem vierstelligen code an 3. stelle ist!

ich hoffe es wahr verständlich :cry:

Dron48 · Hält's aus hier Beiträge: 6

ich bin ja keiner delphi programmer, aber im pascal würde ich dem string zerschneiden, also mir die 3. 6. 7. 8. chars rausnehmen und durch IF umwandeln, die chars zu einem string verkleben und mit val zu integer machen

Hoda · Beiträge: 27

Hi markµs,
hier ein Beispiel code:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var strTemp: String;
    Str1 : Array [1..3] of String;
    i : integer;
begin
  strTemp := '%8E%0Ec%E4';
  If strTemp <> '' then
  For i := 1 to 3 do begin
    delete(strTemp,Pos('%',strTemp),2);
    str1[i] := Copy(StrTemp,1,Pos('%',strTemp)-1);
    delete(strTemp,1,Pos('%',strTemp)-1);
    if Pos('%',strTemp) = 0 then
      str1[i] := strTemp;
  end;

desweiteren musst du die Werte in str1[i] mit den Werten in der Tabelle vergleichen ! :roll:

Gruß,
hoda

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme