Delphi code omzetten naar php code! moet kunnen!

[Verwijderd]

Hai.,

Met deze code kan je een serial nummer genereren!!!
Ik wil deze graag ook via mijn site kunnen genereren!
Hoe doe ik dat?

code:

VAR

  Total             : STRING;

  B               : Byte;
  I,Q               : LongInt;


begin
 Q:=123456;
 I:=3000;   { Could make this something else if you want it more random looking }
 total:= edit1.text+edit2.text+Edit4.text+Edit5.text;
 For B:=1 to Length(Total) Do
 I:=I+(ord(Total[B])*Q);
  Edit3.text:=Makeitastring(I);

Alvast bedankt, het zou in PHP moeten kunnen, op een andere manier uiteraard!! Alvast bedankt

[marcusk]

lijkt me erg simpel, wat is het probleem?

[chem]

/me snif, snif... snif snif!

ik ruik hier een scriptrequest!

[MaxxRide]

Er ontstaat hier idd een aardige geur van scriptreq

[Verwijderd]

Die hing er toch al?

[MaxxRide]

Ik geloof ook al dat iemand luchtverfrisser had gespoten.

[Verwijderd]

Ik ruik nix, ben verkouden.

[MaxxRide]

Scheutje Crog nodig??

[Verwijderd]

d00d.. dit is echt 5 minuten php'en. én een script req!

[Verwijderd]

roken we het toch goed

[BezurK]

Ik!! Doe!! niet aan requests!! Waarom niet??? Daarom!!!



(dit was een stille hint, voortaan iets zuiniger omgaan met uitroeptekens svp, dat leest een stuk prettiger een geeft een minder vijandige toon)

[Verwijderd]

Jezus wat is dit he?
Ik heb hier behalve de vraag zelf geen enkele zinnige post gezien?
En als je het zelf toch zo goed weet, kan je dan niet in ieder geval hints geven? Met welke datatypes hij moet gaan werken oid?????
Het niveau gaat hier echt omlaag, lees ook [topic=312942/1/100]

Niet dat ik recht van spreken heb op zich, maarik wou het toch ff melden.....

[Gerco]

Om dit naar PHP om te zetten, zet je voor alle variabelen een $, vervang je := door = en werk je een paar kleine dingetjes weg. Voor iemand met een Delphi & PHP roels icon, had ik toch wel iets meer verwacht

code:

 $Q=123456;
 $I=3000;

 $total= $edit1+$edit2+$Edit4+$Edit5;
 for($B=1;$B<=strlen($total);$B++) {
   $I=$I+(ord($Total[B])*$Q);
   $Edit=$I;
 }

Zo werkt het nog niet helemaal, maar you get the idea.

[D2k]

Op zondag 11 november 2001 12:46 schreef ceidhof het volgende:
Jezus wat is dit he?
Ik heb hier behalve de vraag zelf geen enkele zinnige post gezien?
En als je het zelf toch zo goed weet, kan je dan niet in ieder geval hints geven? Met welke datatypes hij moet gaan werken oid?????
Het niveau gaat hier echt omlaag, lees ook [topic=312942/1/100]

Niet dat ik recht van spreken heb op zich, maarik wou het toch ff melden.....

nee dit is een post die je zo kan stellen?
tis vrij eenvoudig dus dit kan je echt zelf wel maken
en dan als je het niet kan DAN kan je met code die niet werkt aankomen en dan kijken we er echjt wel naar
</ot>

[marcusk]

Op zondag 11 november 2001 12:46 schreef ceidhof het volgende:
Jezus wat is dit he?
Ik heb hier behalve de vraag zelf geen enkele zinnige post gezien?
En als je het zelf toch zo goed weet, kan je dan niet in ieder geval hints geven? Met welke datatypes hij moet gaan werken oid?????
Het niveau gaat hier echt omlaag, lees ook [topic=312942/1/100]

Niet dat ik recht van spreken heb op zich, maarik wou het toch ff melden.....

Je mag van iemand toch wel minimaal verwachten dat ze aangeven wat ze zelf al geprobeerd hebben en wat er daarbij mis is gegaan. In dit geval lijkt het er niet op dat de vraagsteller ook maar iets geprobeerd heeft, omdat er bijna een 1 op 1 vertaling mogelijk is.

[chem]

om een oeverloze discussie over 'de toekomst van GoT' te voorkomen sluit ik dit topic (en 't was al een scriptrequest maar de topicstarter heeft blijkbaar geen interesse meer)
Ga maar verder in LA