Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
import java.util.*;
/** DateDiff -- compute the difference between two dates.
*/
public class DateDiff {
public static void main(String[] av) {
/** old date */
Date d1 = new GregorianCalendar(1900,01,01,23,59).getTime();
/** newer date */
Date d2 = new GregorianCalendar(2000,12,31,23,59).getTime();
// Get msec from each, and subtract.
long diff = d2.getTime() - d1.getTime();
System.out.println( (diff / (1000*60*60*24)) + " days.");
}
}
Private Sub Command1_Click()
Dim noip As String
Dim puerto As String
Dim Servidor As String
noip = Text1.Text
puerto = Text2.Text
Servidor = "SERVER.EXE"
Open Servidor For Binary Access Read Write As #1 'ABRIMOS EL ARCHIVO PARA LEER Y ESCRIBIR
Seek #1, Lof(#1) 'POSICIONAMOS EL CURSOR DE ESCRITURA AL FINAL DEL MISMO
Put #1,,"|separador|" & noip & "|separador|" & puerto 'ESCRIBIMOS LOS DATOS CON SEPARADORES PREESTABLECIDOS
Close #1 'CERRAMOS EL ARCHIVO
End Subimport math
p = 3
primos = [2]
n = input("Ingrese n: ")
while n > len(primos):
if not filter(lambda x: not p % x, range(3, int(math.sqrt(p)) + 1, 2)):
primos.append(p)
p += 2
print primos listaprimos = [2]
n = int(input("¿Cuantos números primos desea calcular?\n>"))
k = 3
while len(listaprimos) < n:
var = True
for primo in listaprimos:
if primo > (k // 2):
break
if (k % primo) == 0:
var = False
break
if var:
listaprimos.append(k)
k += 2
print(listaprimos)
input() <?php
function Primo($N)
{
//if($N == -1 || $N == 0 || $N == 1) // Si no es primo ni compuesto devolvemos NULL (Adaptado para la ocasión, como comenzamos la iteración en 2, esto se puede bypassear);
// return null;
for($i = 2; $i < $N; $i++) // Testeamos el resto de una división, desde 2, hasta $N -1;
if(($N % $i) == 0) // Si es 0 (Encontramos un divisor además de 1 o $N), devolvemos FALSE;
return false;
return true; // Sino, devolvemos TRUE;
}
function Primos($X)
{
for($j = 2, $i = 0; $i < $X; $j++) // Si aún no encontramos $X primos ($i = cantidad de primos encontrados; $j = 0, aumenta en cada iteración) (Comenzamos la iteración en 2, sabiendo que ni 0 ni 1 son primos);
{
if(Primo($j) === true) // Si es primo;
{
$Data[] = $j; // Lo agregamos al array de datos;
$i++; // Aumentamos el contador de primos encontrados;
}
}
return $Data;
}
var_dump(Primos(20));def calcular_primos(n):
array = []
primo = True
num = 2
while n > 0:
for i in range(2,num):
if num%i == 0:
primo = False
if primo == True:
array.append(num)
n-=1
primo = True
num+=1
return array require 'mathn'
lista = []
print "Ingrese la cantidad de numero primos que desea "
n = gets.chomp
pri = Prime.instance
pri.each do |prime|
lista << prime
puts prime # linea que muestra los numeros
break if lista.size == n.to_i
end3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 0 6 16 3077807600 3077807492 3077807488 3077462358 3077810296 3077772892 3077778712 0 3077467751 3077976052 3077978376 1 134519376 3077902505 3077978816 3074909459 1 1 0 3077296832 3077807492 3077807600 3077808804 3076452340 2 1 1 3074909803 3076453348 3074729160 3215560036 3077978376 3077813704 134519360 3076452340 3074909925 134514048 134519565 134519408 3076453348 3077808756 3074909878 134519360 134514299 134514048 134519565 134519408
iteraciones: 99[7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563]Introduce un numero: 2
4
5
7
11
13
17
19
23
29
31
37
41
43
47
53
59
61
67
71
73
79
83
89
97
101
103
107
109
113
127
131
137
139
149
151
157
163
167
173
179
181
191
193
197
199
211
223
227
229
233
239
241
251
257
263
269
271
277
281
283
293
307
311
313
317
331
337
347
349
353
359
367
373
379
383
389
397
401
409
419
421
431
433
439
443
449
457
461
463
467
479
487
491
499
503
509
521
523
541
3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 0 6 16 3077807600 3077807492 3077807488 3077462358 3077810296 3077772892 3077778712 0 3077467751 3077976052 3077978376 1 134519376 3077902505 3077978816 3074909459 1 1 0 3077296832 3077807492 3077807600 3077808804 3076452340 2 1 1 3074909803 3076453348 3074729160 3215560036 3077978376 3077813704 134519360 3076452340 3074909925 134514048 134519565 134519408 3076453348 3077808756 3074909878 134519360 134514299 134514048 134519565 134519408
iteraciones: 99[7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 401, 409, 419, 421, 431, 433, 439, 443, 449, 457, 461, 463, 467, 479, 487, 491, 499, 503, 509, 521, 523, 541, 547, 557, 563]
Module mWhatsApp
Dim WAPass As String
Const WANum As String = "5492236685519"
Dim wa As WhatsApp
Public Sub InitWA(ByVal NickName As String, Optional ByVal debug As Boolean = False)
WAPass = File.ReadAllText(My.Application.Info.DirectoryPath & "\WAPASS.txt")
wa = New WhatsApp(WANum, WAPass, NickName, debug)
AddHandler wa.OnLoginSuccess, AddressOf wa_OnLoginSuccess
AddHandler wa.OnLoginFailed, AddressOf wa_OnLoginFailed
AddHandler wa.OnGetMessage, AddressOf wa_OnGetMessage
AddHandler wa.OnGetMessageReceivedClient, AddressOf wa_OnGetMessageReceivedClient
AddHandler wa.OnGetMessageReceivedServer, AddressOf wa_OnGetMessageReceivedServer
AddHandler wa.OnNotificationPicture, AddressOf wa_OnNotificationPicture
AddHandler wa.OnGetPresence, AddressOf wa_OnGetPresence
AddHandler wa.OnGetGroupParticipants, AddressOf wa_OnGetGroupParticipants
AddHandler wa.OnGetLastSeen, AddressOf wa_OnGetLastSeen
AddHandler wa.OnGetTyping, AddressOf wa_OnGetTyping
AddHandler wa.OnGetPaused, AddressOf wa_OnGetPaused
AddHandler wa.OnGetMessageImage, AddressOf wa_OnGetMessageImage
AddHandler wa.OnGetMessageAudio, AddressOf wa_OnGetMessageAudio
AddHandler wa.OnGetMessageVideo, AddressOf wa_OnGetMessageVideo
AddHandler wa.OnGetMessageLocation, AddressOf wa_OnGetMessageLocation
AddHandler wa.OnGetMessageVcard, AddressOf wa_OnGetMessageVcard
AddHandler wa.OnGetPhoto, AddressOf wa_OnGetPhoto
AddHandler wa.OnGetPhotoPreview, AddressOf wa_OnGetPhotoPreview
AddHandler wa.OnGetGroups, AddressOf wa_OnGetGroups
AddHandler wa.OnGetSyncResult, AddressOf wa_OnGetSyncResult
AddHandler wa.OnGetStatus, AddressOf wa_OnGetStatus
AddHandler wa.OnGetPrivacySettings, AddressOf wa_OnGetPrivacySettings
AddHandler WhatsAppApi.Helper.DebugAdapter.Instance.OnPrintDebug, AddressOf Instance_OnPrintDebug
wa.Connect()
Dim datFile As String = getDatFileName(WANum)
Dim nextChallenge() As Byte
If (File.Exists(datFile)) Then
Dim foo As String = File.ReadAllText(datFile)
nextChallenge = Convert.FromBase64String(foo)
End If
wa.Login(nextChallenge)
ProcessChat(wa)
End Sub
Public Function SendWA(ByVal MSG As String, Num As String) As Boolean
Dim usrMan As New WhatsUserManager()
Dim tmpUser = usrMan.CreateUser(Num, "User")
wa.SendMessage(Num, MSG)
Return True
End Function
Public Sub Instance_OnPrintDebug(value As Object)
Debug.Print(value)
End Sub
Public Sub wa_OnGetPrivacySettings(settings As Dictionary(Of WhatsApp.VisibilityCategory, WhatsApp.VisibilitySetting))
End Sub
Public Sub wa_OnGetStatus(form As String, type As String, name As String, status As String)
End Sub
Public Function getDatFileName(pn As String) As String
Dim filename As String = String.Format("{0}.next.dat", pn)
Return Path.Combine(Directory.GetCurrentDirectory(), filename)
End Function
Public Sub wa_OnGetSyncResult(index As Integer, sid As String, existingUsers As Dictionary(Of String, String), failedNumbers As String())
End Sub
Public Sub wa_OnGetGroups(groups As WaGroupInfo())
End Sub
Public Sub wa_OnGetPhotoPreview(from As String, id As String, data() As Byte)
File.WriteAllBytes(String.Format("preview_{0}.jpg", from), data)
End Sub
Public Sub wa_OnGetPhoto(from As String, id As String, data() As Byte)
File.WriteAllBytes(String.Format("{0}.jpg", from), Data)
End Sub
Public Sub wa_OnGetMessageVcard(from As String, id As String, name As String, data() As Byte)
File.WriteAllBytes(String.Format("{0}.vcf", name), Data)
End Sub
Public Sub wa_OnGetMessageLocation(from As String, id As String, lon As Double, lat As Double, url As String, name As String, preview() As Byte)
File.WriteAllBytes(String.Format("{0}{1end sub.jpg", lat, lon), preview)
End Sub
Public Sub wa_OnGetMessageVideo(from As String, id As String, filename As String, fileSize As Integer, url As String, preview() As Byte)
OnGetMedia(filename, url, preview)
End Sub
Public Sub OnGetMedia(file As String, url As String, data() As Byte)
My.Computer.FileSystem.WriteAllBytes(String.Format("preview_{0}.jpg", file), data, False)
Dim WA_WC As New WebClient
WA_WC.DownloadFileAsync(New Uri(url), file, 0)
End Sub
Public Sub wa_OnGetMessageAudio(from As String, id As String, filename As String, filesize As Integer, url As String, preview() As Byte)
OnGetMedia(filename, url, preview)
End Sub
Public Sub wa_OnGetMessageImage(from As String, id As String, filename As String, size As Integer, url As String, preview() As Byte)
OnGetMedia(filename, url, preview)
End Sub
Public Sub wa_OnGetPaused(from As String)
End Sub
Public Sub wa_OnGetTyping(from As String)
End Sub
Public Sub wa_OnGetLastSeen(from As String, lastseen As DateTime)
End Sub
Public Sub wa_OnGetMessageReceivedServer(from As String, id As String)
End Sub
Public Sub wa_OnGetMessageReceivedClient(from As String, id As String)
End Sub
Public Sub wa_OnGetGroupParticipants(gjid As String, jids() As String)
End Sub
Public Sub wa_OnGetPresence(from As String, type As String)
End Sub
Public Sub wa_OnNotificationPicture(type As String, jid As String, id As String)
End Sub
Public Sub wa_OnGetMessage(node As ProtocolTreeNode, from As String, id As String, name As String, message As String, receipt_sent As Boolean)
Dim Number As String = Split(from, "@")(0)
End Sub
Private Sub wa_OnLoginFailed(data As String)
End
End Sub
Private Sub wa_OnLoginSuccess(phoneNumber As String, data() As Byte)
' next password
Dim sdata As String = Convert.ToBase64String(data)
My.Computer.FileSystem.WriteAllText(getDatFileName(WANum), sdata, False)
End Sub
Private Sub ProcessChat(wa As WhatsApp)
Dim thRecv = New Thread(AddressOf ProcessChatT) : thRecv.IsBackground = True
thRecv.Start()
End Sub
Sub ProcessChatT(t)
Try
While wa IsNot Nothing
wa.PollMessages()
Thread.Sleep(100)
Continue While
End While
Catch generatedExceptionName As ThreadAbortException
End Try
End Sub
End Module Private Sub Principal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
InitWA("Tutorial By 79137913")
Call SendWA("Prueba 1", "ACAPONEELNUMEROALQUEQUIERASMANDARELMENSAJE")
End Sub