CARAMAIL CLIENT FONCTIONNANT SUR NEW PROTOCOLE
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
7 juin 2003 à 23:30
cs_Emilien Messages postés 35 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 8 avril 2007 - 18 nov. 2004 à 01:53
cs_Emilien Messages postés 35 Date d'inscription samedi 22 mars 2003 Statut Membre Dernière intervention 8 avril 2007 - 18 nov. 2004 à 01:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7371-caramail-client-fonctionnant-sur-new-protocole
https://codes-sources.commentcamarche.net/source/7371-caramail-client-fonctionnant-sur-new-protocole
18 nov. 2004 à 01:53
Voila je suis administrateur d' Airwebchat
et je voudrais savoir si c'étais possible de faire ce genre de dialogs sur mon réseau
donc pour le login et le modepass c'est via un robot du nom de NicKserv (/msg nickserv identify Lepass)
et pour l'enregistrement c'est
( /msg nickserv REGISTER motdepasse email )
donc enfaite le client marque le login et le modepass qu'il a crée et serais-til aussi de faire le changement de pseudo tout comme tout serveur irc
et aussi (je suis chiant) mettre tout les smileys de caramail dans le prog
Bon sur ce je te passe le site du serveur
Http://www.AirWebChat.com
aufaite j'ai oublié les salon sont en #lesalon
tu peut venir me voir sur #aide pour en parlé et pour toute question sur les commande que tu aura besoin de mettre sur le programme merci
Amicalement. Emilien
3 oct. 2004 à 22:42
11 juil. 2003 à 15:55
11 juil. 2003 à 01:22
10 juil. 2003 à 13:57
mon client est en IRC... fallait que je traduise...
si il te manque des infos... j'ai déjà donné mon Icq... je suis connecté en journée...
@++
10 juil. 2003 à 10:31
LesData = "&service=lycos&redirect=http://www.caramail.lycos.fr&redir_fail=http://www.caramail.lycos.fr&target_url=&product=Email&membername=" & Login & "&password=" & Pass
s = "POST /Local/Bin/Authentication/baltop.jsp HTTP/1.1" & vbCrLf & _
"Referer: http://" & Serveur & "/general.html" & vbCrLf & _
"Accept -Language: fr" & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf & _
"Host: " & Serveur & vbCrLf & _
"Content-Length: " & Len(LesData) & vbCrLf & _
"Connection: Keep -Alive" & vbCrLf & _
"cache -Control: no -cache" & vbCrLf & vbCrLf & LesData
'**************************************************************
Debug.Print s
Socket1.senddata s
puis une fois que tu as ca: le tempid est recuperer par
s = "GET /a.jsp?m=0&r=800&s=0&r0=France&p=0&i=1& HTTP/1.1" & vbCrLf & _
"Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/msword, application/x-gsarcade-launch, */*" & vbCrLf & _
"Accept -Language: fr" & vbCrLf & _
"Accept -Encoding: gzip , deflate" & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf & _
"Host: " & Serveur & vbCrLf & _
"Connection: Keep -Alive" & vbCrLf & _
"Cookie: LBC=b71271cd948be04ab259269f9306f4b8; IDENTIFIANT=" & Cookies & "; AAD=1; JSESSIONID=" & SessionID & vbCrLf & vbCrLf
Socket7.senddata s
******Ce n'est plus la bonne commande mais elle fonctionne toujours, de plus tu recuperes l'IP, et le port de connection en meme temps.
apres: tu balances
WinChat.senddata ("0" & vbTab & PPrevenir & vbTab & Cookies & Chr(10))
et la tu aura un retour de ta connection au chat
alors je crois que tout a deja ete plus ou moins expliquer au dessus mais vu que peu de personne lisent les info il faut répéter, nous sommes 2 a avoir balancer du code dans cette page, et tout y est, en combinant les 2 codes parties de code, de plus j'ai bien dit que j'avais une source sur lequel je travail et que je voulais bien la donné auquel cas il fallait me contacter. si avec ca ca ne suffit pas pour vous aider je ne peux plus rien ........
10 juil. 2003 à 01:22
désolé d'insister, mais on dirait que personne veut m'aider :(
Alors, le nouveau tempid, vous le trouvez ou? c'est le cookie normal qui le remplace? Sinon, chez moi gros problème lors de la connection, le serveur ne me renvoir rien.. au tout début il faut bien envoier 0 0 TempId
(de mémoire, ou un truc qui ressemble) ? Chez moi, pas de réponse alors que je suis bien connecté :(
Merci!
9 juil. 2003 à 02:12
Pour ceux qui connaissent pas : split(chaine, caractere) coupe une chaine suivant caractere et la met dans un tableau
Pour les connectés suffit de faire split(connecte,vbtab) et ensuite de jouer avec le for ... step ...
c utile pour plein d'autre chose dans le client et ça simplifie la vie je trouve
8 juil. 2003 à 20:49
Pour la recherche d'utilisateur, si je me souviens bien ds l'ancien proto lors tu faisais une recherche en précisant le sexe il te renvoyait une chaine avec un parametre en moins (ici le sexe) donc cetait bien chiant car il fallait faire 2 fonctions différentes pour traiter ça. Alors qu'avec le nouveau proto avec une meme fonction on peut traiter les deux vu qu'il ya autant de parametres ds une recherche par ville ou pseudo (56 & 58). Lorsque tu rejoin le salon ya rien de difficile.. SendData ("85" & vbCrLf). Tu as la liste de tout les connectés du salon le tout a traiter biensur, fait bien gaffe de pas te tromper car sa peut te sembler un peut casse tete si tu ny as jms touché auparavant..
A+
Kawash
8 juil. 2003 à 17:48
les admins et modo soit invisible, soit "normaux", soit coloré (rouge et vert). Ya qu'un seul cas ou tu peux les repérer. Tu peux aussi repérer les gars qui chattent sur le salon alors qu'ils ne sont pas dans la liste des gars du salon, c'est des admins à tous les coups.
Sinon, puisque ton client a l'air de marcher, tu peux m'aider pour le mien? Je ne trouve plus de tempid dans les pages html de cara et une fois connecté au serveur de chat, quoi que je lui envoie je ne recois absolument rien :(
mon mail au cas ou: reyhishido@yahoo.com
Voilà, merci pour tout aide éventuelle!
8 juil. 2003 à 12:18
J'ai un peu bossé sur mon client et ca remarche pas trop mal...
ce qui marche pas c'est:
>recherche d'utilisateurs
>liste des utilisateurs du salon lors d'un join...
Kawash t'en es ou??? mdrrr!!??
Sinon j'ai l'impression que Cara s'est donné la possibilité de Ban??? ils se prennent pour un IRC ou quoi? d'ou ma question??
YA MOYEN DE DETECTER LES OPS???
Merci ++ tout le monde
Cyrou
8 juil. 2003 à 11:24
Merci kan meme! A+
8 juil. 2003 à 11:23
8 juil. 2003 à 11:16
C pas génial...
Nix tu veux pas m'aider si tu passe ici step??
8 juil. 2003 à 11:14
TheIlluminati : poste un commentaire et decohe la case "Être averti par mail"...
logikement ça devrai marcher ;)
8 juil. 2003 à 11:12
faite une recherche...
8 juil. 2003 à 11:10
8 juil. 2003 à 11:04
Kawash
8 juil. 2003 à 11:02
8 juil. 2003 à 10:13
j'utilise ton client sous windows 2000 et en ce moment sa merde parce que je passe par un proxy.
Je me demandias si tu avais pas une idées pour arranger ça?
apparement il merde au moment de la receptions du cookies sa dur des heures et irne ne se passe
8 juil. 2003 à 09:54
Sa vient énervant surtout que je suis tombé sur la seul source qui se prend pour un forum! ;-)
Merci a ceux qui peuvent m'aider! A+
7 juil. 2003 à 21:17
Sinon j'ai essayé de me connecter au serveur indiqué sur le port indiqué, la connexion marche... mais rien! Pas de réponse, j'envoie tout ce que je veux, la connexion tient bon mais le serveur ne me répond rien :(
7 juil. 2003 à 20:52
7 juil. 2003 à 19:29
je suis content de trouver enfin des sources pour cara, je viens d'entamer mon p'tit chat à moi en Java, et aucun sniffer ne marche sous AOL, donc problème pour le protocole!
Mon autre problème, c'est que j'ai plus fais de VB depuis 3 ans et relire du code VB me donne mal au crane :(
Enfin, tout ca pour vous demander:
Il est ou le tempid? je vois rien de toute ca dans ce que le serveur http me renvoie, juste une tonne de cookies (dont un "IDENTIFIANT"), une ip et un port.
Quelqu'un a la liste aussi des codes du protocole? Ca serait cool, c'est fatiguant de lire le code décompiler du client d'origine!
Merci à tous!
pour me contacter si ca vous dit :
MSN: reyhishido@hotmail.com
6 juil. 2003 à 20:50
En fait avant quand tu te connectais au serveur tu recevai 100 tab arnaud blabla ... ensuite tu envoyais le tempid, mais la tu recois plus 100 ... donc dans l'evenelent <nom socket>_Connect faut mettre tout simplement l'envois du tempid.
Ensuite tu veras que quelque petit truc du protocol on changé, comme la reception des 1eres lignes d'un salon, c plus 70 mais 470
6 juil. 2003 à 20:35
1 juil. 2003 à 07:33
1 juil. 2003 à 00:29
Kawash
30 juin 2003 à 23:48
30 juin 2003 à 21:43
???
30 juin 2003 à 20:04
30 juin 2003 à 18:56
bonne prog
30 juin 2003 à 16:19
vivement l'update....
30 juin 2003 à 15:07
a+
Icq: 156238882
Cyrou
30 juin 2003 à 13:30
tu as msn messenger ou un autre prog du style ?
30 juin 2003 à 12:27
30 juin 2003 à 10:43
j'ai compris mon erreur, j'avais oublié qu'il fallait récuperé le Host et le port en même temps que le tempid :)
now c'est bon, il reste le plus difficile a faire... =(
vs en êtes ou =p ?
a+
ansuketor
29 juin 2003 à 22:59
kawash
29 juin 2003 à 20:39
bonne prog @+
29 juin 2003 à 13:22
tout d'abord pas mal le client =p.
Caramail a encore changé le proto pr recup le cookie :
essayé ça :
**********
Private Sub Socket1_Connect()
Dim dat As String
Form1.RichTextBox1.SelColor = vbRed
Form1.RichTextBox1.SelFontSize = 8
Form1.RichTextBox1.SelText = "Demande du Cookie" & vbNewLine
Form1.RichTextBox1.SelStart = Len(Form1.RichTextBox1.Text)
LOGIN = Form1.TxtUserName.Text
pass = Form1.TxtPassword.Text
dat = "service=lycos&redirect=http%3A%2F%2Fwww.caramail.lycos.fr%2F&redir_fail=http%3A%2F%2Fwww.caramail.lycos.fr%2F&target_url=&product=Email&membername=" & LOGIN & "&password=" & pass & ""
Socket1.SendData "POST /Local/Bin/Authentication/baltop.jsp HTTP/1.0" & vbCrLf & _
"Referer: " & Form1.Combo6.Text & "/general.jsp" & vbCrLf & _
"Host: " & Form1.Combo6.Text & vbCrLf & _
"User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.2)" & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
"Content-Length: " & Len(dat) & vbCrLf & vbCrLf & dat
End Sub
*******
Pr la récupération ça aussi changer, déja dans le POST de chat.jsp (hé oui c'est plus GET)
*****************
Private Sub Socket2_Connect()
Dim infox As String
Form1.RichTextBox1.SelColor = vbRed
Form1.RichTextBox1.SelFontSize = 8
Form1.RichTextBox1.SelText = "Demande de chat..." & vbNewLine
Form1.RichTextBox1.SelStart = Len(Form1.RichTextBox1.Text)
infox = "pager=0&nickname=" & Form1.Combo3.Text & "&a=" & Form1.agebox.Text & "&c=" & Form1.villebox.Text & "&g=0&invisible=1&status=" & Form1.etat.Text & "&room0=" & Form1.saloname.Text & "&version=java&r=800&m=0"
Socket2.SendData "POST /Local/Bin/Chat/chat.jsp HTTP/1.0" & vbCrLf & _
"Referer: " & Form1.Combo6.Text & "/Local/Bin/Chat/chat.jsp" & vbCrLf & _
"Host: " & Form1.Combo6.Text & vbCrLf & _
"Content-Length: " & Len(infox) & vbCrLf & _
"Content-Type: application/x-www-form-urlencoded" & vbCrLf & _
"Cookie: IDENTIFIANT=" & Cookie & vbCrLf & _
"User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf & vbCrLf & infox
End Sub
*****************
pour le reste des POST pr récup le tempid c'est la même chose,
just "lesinfos" qui changent :
********
lesinfos1 = "pager=0&&nickname=" & Form1.Combo3.Text & "&a=" & Form1.agebox.Text & "&c=" & Form1.villebox.Text & "&g=0&invisible=0&status=" & Form1.etat.Text & "&room0=" & Form1.saloname.Text & "&version=java&r=800&m=2"
*****
même chose pour "lesinfos2"
Now j'ai un problème, quand j'envoi le tempid sous cette forme :
MDIForm1.WinChat.SendData ("0" & vbTab & "0" & vbTab & Form1.TxtTempsID.Text & Chr(10))
je ne reçois pas de réponse du serveur, quo normalement devrait me répondre mon SID sous cette forme :
0.@SIDXXXX:XXXXXX:0.0.0.pseudo.
voila...
suis bloqué la :(
A+
ansuketor
26 juin 2003 à 15:59
26 juin 2003 à 06:37
25 juin 2003 à 20:13
Pour la connexion d'aprés ce que j'ai vu, faut envoyer
0 tab id cara tab pseudo chr(10)
mais la chuis perdu lol, y a quelqu'un de plus avancé que moi pour ça ?
24 juin 2003 à 18:26
http://wwwv2-18.caramail.lycos.fr/Local/Bin/Authentication/baltop.jsp?membername=LELOGIN&password=LEPASS
24 juin 2003 à 16:13
24 juin 2003 à 03:13
bon prog
BY alienx
22 juin 2003 à 00:09
Maintenant jarrive a m'y connecter mais le plus dur reste a faire réadapter tout le client au nouvo proto :(
Merci et a+
21 juin 2003 à 23:12
*******************************
Private Sub Socket4_DataArrival(ByVal bytesTotal As Long)
Form1.RichTextBox1.SelColor = vbRed
Form1.RichTextBox1.SelFontSize = 8
Form1.RichTextBox1.SelText = "Réception du TempID" & vbNewLine
Form1.RichTextBox1.SelStart = Len(Form1.RichTextBox1.Text)
Dim datas As String
Socket4.GetData datas
Debug.Print datas
If InStr(datas, "HTTP/1.1 200 OK") Then
tempid = Mid(datas, InStr(datas, "") - 2)
Form1.TxtCookie.Text = Cookie
Form1.TxtTempsID.Text = tempid
MDIForm1.WinChat.Close
Socket4.Close
If Form1.TxtTempsID.Text <> "" Then
HostChat = (Mid(datas, InStr(datas, "http://") + Len("http://"), 14))
PortChat = (Mid(datas, InStr(datas, "<param name=""port"" value=""") + Len("<param name=""port"" value="""), 4))
Debug.Print HostChat
Debug.Print PortChat
Debug.Print tempid
WinChat.RemoteHost = HostChat
WinChat.RemotePort = PortChat
WinChat.connect
Else
Socket4.Close
MsgBox "Problème de connection lors de la réception du TempID."
End If
Else
Socket4.Close
MsgBox "Problème de connection, le chat doit être en maintenance."
End If
End Sub
***********************************************
Private Sub WinChat_Connect()
MDIForm1.WinChat.SendData ("0" & vbTab & "0" & vbTab & Form1.TxtTempsID.Text & Chr(10))
End Sub
21 juin 2003 à 21:12
21 juin 2003 à 21:10
et ma connection se fait de cette maniere (mais par variable):
WinChat.RemoteHost = "213.193.12.173"
(ou WinChat.RemoteHost = HostChat)
WinChat.RemotePort = "6678"
(ou WinChat.RemotePort = PortChat)
WinChat.Connect
21 juin 2003 à 20:06
mdiform1.winchat.connect xxx.xxx.xx.xxx (l'ip reçu dans la page du tempID), port (le port reçus ds la page du tempID)
La connexion ne s'établit pas et le serveur ne repond pas, j'ai vérifier par la suite le serveur "http://213.193.12.173:80" est le serveur sur lequel on télécharge l'aplet du chat. Mais la connexion chat ne s'y établir pas dessus (du moins d'après ce que j'ai vu).
De mon coter je continue à chercher je vous tiens au courant. Si jamais quelqu'un résoud le problème merci de me contacter.
A++
Kawash
20 juin 2003 à 17:21
recuperer dans la page le tempid (qui est bcp plus long qu'avant), recuperer l'adress IP ainsi que le port, qui n'est plus du tout le meme et change a chaque connection.
en prenant comme variable:
cookies etant le tempid
IP ----->Hostchat
Port ----->Portchat
WinChat.RemoteHost = HostChat
WinChat.RemotePort = PortChat
WinChat.Connect
et dans la foulé balancer,
Private Sub WinChat_Connect()
DoEvents
WinChat.senddata ("0" & vbTab & "0" & vbTab & Cookies & Chr(10))
et chacun recoit son ID du chat
alors la !!! gros pb, car les ID changent literalement et passent de la forme @SIDxxxxx:xxxxxx:0, et puis quand il s'agit de faire des recherches et bien c'est le bordel, mais je pense que qq'un va nous resoudre ca lol
sur ce, je tiens a remercier cara pour son tres bon tchat malgre tout ce que l'on dit
bonne prog a tous
20 juin 2003 à 01:27
19 juin 2003 à 16:53
19 juin 2003 à 00:05
je lance et je vois en bas reception tu temp id puis plus rien
ci je clique eur salon publique ou prive j ai le message d erreur suivant :wrong protocol or connection state for the requeste transaction or request et tout ce ferme quand j apuis sur ok ...
que faire svp ?
17 juin 2003 à 13:53
Lut tout le monde
Alienx
15 juin 2003 à 12:26
12 juin 2003 à 19:44
Jolie boulot !
11 juin 2003 à 12:30
9 juin 2003 à 13:03
Il n'y a plus aucun interet a coder un client caramail ! Comme Max12 te l'as fait remarquer ils vont te casser les couilles !
Puis franchement ca n'a aucun interet point de vue utilisation, il y a deja eu bcp de client caramail ...
Je te propose plutot d'innover un peu et de faire un client IRC .. Bcp plus pratique et bcp plus interressant a coder ...
Voici un screen du client que je suis en train de develloper si tu veux voir un peu a quoi ca ressemble : http://shellkode.free.fr/Screen/ClientIRC/screen3.jpg et http://shellkode.free.fr/Screen/ClientIRC/screen2.jpg
J'ai pas vu ton code mais apparement il a l'air bien...
Sur ce bonne continuatiuon ...
@ Plumlche
DeAtH_-_CrAsH
8 juin 2003 à 19:47
8 juin 2003 à 19:01
8 juin 2003 à 18:59
a+
8 juin 2003 à 18:53
8 juin 2003 à 15:21
EBArtSoft: En effet j'ai tout tester sous ma connexion par cable. Donc j'ai pas eu l'occasion de vérifier si cela tournait nikel sous un connexion a faible débit.
kalif: merci à toi sa faisait longtemps.. je trouve d'ailleurs dommage que tu ais laissé tomber ton projet de client. J'espere qu'au coté de delphi tout va bien et que tu ponds de super progs ;)
Kawash
8 juin 2003 à 14:10
8 juin 2003 à 13:19
j'ai une connexion a tres petit debit et donc la reception
des données ne se fait pas en une seul passe !!!
donc j'ai ajouter le code suivant :
Winsock.DataArrival()
Dim Data As String
Static Data1 As String
Winsock.GatData Data
Data1 = Data1 & Data
If Instr(Data1,vbCrLf & vbCrLf) Then
...
Continue l'execution
Encore bravo pour ta source !
J'espere seulement qu'elle ne sera pas "TROP" utilisé a des fins malvaillante (Utopique...) ;-D
@+
8 juin 2003 à 12:49
8 juin 2003 à 11:51
Si j'ai le tps, je vais lui rajouter la gestion des smiley, ça sera kan meme plus sympa... ;)
mais en tout cas bvo ! il est deja bien plus évoluer que son frere caraclient ;)
good job
8 juin 2003 à 11:36
Tout b'abrd j'ai un petit souci pour faire fonctionner ta source...
le serveur ne me renvoi pas de SESSIONID ! pk ? je ne sait pas !
ligne :
jsession = Mid(Mid(Chaine, InStr(Chaine, "JSESSIONID="), InStr(Mid(Chaine, InStr(Chaine, "JSESSIONID=")), ";") - 1), 12)
Ensuite je reste admiratif quand au travail accompli sur ta source !
biensur il reste encore bcp de chose a faire dessus et sa fait un peu brouillon mais Bravo !
Bonne pr@g
8 juin 2003 à 10:46
8 juin 2003 à 09:52
Mais j'ai souvent une erreur lors des recherches...
J'ai pas trop le temps de chercher, mais c'est supre!
(Fais gaffe quand meme!)
7 juin 2003 à 23:30
@+