Virtuelles Konto (CodeMania)

Übersicht Sonstiges Projekte

Gehe zu Seite Zurück  1, 2

Neue Antwort erstellen

 

Nemesis

 BeitragMi, Okt 19, 2005 8:45
Antworten mit Zitat
Benutzer-Profile anzeigen
das bringt auch nix, weil wenn das programm rankommt, kommt jeder ran.
 

maxinet

 BeitragMi, Okt 19, 2005 10:57
Antworten mit Zitat
Benutzer-Profile anzeigen
Es sei denn man macht das konto doch irgendwie Online, und sendet dann folgende informationen an den server:
benutzername, passwort, eingegebener_code
das PHP script gibt nur

erfolgt
10

zurück, was das programm auslesen kann und dann in die status zeile schreibt: Schillinge wurden aktuallisiert: 10
(10 steht für aktueller kontostand)

Ich werde mich mal um eine User Verwaltung kümmern...

Last Anquav Hero

 BeitragMo, Okt 24, 2005 21:35
Antworten mit Zitat
Benutzer-Profile anzeigen
irgendwie geht das prog bei mir nicht.
bei mir kommt immer "falscher code"
aber vielleicht liegt das ja an dem fehler in der datei codekill.php
Warning: fopen("codes.php", "w") - Keine Berechtigung in /home/www/web50763/html/games/codekill.php on line 55
 

Moses

 BeitragDi, Okt 25, 2005 0:11
Antworten mit Zitat
Benutzer-Profile anzeigen
'project entropia' (MMORPG) sag ich nur ... wer im rl reich ist ist's dann auch im game ... super wozu brauch ich dann das game?!? Rolling Eyes
 

maxinet

 BeitragSa, Nov 12, 2005 20:42
Antworten mit Zitat
Benutzer-Profile anzeigen
Naja, Ich habe keine Interesse mehr, das Programm weiter zu entwickeln.

BlitzBasic: [AUSKLAPPEN] 
Function Entschluesseln()
  datei = OpenFile(FileName)
    bank = CreateBank(FileSize(FileName)+2)
    For i = 0 To FileSize(FileName)
      PokeByte(bank,i, ReadByte(datei)+358)
    Next
    SeekFile(datei,0)
    For i = 0 To FileSize(FileName)
      WriteByte(datei, PeekByte(bank,i))
    Next
  CloseFile datei
End Function

Function Verschluesseln()
  datei = OpenFile(FileName)
    bank = CreateBank(FileSize(FileName)+2)
    For i = 0 To FileSize(FileName)
      PokeByte(bank,i, ReadByte(datei)-358)
    Next
    SeekFile(datei,0)
    For i = 0 To FileSize(FileName)
      WriteByte(datei, PeekByte(bank,i))
    Next
  CloseFile datei 
End Function


deskw=ClientWidth(Desktop())
deskh=ClientHeight(Desktop())
x = deskw / 2 - 125
y = deskh / 2 - 65
;#################
   eincodeanz=10
   waehrung$=\"Schilling\"
   ext$=\"e\"
;#################

Global FileName$ = \"C:\ccod.cvp\"
window=CreateWindow(\"Code Mania\",x,y,248,140,0,9)
label=CreateLabel(\"Code:\",15,19,30,20,window)
codetxt1=CreateTextField(55,15,40,20,window)
codetxt2=CreateTextField(95,15,40,20,window)
codetxt3=CreateTextField(135,15,40,20,window)
codetxt4=CreateTextField(175,15,40,20,window)
button=CreateButton(\"OK >>\",80,50,50,25,window)
konto=CreateButton(\"Kontostand\",5,50,70,25,window)
del=CreateButton(\"Eingaben löschen\",135,50,100,25,window)
SetStatusText window, \"Bitte gebe einen Code ein!\"
.neueeingabe
DisableGadget button
ActivateGadget codetxt1
Repeat

  If schonfalsch=3 Then
    SetStatusText window, \"Du hast 3 falsche Codes eingegeben!\"
    DisableGadget konto
  EndIf

  code1$=TextFieldText(codetxt1)
  If Len(code1$) => 4 Then DisableGadget codetxt1 : ActivateGadget codetxt2

  code2$=TextFieldText(codetxt2)
  If Len(code2$) => 4 Then DisableGadget codetxt2 : ActivateGadget codetxt3

  code3$=TextFieldText(codetxt3)
  If Len(code3$) => 4 Then DisableGadget codetxt3 : ActivateGadget codetxt4

  code4$=TextFieldText(codetxt4)
  If Len(code4$) => 4 Then DisableGadget codetxt4 : ActivateGadget button
  
  If (Len(code1$)=>4) And (Len(code2$)=>4) And (Len(code3$)=>4) And (Len(code4$)=>4) Then 
    If schonfalsch=3 Then
      SetStatusText window, \"Du hast 3 falsche Codes eingegeben!\"
    Else
      EnableGadget button
    EndIf
  EndIf

  Select WaitEvent()
    Case $803 End
    Case $401
      Select EventSource()
        Case button DisableGadget button : DisableGadget del : SetStatusText window, \"Eingegebener Code wird geprüft ...\" : Goto check
        Case del Goto reset  
        Case konto 
          dateiname$ = \"ccod.cvp\"
          folder$ = \"C:\\"
          myDir=ReadDir(folder$)
          Repeat
            file$=NextFile$(myDir)
            If file$=\"\" Then Exit
            If file$=dateiname$ Then 
              ktogo = \"1\" 
            EndIf
          Forever
          If ktogo = 1 Then
            CloseDir myDir 
            Entschluesseln()
            Datei = ReadFile(\"C:\ccod.cvp\")
            kto = ReadLine(Datei)
            CloseFile Datei
            Verschluesseln()
            If kto > 1 Then
              extension$=ext$
            Else
              extension$=\"\"
            EndIf
            SetStatusText window,\"Aktueller Kontostand: \"+kto+\" \"+waehrung$+extension$+\"!\"
          Else
            SetStatusText window,\"Aktueller Kontostand: 0 \"+waehrung$+ext$+\"!\"
          EndIf
      End Select
   End Select
Forever
End


.check
error=1

tcp=OpenTCPStream(\"http://maxi.klammhost.de\",80)
If tcp = 0 Then 
  RuntimeError \"Verbindung konnte nicht hergestellt werden!\"
EndIf

WriteLine(tcp, \"GET http://maxi.klammhost.de/games/codes.php HTML/2.0\")
WriteLine(tcp, \"HOST http://maxi.klammhost.de\") 
WriteLine(tcp, \"\")

While Not Eof(tcp)
  zeile$=ReadLine(tcp)   

  code$=Left(zeile$,16)
  eincodeanz=Right(zeile$,2)

  If code$ = code1$ + code2$ + code3$ + code4$ Then
      tcp=OpenTCPStream(\"http://maxi.klammhost.de\",80)
      If tcp = 0 Then 
        RuntimeError \"Verbindung konnte nicht hergestellt werden!\"
      EndIf
      WriteLine(tcp, \"GET http://maxi.klammhost.de/games/codekill.php?getcode=\"+zeile$+\" HTML/2.0\")
      WriteLine(tcp, \"HOST http://maxi.klammhost.de\") 
      WriteLine(tcp, \"\")

    dateiname$ = \"ccod.cvp\"
    folder$ = \"C:\\"
    myDir=ReadDir(folder$)
    Repeat
      file$=NextFile$(myDir)
      If file$=\"\" Then Exit
      If file$=dateiname$ Then 
        go$ = \"1\" 
      EndIf
    Forever
    CloseDir myDir

    If go$ = 1 Then     
      
      Entschluesseln()

      Datei = ReadFile(\"C:\ccod.cvp\")
      anzcodes = ReadLine(Datei)
      CloseFile Datei
      anzcodesges=anzcodes+eincodeanz
    Else
      anzcodesges=eincodeanz
    EndIf

    Datei = WriteFile(\"C:\ccod.cvp\")
    WriteLine Datei, anzcodesges
    CloseFile Datei
    
    Verschluesseln()

    SetStatusText window,\"Deine \"+waehrung$+ext$+\" wurden aktuallisiert! Konto: \"+anzcodesges : error=0
  EndIf  
Wend

If error=1 Then
  schonfalsch=(schonfalsch+1)
  AppTitle \"Error\"
  Notify \"Der Eingegebene Code ist falsch!\"
  SetStatusText window, \"Bitte gebe einen Code ein!\"
EndIf

.reset
EnableGadget del
EnableGadget codetxt1 : SetGadgetText codetxt1, \"\"
EnableGadget codetxt2 : SetGadgetText codetxt2, \"\"
EnableGadget codetxt3 : SetGadgetText codetxt3, \"\"
EnableGadget codetxt4 : SetGadgetText codetxt4, \"\"
Goto neueeingabe


Teils schön kompliziert aufgebaut, aber es funktioniert Wink
Das script ist OpenSource..

Gruß
maxinet
 

Lion

 BeitragSa, Nov 12, 2005 20:47
Antworten mit Zitat
Benutzer-Profile anzeigen
maxinet hat Folgendes geschrieben:

Das script ist OpenSource..


Sonst stände es hier net Laughing
Intel Core 2 Quad 4x2.66 ghz - 4gb ddr2 - nvidia GeForce GTX660 2gb
Intel Atom 1x1.83 ghz - 2gb ddr2 - intel GMA 3150 256mb
AMD A10-5750M 4x2.5 ghz - 8 gb ddr4 - AMD R9 M290x

Xalon

 BeitragSa, Nov 12, 2005 21:39
Antworten mit Zitat
Benutzer-Profile anzeigen
Damit meint er das es jetzt jeder Benutzen darf Wink

Xalon
>>Besucht doch mal meine Seite,mit NEUEN Tutorials<<
User posted image
 

maxinet

 BeitragSo, Nov 13, 2005 12:10
Antworten mit Zitat
Benutzer-Profile anzeigen
Jo.
Mein hoster hat jetzt seine Seite dicht gemacht, das heißt, maxi.klammhost.de geht nun nicht mehr.
Was ich noch vergessen hab:
Die PHP Datei, die die Codes löscht:

Code: [AUSKLAPPEN]
<?
  function deleteLineFromFile($filename, $text = "", $line = -1)
  {
     $result = true;

     if (! strlen ($text) && $line == -1)
       $result = false;
     else
     {
        if (file_exists($filename))
        {
           $array = file($filename);

           // Zeilennummer?
           if ($line != -1)
           {
              if ($line < count($array))
              {
                 unset($array[$line]);
                 $array = array_values($array);
              }
              else
                $result = false;
           }
           else
           {
              if (strlen ($text))
              {
                 $count = -1;

                 foreach ($array as $value)
                 {
                    $value = trim ($value);
                    if ($text == $value)
                    {
                       $count++;
                       unset($array[$count]);
                       $array = array_values($array);
                       break;
                    }
                    else
                     $count++;
                 }
              }
              else
                $result = false;
           }
        }
        else
          $result = false;
     }

     if ($result = true)
     {
         $fp = fopen ($filename, "w");

         if ($fp)
         {
            foreach ($array as $value)
              fputs($fp, $value);

            fclose ($fp);
         }
         else
           $result = false;
     }

     return $result;
  }

  $fn = "codes.txt";

  // Loeschen einer Zeile mit Text-Angabe
  deleteLineFromFile($fn, $text = $getcode, -1);
?>



Viel Spaß,
MaXiNeT

Gehe zu Seite Zurück  1, 2

Neue Antwort erstellen


Übersicht Sonstiges Projekte

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group