.:ViRuS:. (Ex-Member)
Pro
 
Messaggi: 174
Iscritto: 01/06/2008
|
 Questo topic è stato chiuso dal moderatore
Ciao a tutti ragazzi, finalmente ho risolto il problema del trasferimento file...
ora però ho un problema con la grandezza del file
Codice sorgente - presumibilmente VB.NET |
Dim Data2 As String Dim SentData As String Winsock2.GetData Data2 If Data2 = "OK" Then Open Dialog1.FileName For Binary As #1 DoEvents SentData = Space(10000) For conteggio = 0 To CLng(LOF(1) / 10000) Get #1, conteggio * CLng(10000) + 1, SentData Winsock2.SendData SentData DoEvents 'Pause 800 DoEvents Next conteggio DoEvents Close #1 Winsock2.SendData "EndTransfer" DoEvents MsgBox "Fine Trasferimento!", vbExclamation, "The T 2.0 Advertisment" End If End Sub
|
con questo codice posso inviare 10000 byte alla volta (10kb) però il risultato è un file di dimensioni diverse dall'originale, e se si tratta di un txt.. il contenuto è pieno di spazi e le scritte sono sparse qua e la.
ora volevo chiedere... come posso fare in modo da ottenere le IDENTICHE dimensioni del file originale, e quindi da ottenere una vera e propria copia sia di exe che di txt,dll, ocx ecc..?
GRazie 1000!!!
|
|
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
Scusa ... ma se le dimensioni dei file non sono identiche allora NON HAI RISOLTO il problema del trasferimento file ...
Quindi, o lato client o lato server (molto piu' probabile) ci sono ancora errori ...
|
|
|
.:ViRuS:. (Ex-Member)
Pro
Messaggi: 174
Iscritto: 01/06/2008
|
beh "risolto" nel senso che il file poi è quello.. se è un img, la vedo uguale, se è un exe si esegue cmq...
il mio problema è solo questo ora...
poi questo è un nuovo codice che ho provato....
e lo sto provando su un vecchio Trojan con le socket gia pronte, sembra funzionare...
Puoi darmi una mano a risolvere quest'altro problema?
Grazie mille!
|
|
|
pasqualeclarix (Ex-Member)
Rookie
Messaggi: 58
Iscritto: 29/01/2008
|
Postato originariamente da .:ViRuS:.:
Ciao a tutti ragazzi, finalmente ho risolto il problema del trasferimento file...
ora però ho un problema con la grandezza del file
Codice sorgente - presumibilmente VB.NET |
Dim Data2 As String Dim SentData As String Winsock2.GetData Data2 If Data2 = "OK" Then Open Dialog1.FileName For Binary As #1 DoEvents SentData = Space(10000) For conteggio = 0 To CLng(LOF(1) / 10000) Get #1, conteggio * CLng(10000) + 1, SentData Winsock2.SendData SentData DoEvents 'Pause 800 DoEvents Next conteggio DoEvents Close #1 Winsock2.SendData "EndTransfer" DoEvents MsgBox "Fine Trasferimento!", vbExclamation, "The T 2.0 Advertisment" End If End Sub
|
con questo codice posso inviare 10000 byte alla volta (10kb) però il risultato è un file di dimensioni diverse dall'originale, e se si tratta di un txt.. il contenuto è pieno di spazi e le scritte sono sparse qua e la.
ora volevo chiedere... come posso fare in modo da ottenere le IDENTICHE dimensioni del file originale, e quindi da ottenere una vera e propria copia sia di exe che di txt,dll, ocx ecc..?
GRazie 1000!!!
|
un consiglio..
non usare
quest'istruzione...
If Data2 = "OK" Then
secondo..
non dovresti crearli te i virus ad occhi chiusi?
Virus  |
|
|
gantonio (Normal User)
Guru^2
Messaggi: 1532
Iscritto: 09/09/2007
|
Postato originariamente da .:ViRuS:.:
e lo sto provando su un vecchio Trojan con le socket gia pronte, sembra funzionare...
|
Ma non era una chat ... ?
Lo sai che questo tipo di "programmi" mi fanno girare ...
|
|
|
pasqualeclarix (Ex-Member)
Rookie
Messaggi: 58
Iscritto: 29/01/2008
|
Postato originariamente da gantonio:
Postato originariamente da .:ViRuS:.:
e lo sto provando su un vecchio Trojan con le socket gia pronte, sembra funzionare...
|
Ma non era una chat ... ?
Lo sai che questo tipo di "programmi" mi fanno girare ...
|
chi non ha mai creato un trojan o qualsiasi essere parassita simile?
Ovviamente con tutto il rispetto. Ma davo dei consigli al nostro collega VIRUS. |
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
bè con i trojan non si può più far molto, al giorno d'oggi molti possiedono un router e almeno che non abbiano la porta che usa il trojan aperta (molto improbabile) la connessione non può avvenire...
solo chi è esperto veramente potrebbe bypassare i router dato che è stata scoperta una vulnerabilità di tutti i router secondo cui da remoto se ne potrebbe prendere il controllo e a quel punto...eheh...
Mi sa di esser andato un pò 
|
|
|
pasqualeclarix (Ex-Member)
Rookie
Messaggi: 58
Iscritto: 29/01/2008
|
Postato originariamente da GrG:
bè con i trojan non si può più far molto, al giorno d'oggi molti possiedono un router e almeno che non abbiano la porta che usa il trojan aperta (molto improbabile) la connessione non può avvenire...
solo chi è esperto veramente potrebbe bypassare i router dato che è stata scoperta una vulnerabilità di tutti i router secondo cui da remoto se ne potrebbe prendere il controllo e a quel punto...eheh...
Mi sa di esser andato un pò |
Qui è VB non è RETI, Sicurezza o Router.
Per il resto, innanzitutto sviluppati un buon trojan.
I router sono anche Bypassabili, dipende da quanto ci sai fare.. non vado oltre..
Non tutti acquistano i router perchè temono di non saperli configurare. Mi fermo qui |
|
|
.:ViRuS:. (Ex-Member)
Pro
Messaggi: 174
Iscritto: 01/06/2008
|
@Gantonio - La chat ripeto non è sul mio pc, ma su quello di mio zio...
@pasqualeclarix - Beh il nickName Virus è semplicemente e pura fantasia... l'ho messo quando ero nei primi passi della programmazione e ahimè montandomi la testa ero un lamer...
Non usare l'istruzione...
if Data2= "OK" then
|
Perchè?
ora più che altro lo uso per il suo fascino come nickname.
Comunque..
c'è qualche modo per risolvere questo problema? 
P.S= L'INTENZIONE PRIMARIA NON è DI POTENZIARE IL TROJAN, MA PER UTILIZZARE AL MEGLIO LA FUNZIONE DI TRASFERIMENTO FILE! Ultima modifica effettuata da .:ViRuS:. il 30/07/2008 alle 16:10 |
|
|
| 
